Portal | Manuals | References | Downloads | Info | Programs | JCLs | Master the Mainframes
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Usergroups Profile Log in to check your private messages Log in
 

 

How to call second panel in REXX
Goto page 1, 2  Next
 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> TSO/ISPF
View previous topic :: :: View next topic  
Author Message
POOJA KHADE

New User


Joined: 28 Dec 2006
Posts: 15
Location: mumbai

PostPosted: Fri Jul 17, 2009 2:05 pm    Post subject: How to call second panel in REXX
Reply with quote

Can any body help me how to call second panel in REXX when i hit an enter key on first Panel.
Back to top
View user's profile Send private message

expat

Global Moderator


Joined: 14 Mar 2007
Posts: 8593
Location: Back in jolly old England

PostPosted: Fri Jul 17, 2009 2:08 pm    Post subject:
Reply with quote

Well, let's get one think straight from the start.
ISPF PANEL - ISPF PANEL - ISPF PANEL
No such animal as a REXX panel. It is important to use the correct terminology as you may well confuse others trying to help you if you do not.

What is the first panel, a primary menu panel or merely one displayed from within a REXX program.
Back to top
View user's profile Send private message
POOJA KHADE

New User


Joined: 28 Dec 2006
Posts: 15
Location: mumbai

PostPosted: Fri Jul 17, 2009 2:13 pm    Post subject:
Reply with quote

Actually the first panel is taking some input after that when i hit enter key then second panel should get displayed. First panle is getting displayed through Rexx
Back to top
View user's profile Send private message
enrico-sorichetti

Global Moderator


Joined: 14 Mar 2007
Posts: 10202
Location: italy

PostPosted: Fri Jul 17, 2009 2:14 pm    Post subject: Reply to: REXX Panel
Reply with quote

the simplest way would be ...

Code:
 ... display first panel
Address ISPEXEC "DISPLAY PANEL(YourFirstPanel)"
if  RC = 0 then do
   ... continue with second panel
   Address ISPEXEC "DISPLAY PANEL(YourSecondPanel)"
   if  RC = 0 then do
      ... process second panel data
   end
   else do
       ... tell the user that
      ... he hit PF3
      ... or some error has occurred
   end
end
else do
    ... tell the user that
   ... he hit PF3
   ... or some error has occurred
end
Back to top
View user's profile Send private message
POOJA KHADE

New User


Joined: 28 Dec 2006
Posts: 15
Location: mumbai

PostPosted: Fri Jul 17, 2009 2:31 pm    Post subject:
Reply with quote

Now the case is like i have developed a panel in which i take input as an Job Card and load module library name. After taking input i want to hit enter and after hitting enter second panel should get displayed and ready to take input. So suggest me where i should put the code. Below is the screen shot for displaying first panel

Call Set_Popup
/*"LIBDEF ISPPLIB DATASET ID('CGEY.XPAND.CMMS')"*/
"ISPEXEC DISPLAY PANEL(AMBL001)",
"MSG("||vMessageID||") CURSOR("||vCursorID||")"

vLastRc = RC
vMessageID = ''
vErrorFound = ''
If vLastRc = 8 then
Signal End_All

If ZCMD <> '' then
Do
vCursorID = "ZCMD"
vMessageID = "AMBL011A"
vErrorFound = "Yes"
Call Remove_Popup
Signal Display_Panel
End
Back to top
View user's profile Send private message
enrico-sorichetti

Global Moderator


Joined: 14 Mar 2007
Posts: 10202
Location: italy

PostPosted: Fri Jul 17, 2009 2:38 pm    Post subject: Reply to: REXX Panel
Reply with quote

why don' t You stick to a simpler flow like the one I just showed You

is there something not clear in it ?
its impossible to design anything simpler
Back to top
View user's profile Send private message
POOJA KHADE

New User


Joined: 28 Dec 2006
Posts: 15
Location: mumbai

PostPosted: Fri Jul 17, 2009 2:38 pm    Post subject:
Reply with quote

one more thing after pressing PF3 on second panel it should come on first panel.
Please help
Back to top
View user's profile Send private message
POOJA KHADE

New User


Joined: 28 Dec 2006
Posts: 15
Location: mumbai

PostPosted: Fri Jul 17, 2009 2:40 pm    Post subject:
Reply with quote

Actually that is the requirement for my utility
Back to top
View user's profile Send private message
expat

Global Moderator


Joined: 14 Mar 2007
Posts: 8593
Location: Back in jolly old England

PostPosted: Fri Jul 17, 2009 2:54 pm    Post subject:
Reply with quote

So what is the requirement to go back to panel one after PF3 on panel 2
Back to top
View user's profile Send private message
POOJA KHADE

New User


Joined: 28 Dec 2006
Posts: 15
Location: mumbai

PostPosted: Fri Jul 17, 2009 3:04 pm    Post subject:
Reply with quote

now please see below. This is the code i have written. The problem is that after pressing Enter on first panel its going into infinite loop. Please suugest what i should do to correct that. Also just tell me the code such that when we press PF3 on panel 2 it must go back to panel 1.
JobRexx is my first panel and library is second one.

Display_Panel:
/************/

Call Set_Popup
"ISPEXEC DISPLAY PANEL(JOBREXX)",
"MSG("||vMessageID||") CURSOR("||vCursorID||")"

