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 / D4RECALL.C < prev    next >
Encoding:
C/C++ Source or Header  |  1989-10-14  |  464 b   |  31 lines
  1.  
  2. /*  d4recall.c   
  3.     (C) Copyright Sequiter Software Inc., 1987, 1988, 1989.  All rights reserved.
  4.  
  5.     Un-deletes a record.
  6. */
  7.  
  8. #include "d4base.h"
  9.  
  10. extern  BASE  *v4base ;
  11. extern  int    v4cur_base ;
  12.  
  13.  
  14. int d4recall( rec_num )
  15. long      rec_num ;
  16. {
  17.    int  rc ;
  18.  
  19.    if ( (rc = d4go(rec_num)) != 0)
  20.       return( rc ) ;
  21.  
  22.    v4base[v4cur_base].buffer[0] =  ' ' ;
  23.  
  24.    if ( d4write( rec_num )  < 0)
  25.     return( -1 ) ;
  26.  
  27.    return( 0 ) ;
  28. }
  29.  
  30.  
  31.