Re: Need to retrieve deleted records from an AS/400 file

[jmoreno@xxxxxxxxxxxxxxxx]

Aha !

I can mention two vendor approaches.

1. Retrieve Deleted Records part of the TAATOOL utility library
http://www.taatool.com

2. Retrieve Deleted Records part of the Prodadta Suite (DBU)
http://www.prodatacomputer.com


Now .. if you want to do it yourself you are very close !

Recognize the first record  in the Save File - workfile
Either  Active (X'C0') Or  Deleted records (X'80')

Say the record Length = Len (5,0)


Your Save File - workfile is 528 bytes long  (Just like your Save File)

The first 512 bytes are DATA bytes
the 513 - 528 bytes are SaveFile "control data"

Create an array big enough .. Say 9999 element with length of 1
Start filling the array until you reach position = Len

Write the record to a Work file - database file.

Continue reading your Save File - workfile

I hope this helps

I have never had the chance to create a finished version yet.

I guess the problem is to find that "First Record"


Regards

Jorge