Portal | Manuals | References | Downloads | Info | Programs | JCLs | Mainframe wiki | Quick Ref
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist 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: 2504
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: 2504
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 Is CICS BMS logic on z/OS different ... Andi1982 CICS 2 Fri Dec 01, 2017 1:56 pm
No new posts How to get complete URL from CICS Con... mbattu CICS 1 Tue Nov 14, 2017 11:59 pm
No new posts Integrating CICS applications craig2020 CICS 1 Sun Oct 29, 2017 6:49 pm
No new posts ASP3 ABEND IN CICS Vedant CICS 0 Fri Oct 20, 2017 3:18 pm
No new posts Identifying Interfaces in CICS/mainframe Ashishpanpaliya CICS 5 Fri Oct 13, 2017 3:21 pm

Facebook
Back to Top
 
Job Vacancies | Forum Rules | Bookmarks | Subscriptions | FAQ | Polls | Contact Us