RE: Retrieve Program References

["Carel Teijgeler" <coteijgeler@xxxxxxxxx>]

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