Re: How do I find the name of the calling program?

[Rory Hewitt <rory.hewitt@xxxxxxxxx>]

Hey Booth,

Use the QWVRCSTK (Retrieve Call Stack) API.

You could update my PROCNAME procedure to pass in a parameter to specify
how far back up the call stack to go - take a look:
http://www.corisoft.com/utilities.html#getprocname

Rory


On Sun, May 11, 2014 at 3:22 PM, Leo Ridderikhoff <lr@xxxxxxxxxxx> wrote:

> Booth, I can't check right now, but I think you can find it in the INFDS.
>
> regards,
> Leo
>
> -----Oorspronkelijk bericht-----
> Van: "Booth Martin" <booth@xxxxxxxxxxxx>
> Verzonden: 11-5-2014 22:26
> Aan: "RPG programming on the IBM i / System i" <rpg400-l@xxxxxxxxxxxx>
> Onderwerp: How do I find the name of the calling program?
>
> How do I find the name of the calling program?  I have a program called
> from several different programs.  Is there a way to retrieve the name of
> the calling program within the called program?
>
> --
> Booth Martin
> www.martinvt.com
> (802)461-5349
> Skype: booth.martin
>
> The computer can't tell you the emotional story. It can give you the
> exact mathematical design, but what's missing is the eyebrows. -- Frank
> Zappa
> --
> This is the RPG programming on the IBM i (AS/400 and iSeries) (RPG400-L)
> mailing list
> To post a message email: RPG400-L@xxxxxxxxxxxx
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
> or email: RPG400-L-request@xxxxxxxxxxxx
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/rpg400-l.
>
> --
> This is the RPG programming on the IBM i (AS/400 and iSeries) (RPG400-L)
> mailing list
> To post a message email: RPG400-L@xxxxxxxxxxxx
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
> or email: RPG400-L-request@xxxxxxxxxxxx
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/rpg400-l.