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

I have the program written and it works...it's just that I don't know
reliably how to determine where the actual data records begin within the
save file...what I do is use DSPPFM and browse the data file until I find
the first data record, which is variable...

Once I find the first save file record containing file data, I record the
RRN of this record...Then I go to the bottom of the file, searching
backwards for the last save file record containing file data and record the
RRN of this record.

The program is written almost exactly as you specified.  I use an array that
is long enough to build the record.  I then MOVEA this array to an external
data structure that defines the work file, and write a record.

I was just hoping that I could find the information that documents the
structure of the save file information.  I'm sure that there is are fields
that specify all of the file attributes as well as where the file data
begins (maybe offset, length...), so that I can write a generic program and
not have to perform the manual steps or create a MI program.

----- Original Message -----
From: <jmoreno@militarycars.com>
To: <midrange-l@midrange.com>
Sent: Friday, October 11, 2002 12:41 PM
Subject: Re: Need to retrieve deleted records from an AS/400 file



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

_______________________________________________
This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing list
To post a message email: MIDRANGE-L@midrange.com
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/cgi-bin/listinfo/midrange-l
or email: MIDRANGE-L-request@midrange.com
Before posting, please take a moment to review the archives
at http://archive.midrange.com/midrange-l.