©
unknownartist@newsgroup
This program reads the name of the job running from the task control blocks.
/* REXX
*/
CVT = STORAGE(10,4) /* FLCCVT-PSA DATA AREA */
TCBP = STORAGE(D2X(C2D(CVT)),4) /* CVTTCBP */
TCB = STORAGE(D2X(C2D(TCBP)+4),4)
TIOT = STORAGE(D2X(C2D(TCB)+12),4) /* TCBTIO */
say STRIP(STORAGE(D2X(C2D(TIOT)),8)) /* TIOCNJOB */
exit
back to The Power of REXX