home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 7 / 07.iso / c / c160 / 1.ddi / SOURCE / F4NUM_FI.C < prev    next >
Encoding:
C/C++ Source or Header  |  1990-06-22  |  479 b   |  29 lines
  1.  
  2. /* (c)Copyright Sequiter Software Inc., 1987-1990.  All rights reserved.
  3.  
  4.    f4num_fields.c
  5. */
  6.  
  7. #include "d4base.h"
  8. #include "u4error.h"
  9.  
  10. extern  BASE  *v4base ;
  11. extern  int    v4cur_base ;
  12.  
  13. /* f4num_fields
  14.  
  15.    Returns the number of fields in the selected database.
  16. */
  17.  
  18. int f4num_fields()
  19. {
  20.    if ( v4cur_base >= 0 )
  21.       return( v4base[v4cur_base].num_fields ) ;
  22.    else
  23.    {
  24.       u4error( E_D_MISSING, (char *) 0 ) ;
  25.       return( -1 ) ;
  26.    }
  27. }
  28.  
  29.