×
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.
Hi, Tom:
Run:
DSPFD FILE(*ALL/*ALL) TYPE(*MBRLIST) OUTPUT(*OUTFILE) FILEATR(*PF)
OUTFILE(QGPL/ALLMBRS)
(submit this as a batch job as it may run for quite a while.)
Then use SQL or Query/400 etc. to search this file to see if you can
find any members in any other libraries with the same name -- perhaps
you might get "lucky" and find a copy of the correct DDS source in some
other library than where it would normally be expected? (Or, at least,
you might find a source member that is "close" to the correct version,
perhaps with a source changed date time stamp that is "close" to the one
used to create the *FILE.)
Then, assuming you still have the existing display file object, and you
can still run the application and see what the screen looks like, it
should be fairly simple and straight-forward to re-create the source (or
modify another "version" of that source as found above.)
First, issue DSPFFD against the display file object to see the record
names and field names, which includes all of the indicators, etc.
Then, examining the RPG program(s) that use this display file, and you
should be able to re-create it.
It is not a trivial exercise, but for a "one-time" situation like this,
this may be your best alternative.
Hope this helps.
All the best,
Mark S. Waterbury
> On 7/20/2010 5:44 PM, Tom Deskevich wrote:
I think I am stuck back in my System 36 days.
I know you can retrieve CL source if the CL program allows it.
But can you do that for a Display File? I don't see any command for that.
The object of the display file is there, it shows me in the description
where it was compiled from, but alas, no source.
It was compiled back in 2007.
Thanks.
Tom Deskevich
As an Amazon Associate we earn from qualifying purchases.