home *** CD-ROM | disk | FTP | other *** search
/ Software Du Jour / SoftwareDuJour.iso / BUSINESS / DBASE / DB2IOS.ARC / PURGE.SIG < prev    next >
Encoding:
Text File  |  1983-01-04  |  1.1 KB  |  34 lines
  1. * purge.sig  08/18/83
  2. STORE CHR(PEEK (063)) TO dr
  3. STORE 'N' TO command
  4. ERASE
  5. @ 02,05 SAY '*****   WARNING!   *****   WARNING!   *****   WARNING!   ****'
  6. @ 04,05 SAY 'This will PERMANENTLY remove any deleted records.'
  7. @ 06,05 SAY 'Type Y to continue, any other key to cancel this operation'
  8. @ 06,64 GET command PICTURE '!'
  9. READ
  10. IF command = 'Y'
  11.     * give the user something to read while file is packed
  12.     @ 10,05 SAY 'Records which have been marked for deletion'
  13.     @ 11,05 SAY 'are being removed from the file'
  14.     @ 13,05 SAY 'When that is completed, all records will'
  15.     @ 14,05 SAY 'be re-indexed, so please be patient....'
  16.     *pack the file to remove deleted records
  17.     *but let us know how many records are deleted
  18.     SET INDEX TO
  19.     GOTO bottom
  20.     STORE # to before
  21.     PACK
  22.     GOTO bottom
  23.     STORE # to after
  24.     @ 18,15 SAY  STR(before-after,4)+ ' Deleted Records Removed'
  25.     INDEX ON !(lname) TO &dr.:orders
  26.     SET INDEX TO &dr.:orders
  27.     @ 23,00 SAY 'Hit any key to Continue '
  28.     SET CONSOLE OFF
  29.     WAIT
  30.     SET CONSOLE ON
  31. ENDIF command = Y
  32. RELEASE ALL
  33. STORE t TO more
  34.