IBM Mainframe Forum Index
 
Register
 
IBM Mainframe Forum Index Mainframe: Search Log in to check your private messages Log in
 

Task and Tran ID for a CICS program


 
IBM Mainframe Forums -> CICS
Post new topic   Reply to topic
View previous topic :: View next topic  
Author Message
tecnokrat
Warnings : 1

Active User


Joined: 22 May 2009
Posts: 160
Location: Bangalore

PostPosted: Thu Jan 27, 2011 3:10 pm
Reply with quote

Hi,
I have a Program B which is being called from the other programs.

At first instance when called from Program-A it gets the EIBTRNID and EIBTASKN as the Program-B is LINKed from Program-A.

But the Subsequent calls from other Programs like Program-C the program-B is called in the CALL mode and hence no values being passed in EIBTASKN and EIBTRNID.

Is there any way that i can get the EIBTRANID and EIBTASKN from the Program-B.

Can the CEE3INF query enclave information be called to get the same.
Back to top
View user's profile Send private message
Garry Carroll

Senior Member


Joined: 08 May 2006
Posts: 1097
Location: Dublin, Ireland

PostPosted: Thu Jan 27, 2011 4:13 pm
Reply with quote

EXEC CICS ADDRESS EIB in order to get this info in Prog-B.

Garry.
Back to top
View user's profile Send private message
tecnokrat
Warnings : 1

Active User


Joined: 22 May 2009
Posts: 160
Location: Bangalore

PostPosted: Thu Jan 27, 2011 6:11 pm
Reply with quote

Thanks Garry It worked fine. icon_smile.gif
Back to top
View user's profile Send private message
Garry Carroll

Senior Member


Joined: 08 May 2006
Posts: 1097
Location: Dublin, Ireland

PostPosted: Thu Jan 27, 2011 7:25 pm
Reply with quote

Glad to be of help.

Garry
Back to top
View user's profile Send private message
Mr Swann

New User


Joined: 09 Jul 2020
Posts: 6
Location: France

PostPosted: Thu Jul 09, 2020 4:03 pm
Reply with quote

Garry Carroll wrote:
EXEC CICS ADDRESS EIB in order to get this info in Prog-B.

Garry.


Very helpfull Gary !

i am in a CICS program but called by a non CICS program


DFHEIBLK was lost ...

and now born again !!!
Back to top
View user's profile Send private message
Mr Swann

New User


Joined: 09 Jul 2020
Posts: 6
Location: France

PostPosted: Thu Jul 09, 2020 5:21 pm
Reply with quote

And - If I may -

how to use it :
Code:

WORKING STORAGE SECTION.

      01 PTRN-EIB   POINTER.


PROCEDURE DIVISION USING XXXXX.

    IF EIBTRNID =<  SPACES
       
        EXEC  CICS
           ADDRESS EIB ( PTRN-EIB  )
       END-EXEC

      SET ADDRESS OF DFHEIBLK TO PTRN-EIB



It works
Back to top
View user's profile Send private message
Garry Carroll

Senior Member


Joined: 08 May 2006
Posts: 1097
Location: Dublin, Ireland

PostPosted: Thu Jul 09, 2020 8:59 pm
Reply with quote

A little over 9 years on ! ... and still here..

Garry
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic All times are GMT + 6 Hours
Forum Index -> CICS
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Forum Replies
No new posts How to get RBA value from CICS EVENT CICS 0
This topic is locked: you cannot edit posts or make replies. Sample CICS Webservices Program CICS 1
No new posts Calling Rexx program from Cobol CLIST & REXX 12
No new posts How to define transaction that trigge... CICS 2
No new posts Call Natural program with rexx CLIST & REXX 2

Back to Top