× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.



Steve:

Why not journal the file and use the journal images of deleted records? They 
could be used either directly via APYJRNCHG/RMVJRNCHG or indirectly via 
RCVJRNE, RTVJRNE or the journal APIs and passing the images to a HLL for 
rewriting.

Tom Liotta

midrange-l-request@midrange.com wrote:

>   1. Need to retrieve deleted records from an AS/400 file (Steve Landess)
>
>Occasionally, I want to retrieve all of the deleted records from an AS/400
>file.
>
>I have various reasons for needing to do this, but it is mainly because we
>have an EAI application where we have files with *INSERT trigger-handling
>programs that are used to submit jobs to run for processing sales orders.
>The only reason that the record is written to the file is so that the
>trigger-handling program will submit a job to process a particular order.
>When the submitted job runs, it deletes the record from the trigger file to
>clean up.
>We have periodic processes that reorg these files.  Because of system design
>constraints these records MUST be deleted when processed, I can't just flag
>them as processed and leave them in the file.
>
>I now need to view all of the deleted records in a particular file via a
>query in order to see an audit trail of transactions which have occurred
>with a particular order.  I have the UNDEL utility, but it requires me to
>display each record one at a time and press F23 twice...and this undeletes
>the record in place in the data file.
>
>I have figured out a kludgey way to do what I want by saving the physical
>file to a save file, then copy the save file to a data file.  I then use
>DSPPFM to see roughly where the file data begins in the save file data.


--
--
Tom Liotta
The PowerTech Group, Inc.
19426 68th Avenue South
Kent, WA 98032
Phone  253-872-7788 x313
Fax    253-872-7904
http://www.powertechgroup.com


__________________________________________________________________
The NEW Netscape 7.0 browser is now available. Upgrade now! 
http://channels.netscape.com/ns/browsers/download.jsp

Get your own FREE, personal Netscape Mail account today at 
http://webmail.netscape.com/


As an Amazon Associate we earn from qualifying purchases.

This thread ...

Follow-Ups:

Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].

Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.