Where is this called from

[gregwga50]

I have a CL program, I'll call CLPG2. It is sometimes called from CL program CLPG1. Other times it is called straight from the command line. How can I tell, short of passing a parameter, if the program is being called from another program or it is being run by itself. That is how can I tell where in the invocation stack it is?

[chris_hird]

Re: Where is this called from

What about the QUSRJOBI API, you can see if it was a EVK job (submitted by a program) or INT Interactive job (called from a command line)? If it is submitted then not sure if this works for you?

Chris...

[kitvb1]

Re: Where is this called from

Lokk at Birgitta's post here: https://www.ibm.com/developerworks/c...e-6bd68844175d

[CaptainRon]

Re: Where is this called from

This is a program that displays the calling message q a popup screen.. This is not the screen or anything. Just shows an example on how to do it.

D QUILNGTX PR ExtPgm('QUILNGTX')
D text 65535a const options(*varsize)
D length 10i 0 const
D msgid 7a const
D qualmsgf 20a const
D errorCode 32767a options(*varsize)
D QUSRJOBI PR ExtPgm('QUSRJOBI')
D rcvVar 65535a options(*varsize)
D rcvVarLen 10i 0 const
D format 8a const
D qualJob 26a const
D intJob 16a const
D errorCode 32767a options(*varsize:*nopass)
D kaboom ds
D 10i 0 inz(0)
D 10i 0 inz(0)
/free
QUILNGTX(msg: %len(msg): ' ': ' ': kaboom);
QUSRJOBI(JOBI0600: %size(JOBI0600): 'JOBI0600': '*': *blanks);
if JOBI0600.F12;
return 'F12';
else;
return 'ENT';
endif;
/end-free