vLastRc = RC
vMessageID = ''
vErrorFound = ''
If vLastRc = 8 then
Signal End_All

If ZCMD <> '' then
Do
vCursorID = "ZCMD"
vMessageID = "JOBREXXA"
vErrorFound = "Yes"
Call Remove_Popup
Signal Display_Panel
End
if RC = 0 then
"ISPEXEC DISPLAY PANEL(LIBRARY)",
"MSG("||vMessageID||") CURSOR("||vCursorID||")"

vLastRc = RC
vMessageID = ''
vErrorFound = ''
If vLastRc = 8 then
Signal End_All

If ZCMD <> '' then
Do
vCursorID = "ZCMD"
vMessageID = "LIBRARYA"
vErrorFound = "Yes"
Call Remove_Popup
Signal Display_Panel
End
Back to top
View user's profile Send private message
expat

Global Moderator


Joined: 14 Mar 2007
Posts: 8593
Location: Back in jolly old England

PostPosted: Fri Jul 17, 2009 3:07 pm    Post subject:
Reply with quote

Have you tried processing using TRACE ?R
Back to top
View user's profile Send private message
POOJA KHADE

New User


Joined: 28 Dec 2006
Posts: 15
Location: mumbai

PostPosted: Fri Jul 17, 2009 3:11 pm    Post subject:
Reply with quote

no i didn't tried
Back to top
View user's profile Send private message
expat

Global Moderator


Joined: 14 Mar 2007
Posts: 8593
Location: Back in jolly old England

PostPosted: Fri Jul 17, 2009 3:28 pm    Post subject:
Reply with quote

Off you go then, give it a whirl
Back to top
View user's profile Send private message
POOJA KHADE

New User


Joined: 28 Dec 2006
Posts: 15
Location: mumbai

PostPosted: Fri Jul 17, 2009 4:25 pm    Post subject:
Reply with quote

Now i am able to go to panel 2nd after pressing enter. Can you help me to go back to panel 1 when i press PF3
Back to top
View user's profile Send private message
expat

Global Moderator


Joined: 14 Mar 2007
Posts: 8593
Location: Back in jolly old England

PostPosted: Fri Jul 17, 2009 4:32 pm    Post subject:
Reply with quote

expat wrote:
So what is the requirement to go back to panel one after PF3 on panel 2

I ask for a second time
Back to top
View user's profile Send private message
POOJA KHADE

New User


Joined: 28 Dec 2006
Posts: 15
Location: mumbai

PostPosted: Fri Jul 17, 2009 5:00 pm    Post subject:
Reply with quote

the condition is like i m accepting some input from panel2 and if i want to exit and if i press PF3 i shld be able to go back to panel 1. IF i accept input from panel2 and press enter then also it shld go to panel1
Back to top
View user's profile Send private message
POOJA KHADE

New User


Joined: 28 Dec 2006
Posts: 15
Location: mumbai

PostPosted: Fri Jul 17, 2009 7:01 pm    Post subject:
Reply with quote

Will any body reply me. If we press PF3 on panel2 it should go back to Panel1 and should not exit from panel2
Back to top
View user's profile Send private message
Pedro

Senior Member


Joined: 01 Sep 2006
Posts: 2019
Location: Silicon Valley

PostPosted: Fri Jul 17, 2009 9:17 pm    Post subject: Reply to: REXX Panel
Reply with quote

What is the purpose of this:
Code:
If vLastRc = 8 then
Signal End_All

It looks like it exits altogether after ending the second panel. If you do not want that, you need to change your logic.
Back to top
View user's profile Send private message
expat

Global Moderator


Joined: 14 Mar 2007
Posts: 8593
Location: Back in jolly old England

PostPosted: Sat Jul 18, 2009 12:30 am    Post subject:
Reply with quote

POOJA KHADE wrote:
Will any body reply me. If we press PF3 on panel2 it should go back to Panel1 and should not exit from panel2

Interesting concept. You can display only one panel at a time, so which is it to be, one or two ???
Back to top
View user's profile Send private message
POOJA KHADE

New User


Joined: 28 Dec 2006
Posts: 15
Location: mumbai

PostPosted: Tue Jul 21, 2009 12:40 pm    Post subject: Reply to: How to call second panel in REXX
Reply with quote

I want to display 1st panel when i press PF3 on panel 2nd. I dont want to end and exit after pressing PF3 on Panel 2nd
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 -> TSO/ISPF All times are GMT + 6 Hours
Goto page 1, 2  Next
Page 1 of 2

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts Is the 'prompt' data for the DSLIST p... Willy Jensen TSO/ISPF 2 Tue Dec 06, 2016 4:38 am
No new posts What is the command to check MODE of ... rohanthengal CLIST & REXX 6 Fri Nov 18, 2016 1:48 pm
This topic is locked: you cannot edit posts or make replies. Rexx to create GDG by scanning JJ result krish.deepu CLIST & REXX 5 Tue Oct 25, 2016 5:32 pm
No new posts Replace repeated JCL with looping REXX prino CLIST & REXX 3 Thu Oct 13, 2016 5:30 am
No new posts Cobol EZASOKET call to SETSOCKOPT fails Andi1982 COBOL Programming 6 Thu Oct 06, 2016 7:12 pm


Facebook
Back to Top
 
Mainframe Wiki | Forum Rules | Bookmarks | Subscriptions | FAQ | Tutorials | Contact Us