Re: procedure to return calling pgm name

If you look into the Archive, you should find  a post that I did a while
ago where I posted a CL program that does that.

Denis Robitaille
Directeur services technique TI
819 363 5187

>>> paulgjackson@yahoo.com 09/24/02 02:46am >>>
Hello,
I would like to write a service program procedure that
returns the name of the program that is calling the
program that is invoking the procedure. In other words
something like the following:

D CallingPgm      S   10A
 /Free
   CallingPgm = RtvCallingPgm();
   if callingpgm = 'QCMD';
     do something ;
   endif;

 /End-Free

Is there a relatively simple technique for doing this?
I know you can use SNDPGMMSG/RCVMSG or equivalent and
interrogate the SENDER info, but was wondering if
there's a more elagant solution that has arrived on
the scene with ILE and V5r1.

Also the CL RETURN command does not support a return
variable, is there a way to write a procedure in CL
and have it function as shown in the example above?

Thanks in advance,

-Paul