© unbekannterkünstler@newsgroup

Dieses Programm liest aus den Task-Kontroll-Blöcken den Namen des laufenden Jobs.

/* 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
zurück zu The Power of REXX