RE: Retrieving calling procedure

[Jerry Adams <Jerry@xxxxxxxxxxxxxxx>]

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?