Portal | Manuals | References | Downloads | Info | Programs | JCLs | Master the Mainframes
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Usergroups Profile Log in to check your private messages Log in
 

 

How to get details about TCB

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> PL/I & Assembler
View previous topic :: :: View next topic  
Author Message
girishms

New User


Joined: 06 Jun 2008
Posts: 21
Location: chennai

PostPosted: Thu Jun 12, 2008 2:42 pm    Post subject: How to get details about TCB
Reply with quote

HI all,

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

Thanks,
Girish.
Back to top
View user's profile Send private message

enrico-sorichetti

Global Moderator


Joined: 14 Mar 2007
Posts: 10211
Location: italy

PostPosted: Thu Jun 12, 2008 3:37 pm    Post subject: Reply to: How to get details about TCB
Reply with quote

what details do You need ??
Back to top
View user's profile Send private message
UmeySan

Active Member


Joined: 22 Aug 2006
Posts: 743
Location: Germany

PostPosted: Thu Jun 12, 2008 4:52 pm    Post subject:
Reply with quote

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
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> PL/I & Assembler All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts hot to get details when "EXEC CI... Andi1982 CICS 11 Tue Sep 20, 2016 5:01 pm
No new posts Connect Direct details shankarm IBM Tools 2 Sat Feb 20, 2016 7:25 pm
No new posts Sticky: Details on food and accommodations fo... mcmillan Site Announcements 4 Thu Dec 03, 2015 11:02 pm
No new posts Getting job details that ran in a par... Lingam D CLIST & REXX 11 Mon Jan 20, 2014 6:51 pm
No new posts Error in fetching the details from PANEL Ramsee TSO/ISPF 11 Mon Nov 18, 2013 1:31 pm


Facebook
Back to Top
 
Mainframe Wiki | Forum Rules | Bookmarks | Subscriptions | FAQ | Tutorials | Contact Us