procedure to return calling pgm name

[Paul Jackson <paulgjackson@xxxxxxxxx>]

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

=====
Help prevent pet overpopulation. Please spay & neuter your pets.
http://www.doghause.com/neuter.html
http://www.fixcats.com

__________________________________________________
Do you Yahoo!?
New DSL Internet Access from SBC & Yahoo!
http://sbc.yahoo.com