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