Posted by Marc on December 04, 2007 at 13:32:55:
In Reply to: Deleted records posted by Carl Haaser on December 04, 2007 at 12:28:13:
Carl - I don't know when the deleted records chain starts getting reused, however, you can read thru the actual records ignoring the key tree by using the record count option of the READ instruction (see below). The only thing is if you keep important information (like the key) in the 1st 7 positions. I've included some logic showing how I read thru the records and ignore the deleted records. In your case, I guess you would want the deleted records (sub(record,7,1) = "@FE@". If the key is part of the 1st 7 positions of the record, then I don't know what to tell you.
RECSEQ = RECSEQ + 1
READ (O1OLD,RECORD) KEY=RECSEQ,EXCP=ENDRUN
PRINT (0,STATM)
IF SUB(BUFFER$,7,1) = "@FE@" GOTO RDREC