View previous topic :: View next topic
|
Author |
Message |
tecnokrat Warnings : 1 Active User
Joined: 22 May 2009 Posts: 160 Location: Bangalore
|
|
|
|
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 |
|
|
Garry Carroll
Senior Member
Joined: 08 May 2006 Posts: 1193 Location: Dublin, Ireland
|
|
|
|
EXEC CICS ADDRESS EIB in order to get this info in Prog-B.
Garry. |
|
Back to top |
|
|
tecnokrat Warnings : 1 Active User
Joined: 22 May 2009 Posts: 160 Location: Bangalore
|
|
|
|
Thanks Garry It worked fine. |
|
Back to top |
|
|
Garry Carroll
Senior Member
Joined: 08 May 2006 Posts: 1193 Location: Dublin, Ireland
|
|
|
|
Glad to be of help.
Garry |
|
Back to top |
|
|
Mr Swann
New User
Joined: 09 Jul 2020 Posts: 6 Location: France
|
|
|
|
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 |
|
|
Mr Swann
New User
Joined: 09 Jul 2020 Posts: 6 Location: France
|
|
|
|
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 |
|
|
Garry Carroll
Senior Member
Joined: 08 May 2006 Posts: 1193 Location: Dublin, Ireland
|
|
|
|
A little over 9 years on ! ... and still here..
Garry |
|
Back to top |
|
|
|