How to get details about TCB

girishms · New User Joined: 06 Jun 2008 Posts: 22 Location: chennai

HI all,

i would like know how to get the details of TCB of a task in assembler ..

Thanks,
Girish.

enrico-sorichetti

what details do You need ??

UmeySan · Posted: Thu Jun 12, 2008 4:52 pm Post subject:

Hi !

Include the desect for TCB ...here are the details !!!

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