| IBM MAINFRAME HELP & SUPPORT FORUMS
Technical Forums for IBM Mainframe Applications like COBOL, JCL, CICS, DB2, FileAid, DFSORT, Endevor, Xpediter, CoolGen, CA-7&11, AbendAid, IMS, IDMS, PL/I, MqSeries, SyncSort, Assembler, ChangeMan, Easytrieve, InterTest, REXX, CLIST etc...
|
| View previous topic :: View next topic |
| Author |
Message |
sprikitik
Joined: 29 Jan 2007
Posts: 19
Location: Makati City, Philippines
|
| Posted: Tue Aug 05, 2008 10:26 am Post subject: PGM and TransID |
|
|
Hi,
I have a 2 programs PGM1 (transid=IN01) and PGM2 (no transID)
PGM2 i called by PGM1
if PGM2 issued:
EXEC CICS RETURN
TRANSID (EIBTRNID)
COMMAREA (COMM-AREA)
LENGTH (COMM-LENGTH)
END-EXEC
where will will the program return?
what i want to do is to return to PGM2. How can i do that?
Thanks |
|
| Back to top |
|
Peter Zimmermann
Joined: 04 Aug 2008
Posts: 1
Location: Heidelberg
|
| Posted: Tue Aug 05, 2008 11:07 am Post subject: Re: PGM and TransID |
|
|
sprikitik wrote: Hi,
I have a 2 programs PGM1 (transid=IN01) and PGM2 (no transID)
PGM2 i called by PGM1
if PGM2 issued:
EXEC CICS RETURN
TRANSID (EIBTRNID)
COMMAREA (COMM-AREA)
LENGTH (COMM-LENGTH)
END-EXEC
where will will the program return?
what i want to do is to return to PGM2. How can i do that?
Thanks
Hi,
in PGM1 you can return to pgm2 with
EXEC CICS XCTL ....
PGM2 startet new with first statement.
Or your PGM2 to call PGM1 with
EXEC CICS LINK ....
The return-point in PGM2 ist the next statement after EXEC CICS LINK...
when PGM1 is finished.
I hope that is helpfull for your problem. |
|
| Back to top |
|
Earl Haigh
Joined: 25 Jul 2006
Posts: 219
|
| Posted: Tue Aug 05, 2008 5:49 pm Post subject: |
|
|
I have a 2 programs PGM1 (transid=IN01) and PGM2 (no transID)
PGM2 i called by PGM1
if PGM2 issued:
EXEC CICS RETURN
TRANSID (EIBTRNID)
COMMAREA (COMM-AREA)
LENGTH (COMM-LENGTH)
END-EXEC
where will will the program return?
what i want to do is to return to PGM2. How can i do that?
(1) PGM2 will return to the transid of PGM1
(2) You can not return to PGM2 with your current logic |
|
| Back to top |
|
Suresh Ponnusamy
Joined: 22 Feb 2008
Posts: 95
Location: New York
|
| Posted: Tue Aug 05, 2008 7:43 pm Post subject: |
|
|
Program A (has Tran ID) can call N number of programs PGM B, PGM C, PGM D etc (No Transaction). Everything will be considered as single Run Unit. So from any of the called program, if we specify EXEC CICS RETURN END-EXEC, CICS will return the control to the Main Program.
I do not think we can do XCTL from a Program which has Transaction to the Program which do not have transaction. XCTL transfer control from one program to another at the same logical level. You cannot return to the calling program.
Correct me If I am wrong. |
|
| Back to top |
|
| |
THIS IS AN ARCIVE FORUM IN READ ONLY MODE. IF YOU WANT TO ASK YOUR DOUBTS USE THE ACTUAL FORUM
|
