home *** CD-ROM | disk | FTP | other *** search
/ Piper's Pit BBS/FTP: ibm 0010 - 0019 / ibm0010-0019 / ibm0010.tar / ibm0010 / CODE4-1.ZIP / SOURCE.ZIP / D4RECNO.C < prev    next >
Encoding:
C/C++ Source or Header  |  1989-10-14  |  370 b   |  21 lines
  1.  
  2. /*  d4recno.c   (C) Copyright Sequiter Software Inc., 1987, 1988, 1989.  All rights reserved.
  3. */
  4.  
  5. #include "d4base.h"
  6.  
  7. extern  BASE  *v4base ;
  8. extern  int    v4cur_base ;
  9.  
  10.  
  11. long d4recno()
  12. {
  13.    if ( v4cur_base < 0 )  return 0L ;
  14.  
  15.    if ( v4base[v4cur_base].rec_num <= 0 )
  16.       return( 0L ) ;
  17.    else
  18.       return( v4base[v4cur_base].rec_num ) ;
  19. }
  20.  
  21.