> how to obtain current TCB address in an assembly pgm.
USING PSA,0 PSA addressability
L R3,PSATOLD -> Current TCB
USING TCB,R3 TCB addressability
...
IHAPSA LIST=NO PSA DSECT
IKJTCB LIST=NO TCB DSECT-- WB ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
