Portal | Manuals | References | Downloads | Info | Programs | JCLs | Mainframe wiki | Quick Ref
IBM Mainframe Forum Index
IBM Mainframe Forum Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Profile Log in to check your private messages Log in
CICS and LE "Thread" Question

Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> CICS
View previous topic :: :: View next topic  
Author Message
Bill O'Boyle

CICS Moderator

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

PostPosted: Wed Feb 11, 2015 10:56 pm    Post subject: CICS and LE "Thread" Question
Reply with quote


I've got a CICS COBOL Program "A", which calls (not links) to a CICS/Assembler sub-program. In this sub-program, I'm addressing the LE "CAA" (R12-Based --- Common Anchor Area), which is created by the LE-compliant COBOL program and within this DSECT, there's a User-Label "CEECAA_USER_WORD" (a fullword), which IBM has designated for "User" use. The Assembler sub-program is issuing a CICS GETMAIN and I'm stashing this address in this above fullword and then returning to the Calling COBOL program.

Now my "LE" question. After control is returned from the Assembler sub-program, this same CICS/COBOL program calls (not links) to another CICS/COBOL program, who in turn calls this CICS/Assembler sub-program, will this create a new "CAA" or will it be the same one?

I'm hoping it's a new one but I'm afraid that it will be the same one. icon_sad.gif

Fingers tightly crossed.

Back to top
View user's profile Send private message


Active User

Joined: 24 May 2006
Posts: 258
Location: Salem, Oregon

PostPosted: Thu Feb 12, 2015 1:08 am    Post subject:
Reply with quote

When the application ends, the final value in CEECAA_USER_WORD is not copied back into the area associated with the environment token. When the next application is started using a function such as (call_main), (call_sub), or(call_sub_addr), the user word value last established by (set_user_word) is used again.
•The user word associated with the environment token is initialized to 0 when (init_main), (init_main_dp), (init_sub), or (init_sub_dp) is done. The CAA for the initial process thread is initialized with 0 if no (set_user_word) function call has been done before the application is started.
Back to top
View user's profile Send private message
Bill Woodger

DFSORT Moderator

Joined: 09 Mar 2011
Posts: 7312

PostPosted: Thu Feb 12, 2015 1:28 pm    Post subject: Reply to: CICS and LE "Thread" Question
Reply with quote

Hi Bill,

CAA is for each thread at most.

What are you trying to do by this, in case anyone has alternate suggestions?
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 CICS file processing using applicatio... Satish_gsv CICS 3 Sat Jul 11, 2020 4:18 am
No new posts CICS Web services Assistant - Handlin... Kadhir A CICS 3 Thu Jun 25, 2020 6:33 pm
No new posts special characters pipes "|"... VINAY PALLELA COBOL Programming 1 Mon Jun 08, 2020 9:19 am
No new posts Started transaction enters "firs... Marso CICS 3 Sun May 31, 2020 2:14 pm
No new posts CICS exhausted FREE OSCOR hootan CICS 0 Sun May 31, 2020 12:36 pm

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