UmeySan
Active Member
Joined: 22 Aug 2006 Posts: 771 Location: Germany
|
|
|
|
Hi !
Include the desect for TCB ...here are the details !!!
Code: |
SPACE
IKJTCB DSECT=YES,LIST=YES
SPACE
BAL R14,GETCVT Adress the MVS CVT.
BAL R14,GETTCB Adress the MVS TCB.
GETCVT DS 0H Routine entry point.
ST R14,0(,R8) Store return address to stack.
LA R8,4(,R8) Increment stack pointer.
L R10,CVTPTR Load A(MVS CVT) from PSA after IPL.
USING CVT,R10 Establish CVT addressability.
MVC WDSSYS,CVTSNAME Save current MVS system name.
GETCVT99 DS 0H Routine exit.
SH R8,=H'4' Decrement stack pointer.
L R14,0(,R8) Restore return address.
BR R14 Return to caller.
GETTCB DS 0H Routine entry point.
ST R14,0(,R8) Store return address to stack.
LA R8,4(,R8) Increment stack pointer.
L R10,CVTTCBP Load A(current TCB/ASCB pointers).
DROP R10 Drop MVS CVT.
L R9,4(,R10) Load A(Current TCB).
SH R9,=AL2(TCBPXLEN) Backup to TCB prefix area.
USING TCBFIX,R9 Establish TCB addressability.
GETTCB99 DS 0H Routine exit.
SH R8,=H'4' Decrement stack pointer.
L R14,0(,R8) Restore return address.
BR R14 Return to caller.
DROP R9 Drop MVS TCB.
|
Regards, UmeySan |
|