IBM Mainframe Forum Index
Log In
IBM Mainframe Forum Index Mainframe: Search IBM Mainframe Forum: FAQ Register

CICS and LE "Thread" Question

IBM Mainframe Forums -> CICS
Post new topic   Reply to topic
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
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
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

Moderator Emeritus

Joined: 09 Mar 2011
Posts: 7311
Location: Inside the Matrix

PostPosted: Thu Feb 12, 2015 1:28 pm
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 View Bookmarks
All times are GMT + 6 Hours
Forum Index -> CICS


Similar Topics
Topic Forum Replies
No new posts How to get RBA value from CICS EVENT CICS 5
This topic is locked: you cannot edit posts or make replies. Sample CICS Webservices Program CICS 1
No new posts XML Parsing in COBOL creating "h... COBOL Programming 0
No new posts How do i verify the char field is hav... PL/I & Assembler 1
No new posts parmeter existence bit for URIMAP in ... CICS 1
Search our Forums:

Back to Top