MVSFORUMS.com Forum Index MVSFORUMS.com
A Community of and for MVS Professionals
 
 FAQFAQ   SearchSearch   Quick Manuals   RegisterRegister 
 ProfileProfile   Log in to check your private messagesLog in to check your private messages   Log inLog in 

Keep Control in PGM

 
Post new topic   Reply to topic   printer-friendly view    MVSFORUMS.com Forum Index -> CICS and Middleware
View previous topic :: View next topic  
Author Message
visu_reddy75
Beginner


Joined: 07 Dec 2006
Posts: 2
Topics: 1

PostPosted: Thu Nov 22, 2007 4:05 am    Post subject: Keep Control in PGM Reply with quote

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


Joined: 20 Apr 2006
Posts: 222
Topics: 24

PostPosted: Thu Nov 22, 2007 5:35 am    Post subject: Reply with quote

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


Joined: 07 Dec 2006
Posts: 2
Topics: 1

PostPosted: Mon Nov 26, 2007 4:18 am    Post subject: Reply with quote

Vivek,

Thanks for your suggestion. Now onwards I follow the rules of this forum.

Regards,
Viswa.
Back to top
View user's profile Send private message
vkphani
Intermediate


Joined: 05 Sep 2003
Posts: 483
Topics: 48

PostPosted: Mon Nov 26, 2007 4:51 am    Post subject: Reply with quote

visu_reddy75 ,

Did you get the solution for your problem? If so, pls post the same here.
Back to top
View user's profile Send private message Send e-mail
Display posts from previous:   
Post new topic   Reply to topic   printer-friendly view    MVSFORUMS.com Forum Index -> CICS and Middleware All times are GMT - 5 Hours
Page 1 of 1

 
Jump to:  
You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum


MVSFORUMS
Powered by phpBB © 2001, 2005 phpBB Group