Posted by Marc on October 10, 2006 at 16:04:45:
In Reply to: Deleted records in a keyed file posted by greg on October 10, 2006 at 14:36:33:
I've written a couple of programs to rebuild a file by reading thru the data portion of the file by using the key=record.number option. When doing this, I have to look at position 7 of the record to see if there is a "@FE@" in this position. My understanding is that this is the flag that tells comet that the record is deleted. If position 7 is not important to your record, you may want to try this. I have a couple of programs I can send to you if you need. The following is an example of the logic I use.
ie:
RDREC: !
RECCNT = RECCNT + 1
! RECKEY$ = KEY(W1HOLD,EXCP=ENDRUN)
READ (W1HOLD,RECORD) key=reccnt,EXCP=ENDRUN
IF SUB(BUFFER$,7,1) = "@FE@" PRINT (0,DELCNTM) & GOTO RDREC