Retrieving calling procedure

[Gene Burns <burns.gene@xxxxxxxxx>]

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?