Re: Retrieving calling procedure

[Gene Burns <burns.gene@xxxxxxxxx>]

I always check the archives here first, then post to see if someone else has
ran into the same problem.

My dept. manager has to be the one to make any inquiries to vendors as he is
the only contact point listed, by company policy.



On Fri, Sep 4, 2009 at 10:04 AM, Jerry Adams <Jerry@xxxxxxxxxxxxxxx> wrote:

> Did you contact Mr. Cozzi?  Bob's always been most helpful when I have
> asked for assistance.
>
> Jerry C. Adams
> IBM System i Programmer/Analyst
> --
> B&W Wholesale
> office: 615-995-7024
> email:  jerry@xxxxxxxxxxxxxxx
>
>
> -----Original Message-----
> From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx]
> On Behalf Of Gene Burns
> Sent: Friday, September 04, 2009 9:59 AM
> To: RPG400-L@xxxxxxxxxxxx
> Subject: Retrieving calling procedure
>
> We are at V5R4 and I have a subprocedure that is called from two other
> subprocedures.  I am trying to retrieve the name of the calling
> subprocedure
> using xtools, but it is not working.
>
>
>     d/include XTOOLS/QCPYSRC,RPGLIB
>
>     d CallingProc     s            256a   varying
>
>
> inside the subprocedure I have;
>
>
>        CallingProc = GetCallerInfo('*PROC');
>
> but after GetCallerInfo runs CallingProc =
> 'RPGLIB                                                             '
>
> We have been using GetCallerInfo for over a year to get the calling program
> without a problem, but the xtools help states that this will also return
> the
> calling procedure or module.
>
> Does anyone have an idea what is wrong?
> --
> This is the RPG programming on the IBM i / System i (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 / System i (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.