home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload / ShartewareOverload.cdr / database / workdb.zip / PURGE.PRG < prev    next >
Text File  |  1988-08-15  |  1KB  |  40 lines
  1. *!!* dBASE CONVERT - dBASE III File Conversion Aid  v2.01  1/10/86
  2. *
  3. SET HEADING OFF
  4. SET SAFETY OFF
  5. * purge.sig  08/18/83
  6. STORE CHR(PEEK (063)) TO dr
  7. STORE 'N' TO COMMAND
  8. CLEAR
  9. @ 02,05 SAY '*****   WARNING!   *****   WARNING!   *****   WARNING!   ****'
  10. @ 04,05 SAY 'THIS WILL PERMANENTLY REMOVE ANY DELETED RECORDS.'
  11. @ 06,05 SAY 'TYPE Y TO CONTINUE, ANY OTHER KEY TO CANCEL THIS OPERATION'
  12. @ 06,64 GET COMMAND PICTURE '!'
  13. READ
  14. IF COMMAND = 'Y'
  15.    * give the user something to read while file is packed
  16.    @ 10,05 SAY 'RECORDS WHICH HAVE BEEN MARKED FOR DELETION'
  17.    @ 11,05 SAY 'ARE BEING REMOVED FROM THE FILE'
  18.    @ 13,05 SAY 'WHEN THAT IS COMPLETED, ALL RECORDS WILL'
  19.    @ 14,05 SAY 'BE RE-INDEXED, SO PLEASE BE PATIENT....'
  20.    *PACK the file to remove deleted records
  21.    *BUT let us know how many records are deleted
  22.    CLOSE INDEX
  23.    GOTO BOTTOM
  24.    STORE RECNO() to before
  25.    PACK
  26.    GOTO BOTTOM
  27.    STORE RECNO() to after
  28.    @ 18,15 SAY  STR(before-after,4)+ ' Deleted Records Removed'
  29.    INDEX ON UPPER(lname) TO &dr.:orders
  30.    SET INDEX TO &DR.:ORDERS
  31.    @ 23,00 SAY 'HIT ANY KEY TO CONTINUE '
  32.    SET CONSOLE OFF
  33.    WAIT
  34.    SET CONSOLE ON
  35. ENDIF COMMAND = Y
  36. RELEASE ALL
  37.  
  38. STORE .T. TO MORE
  39.  
  40.