Comments on: RTVSRC: Finding the RPG38 source

By: The Most-Watched IT Questions: May 17, 2011 - ITKE Community Blog

The Most-Watched IT Questions: May 17, 2011 - ITKE Community Blog — Tue, 17 May 2011 06:14:57 +0000

[...] CharlieBrowne and TomLiotta gave their best tips for finding the RPG38 source after the LIBTEST has been deleted. 6. TomLiotta, CharlieBrowne, and Bvining have come together to [...]

By: tomliotta

tomliotta — Wed, 04 May 2011 19:01:37 +0000

Tried already strdbg , can not see source.

If you run DSPPGM against the program, it will tell you where the source was when the program was compiled. If that source file, member or library doesn’t exist on your system, then searching for all source members and looking at them is the only choice that you have.

You might run DMPOBJ for the compiled *PGM and scroll through the spooled file. Sometimes you can find variable names or constants that you can use in FNDSTRPDM or similar commands. That can possibly help narrow the search.

Tom

By: alicsc

alicsc — Wed, 04 May 2011 09:06:30 +0000

Used STRCPYSCN but its only copying screen data ( display file ).

Tried already strdbg , can not see source. Still searching all pf-src..lets see.

By: tomliotta

tomliotta — Tue, 03 May 2011 19:34:14 +0000

Note that a program compiled at V1R7 would almost have to refer to Release 7 of CPF. I don’t have the S/38 command available to see what the debug options were, but I’d expect something more like OPTION(*SRCDBG).

In any case, seeing what appears on screen after STRDBG OPMSRC(*YES) against the program will probably give the best chance if anything will work at all.

Tom

By: alicsc

alicsc — Tue, 03 May 2011 16:40:33 +0000

I already searched all source files in all libraries but let me check again.

Will try 1st option also but I do not think it was compiled with *list but let me check.

backup tape, object was last changed in 1987..lol
Thanks Charlie