Portal | Manuals | References | Downloads | Info | Programs | JCLs | Mainframe wiki | Quick Ref
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Profile Log in to check your private messages Log in
 
PGM and TransID

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> CICS
View previous topic :: :: View next topic  
Author Message
sprikitik

New User


Joined: 29 Jan 2007
Posts: 59
Location: Makati City, Philippines

PostPosted: Tue Aug 05, 2008 10:26 am    Post subject: PGM and TransID
Reply with quote

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
View user's profile Send private message

Peter Zimmermann

New User


Joined: 04 Aug 2008
Posts: 1
Location: Heidelberg

PostPosted: Tue Aug 05, 2008 11:07 am    Post subject: Re: PGM and TransID
Reply with quote

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
View user's profile Send private message
Earl Haigh

Active User


Joined: 25 Jul 2006
Posts: 475

PostPosted: Tue Aug 05, 2008 5:49 pm    Post subject:
Reply with quote

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
View user's profile Send private message
Suresh Ponnusamy

Active User


Joined: 22 Feb 2008
Posts: 107
Location: New York

PostPosted: Tue Aug 05, 2008 7:43 pm    Post subject:
Reply with quote

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
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 Replacing Start Transid with LINK pkmurali CICS 12 Tue Apr 19, 2016 8:22 pm
No new posts Unable to debug START TRANSID CICS pr... Satheeshkumar Compuware & Other Tools 0 Sat Sep 28, 2013 6:03 pm
No new posts EXEC CICS START TRANSID()FROM()..can ... sid_aec CICS 4 Sun Jul 19, 2009 1:41 pm
No new posts START TRANSID is failing to send TWA ... vvgoud CICS 4 Wed May 06, 2009 11:01 pm
No new posts how to delete the program & trans... ritesh pandey CICS 2 Mon Nov 17, 2008 6:07 pm

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