*****UPDAT.CMD
STOR'Y'TO ANSWER
ERASE
ACCEPT' Have you made any changes to your master file? (Y/N) 'TO ANSWER
ERASE
IF!(ANSWER)='Y'
?' I need to REINDEX on three fields in your master file. '
?
?' If your master file is very large, this will take about 4-5 minutes. '
?
?' So go get some coffee or something. '
?
?' Press any key to start REINDEXING.'
WAIT
ERASE
?' Please allow time for the sorting of three fields. '
?
SET TALK ON
USE B:FILE
INDEX ON FILE:NAME TO B:FINAME
ERASE
?' Sorting on second field now. '
USE B:FILE
INDEX ON DISC:NO TO B:DISC
ERASE
?' Sorting on the last field now. '
USE B:FILE
INDEX ON EXTENT TO B:EXT
IF !(ANSWER)='N'
RETU
ENDI
RETU
?' Sorting on the last field now. '
USE B:FILE
INDEX ON EXTENT TO B:EX