home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a013 / 1.ddi / SOURCE.EXE / F_DELREC.PRG < prev    next >
Encoding:
Text File  |  1991-01-25  |  610 b   |  26 lines
  1. *****************************************************************
  2. FUNCTION DELRECORD
  3. *****************************************************************
  4.  
  5. * Mark current record in current database for recycling
  6.  
  7. * Copyright(c) 1991 - James Occhiogrosso
  8.  
  9. PARAMETERS keyfield
  10.  
  11. * Replace key field with a null byte and delete record
  12.  
  13. IF TYPE('keyfield') = 'C'
  14.  
  15.     * Make sure field exists and is character type
  16.     IF .NOT. EMPTY(keyfield) .AND. TYPE(keyfield) = 'C'
  17.         DELETE
  18.         REPLACE &keyfield WITH CHR(255)
  19.         RETURN .T.
  20.     ENDIF
  21.  
  22. ENDIF
  23.  
  24. * Invalid key field
  25. RETURN .F.
  26.