RE: Retrieve Program References

Dennis,

you can use a recursively called subprocedure on the same *OUTFILE.

To add a key use ADDPFCST.

Before calling the subprocedure again, save the key values, after the call
restore the key values and SETGT.

I wrote a similar utility with the OUTFILE of DSPPGMREF, using the
recursive subpocedure.
It is not that hard, I think.

List APIs require USRSPCes and you cannot use one, as the next time the API
is called the USRSPC is cleared, IIRC.

With regards,
Carel Teijgeler


*********** REPLY SEPARATOR ***********

On 26-3-2010 at 5:42 Dennis Lovelady wrote:

I was shocked to see that, at V5R3 there is no Retrieve
Program References API that I can find. I do know about
DSPPGMREF to an output file, and all that, but this surprises
me.

Dennis, I didn't know about this API. What advantages are there in
using it over DSPPGMREF?

I've grown accustomed to the List ... APIs, I guess. This case shows an
API
advantage, I think. Remember I want to find all the things impacted by
altering this program. Since a program can reference other programs I

will

need DSPPGMREF output from those programs as well. So here's a vision:

Display Program References to an output file. Now in RPG open that output
file, begin reading. Ack, my first record refers to PROGRAMB, so I need
its
references. I (probably) cannot DSPPGMREF to the file I've opened, so

I'll

need to go to an alternate. OK, can handle that. But when I'm processing
the alternate file, I see that there's a reference to PROGRAMC. Et

cetera.

With recursion and APIs, this would all be SOP. But it gets complex with
DSPPGMREF.

Dennis Lovelady
http://www.linkedin.com/in/dennislovelady
--
REALITY.SYS corrupted. Reboot universe <Y/N>?



--
This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing

list

To post a message email: MIDRANGE-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/midrange-l
or email: MIDRANGE-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/midrange-l.


Geen virus gevonden in het binnenkomende-bericht.
Gecontroleerd door AVG - www.avg.com
Versie: 9.0.733 / Virusdatabase: 271.1.1/2769 - datum van uitgifte:
03/25/10 08:33:00