USE CASE EXCLUSIVE DELETE TAG ALL COPY TO (lcFile) FOR !DELETED()BTW, this bug still exists in VFP8SP1.
>SELECT A >? >?'CASE FILE <=====' >? >USE >** Perform the equivalent of a PACK >** get UNIQUE record number for a record >** use a modified sys(3) since sys(3) may not be UNIQUE on a 486 >lcFile = SUBSTR(SYS(3), 4, 4) + SUBSTR(SYS(2015), 7, 4) >lcFile_dbf = lcFile + ".DBF" >lcFile_fpt = lcFile + ".FPT" >USE CASE EXCLUSIVE >COPY TO (lcFile) FOR !DELETED() >USE >ERASE CASE.DBF >IF FILE('CASE.FPT') > ERASE CASE.FPT >ENDIF >RENAME &lcFile_dbf TO CASE.DBF >IF FILE('&lcFile_fpt') > RENAME &lcFile_fpt TO CASE.FPT >ENDIF >USE CASE EXCLUSIVE >DELETE TAG ALL > >INDEX ON DELETED() TAG DELETED >INDEX ON CASE_CODE TAG CASE_CODE >INDEX ON CASE_CODE TAG CASE FOR .NOT. DELETED() >INDEX ON ATTORNEY + CASE_CODE TAG CASEATTY FOR .NOT. DELETED() >USE>Got the following CDX file