© 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