You must be logged in to use the copy button.

        
**Free
Ctl-Opt
  Copyright('Copyright JAS, Inc.')
  Option(*SrcStmt :*NoDebugIO)  CCSID(*CHAR:*JOBRUN)
  DftActGrp(*No) DecEdit(*Jobrun) ALWNULL(*USRCTL)
  ActGrp('TEST')
  BNDDIR('JASTOOL');

/define Get_Caller_pr
/copy qProtosrc,JSCALLSTK

dcl-s w_Pgm char(10)   inz;

w_pgm = Get_Caller();
dsply  w_pgm;

*inlr = *on;  // Exit application