Re: Retrieving Deleted Records

DAsmussen wrote:
> 
> Hey Folks!
> 
> Time to ask a question, rather than annoy you with my opinions ;-).  Does
> anyone know of a way to retrieve deleted records from an AS/400 file (not just
> print them, as there is a TAATOOL for this)?  The person asking for this was
> _sure_ that she had seen an article in "Midrange Computing" for this, but
> couldn't remember the title or date.  My searches of their web site turned up
> nothing...
> 
> TIA,
> 
> Dean Asmussen
> Enterprise Systems Consulting, Inc.
> Fuquay-Varina, NC  USA
> E-Mail:  DAsmussen@aol.com
> 
> "After thirty, a body has a mind of its own." -- Bette Midler
> +---
> | This is the Midrange System Mailing List!
> | To submit a new message, send your mail to MIDRANGE-L@midrange.com.
> | To unsubscribe from this list send email to MIDRANGE-L-UNSUB@midrange.com.
> | Questions should be directed to the list owner/operator: david@midrange.com
> +---
> uucp
It is a not too complicated task. The steps:
1. Save the file into a *SAVF.
2. crate a simple pgm to copy a file to another. The rec. len of the
input file must be 528. 512 + 16. 512 chrs. - the data in the file
saved.
3. run the program when the input file is the save file.
4. from output file extract the data fom first 512 chrs. in the record.
all the records in your file, deleted and not deleted are there, except
the first chrs. in deleted records are changed to deletion code and must
be replaced again.
Y. Wechsler
+---
| This is the Midrange System Mailing List!
| To submit a new message, send your mail to MIDRANGE-L@midrange.com.
| To unsubscribe from this list send email to MIDRANGE-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---