©
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