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 find TCA USER in CICS TS 3.2 and TS 4.1

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> CICS
View previous topic :: :: View next topic  
Author Message
CICS Yvon

New User


Joined: 13 Apr 2010
Posts: 2
Location: Quebec

PostPosted: Tue May 11, 2010 6:48 pm    Post subject: How to find TCA USER in CICS TS 3.2 and TS 4.1
Reply with quote

Hello,

My office have some very old homemade programs to create a permanent code (ID) for the minimum security revenu. Some ones are running in z/OS 1.9 and one call them.
We are planning to migrate from CICS TS 3.1 to TS 4.1. I read the IBM’s technical bulletin swg21264616 but the direct access to the TCA is unsupported.

...

Code:
REMPSUIT EQU   *
         L     R1,IDEPASCA       BELONG TO THIS ASCB
         C     R1,PSAAOLD-PSA(R0) OUR ADRESS SPACE ?
         BNE   NEXTCHA           NO, GO TO NEXT IDEPLAG
         CLC   IDEPASTS(8),ASCBINTS-ASCB(R1) EST-CE BIEN LA NOTRE ?
         BNE   NEXTCHA           NON, SUIVANT !
         L     R1,PSATOLD-PSA(R0)            CURRENT TCB
         L     R1,TCBEXT2-TCB(R1)            TCB EXTENTION
         L     R1,TCBCAUF-TCBXTNT2(R1)       AUTH CONTROL BLOCK
         L     R1,AFCSA-DFHAFCB(R1)          CICS CSA ADR
         L     R1,CSAQRTCA-DFHCSADS(R1)      ADR TCA USER
         L     R1,TCASYAA-DFHTCADS(R1)       ADR TCA SYSTEM
         C     R1,IDEPTCAA       OUR TCA ?
         BNE   NEXTCHA
         CLC   IDEPTCID+1(3),TCAKCTTA-DFHTCADY(R1) SAME TASKID
         BNE   NEXTCHA                       NO NEXT

...

I know this instruction is unsupported in CICS TS 3.2. I am not an expert in CICS control blocks and assembler.
What’s is the best method to replace this instruction
(to follow cics storage chains, to create an assembler sub-program, ...) ?

Thanks a lot for guiding me and has a nice end of day.
Back to top
View user's profile Send private message

Bill O'Boyle

CICS Moderator


Joined: 14 Jan 2008
Posts: 2502
Location: Atlanta, Georgia, USA

PostPosted: Tue May 11, 2010 8:00 pm    Post subject: Reply to: How to find TCA USER in CICS TS 3.2 and TS 4.1
Reply with quote

Hello,

Review the following post, which obtains addressability to the TCA, beginning with CICS/TS 3.2 -

http://www.ibmmainframes.com/viewtopic.php?t=46891&highlight=dfhkern

Bill
Back to top
View user's profile Send private message
CICS Yvon

New User


Joined: 13 Apr 2010
Posts: 2
Location: Quebec

PostPosted: Tue May 11, 2010 10:58 pm    Post subject: Reply to: How to find TCA USER in CICS TS 3.2 and TS 4.1
Reply with quote

Thanks Bill for the answer. Does it exist a way to get the same information following chain CICS Control Blocks ? I would like to see a overview of CICS control blocks between TCA address user and a SPI command.
Yvon
Back to top
View user's profile Send private message
Bill O'Boyle

CICS Moderator


Joined: 14 Jan 2008
Posts: 2502
Location: Atlanta, Georgia, USA

PostPosted: Tue May 11, 2010 11:27 pm    Post subject: Reply to: How to find TCA USER in CICS TS 3.2 and TS 4.1
Reply with quote

Actually, it's an IBM Macro DFHKERN and not an API, which you use to obtain the TCA user-address.

Keyword STACK_AVAIL must always be NO. If it's YES then you'll have to use BAKR's as well as PC/PT instructions. BAKR is non-reentrant and should never be used in CICS.

Based upon the code that you sent, the following line -

Code:

         L     R1,CSAQRTCA-DFHCSADS(R1) ADR TCA USER

Can be replaced with -

Code:

         LA    R15,10                   RE-DISPATCH MAX (MORE THAN ENOUGH)
REDSPTCH EQU   *
*
         DFHKERN FUNCTION=INQUIRE_TASK,TCAADDRESS=R1,STACK_AVAIL=NO
*
         LTR   R1,R1                    VALID TCA-USER ADDRESS?
         BNZ   ADTCASYS                 YES, ADR TCA-SYSTEM AREA
         BCT   R15,REDSPTCH             TRY IT AGAIN
ADTCASYS EQU  *
         L     R1,TCASYAA-DFHTCADS(,R1) ADR TCA SYSTEM


DSECTS -

Code:

         DFHAFCD TYPE=DSECT             AFCB-DSECT
         DFHLFX  TYPE=STACKDSECT        LIFO STACK-ENTRY DSECT
         DFHKERN TYPE=PROCESSOWN        GENERATE DSECTS FOR 'INQUIRE_TASK'

You may or may not need DFHLFX, so you can remove it as necessary.

Bill
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 -> CICS All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts Date and time format in CICS Chandru3183 CICS 2 Sat Mar 18, 2017 12:46 pm
No new posts IMS region inactive - User abend code... gthmrj IMS DB/DC 5 Tue Mar 07, 2017 12:29 pm
No new posts Asynchronous CICS Processing Question moezbud CICS 0 Mon Mar 06, 2017 6:13 pm
No new posts CICS Question RE: Browse, Readnext an... moezbud CICS 7 Sun Mar 05, 2017 5:45 am
No new posts User Cancels the job PANDU1 DB2 1 Sat Mar 04, 2017 8:21 pm


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