View previous topic :: View next topic |
Author |
Message |
visu_reddy75 Beginner
Joined: 07 Dec 2006 Posts: 2 Topics: 1
|
Posted: Thu Nov 22, 2007 4:05 am Post subject: Keep Control in PGM |
|
|
I have Program A and Program B which were be used by same transaction TRAN.
Program A uses Screen A and according to the input given in Screen A control goes to Program B and displays Screen B. But while calling Program B I use XCTL.
Suppose in Program B I use EXEC CICS RETURN TRANSID ('TRAN') COMMAREA (WS_COMM_AREA) END-EXEC. Control goes to Program A. But according to me the control should be in Program B and I have to do some process.
So when I used EXEC CICS RETURN END-EXEC controls goes to CICS and in PROGRAM B EIBCALEN is not setting to greater than zeros. So I am unable to proceed furthur.
Program A.
Code: |
Procedure division using DFHEIBLK, DFHCOMMAREA.
EVALUATE true
When EIBCALEN = 0
Send map( ) mapset( )
When EIBAID = DFHENTER
RECEIVE Map( ) Mapset( )
-------------PROCESS------
Send Map( ) MApset( )
END-Evaluate.
EXEC CICS Return TransID('TRAN') COMMAREA(WS-COMM-AREA)
PROCESS...
IF InputI = 1000
EXEC CICS XCTL Program(Program B)
------------------------
Program B.
EVALUATE true
When EIBCALEN = 0
Send map( ) mapset( )
When EIBAID = DFHENTER
RECEIVE Map( ) Mapset( )
-------------PROCESS------
Send Map( ) MApset( )
END-Evaluate.
EXEC CICS Return TransID('TRAN') COMMAREA(WS-COMM-AREA)
|
PLease let me know the solution how can I keep control in the Program B to do the process.
Thanks,
Viswa. |
|
Back to top |
|
|
vivek1983 Intermediate
Joined: 20 Apr 2006 Posts: 222 Topics: 24
|
Posted: Thu Nov 22, 2007 5:35 am Post subject: |
|
|
visu_reddy75,
Welcome to MVSFORUMS !
But then.. You need to follow the rules of this forum..
You should not post a topic with irrelevant subject ("Hi all").. Please try to post a relavant subject to your topic the next time you post in this forum.
Also U can enclose your codes in [CODE] tags to make your code more readable. _________________ Vivek G
--------------------------------------
A dream is just a dream. A goal is a dream with a plan and a deadline. (Harvey Mackay) |
|
Back to top |
|
|
visu_reddy75 Beginner
Joined: 07 Dec 2006 Posts: 2 Topics: 1
|
Posted: Mon Nov 26, 2007 4:18 am Post subject: |
|
|
Vivek,
Thanks for your suggestion. Now onwards I follow the rules of this forum.
Regards,
Viswa. |
|
Back to top |
|
|
vkphani Intermediate
Joined: 05 Sep 2003 Posts: 483 Topics: 48
|
Posted: Mon Nov 26, 2007 4:51 am Post subject: |
|
|
visu_reddy75 ,
Did you get the solution for your problem? If so, pls post the same here. |
|
Back to top |
|
|
|
|