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
 

 

ISPF - How to come out of ISPF Panel

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> TSO/ISPF
View previous topic :: :: View next topic  
Author Message
parasmalik20

New User


Joined: 01 Jun 2016
Posts: 3
Location: India

PostPosted: Tue Feb 21, 2017 7:44 pm    Post subject: ISPF - How to come out of ISPF Panel
Reply with quote

Hi All,

I have a requirement wherein my REXX is calling a panel1 and by entering a desired input it gets navigated to panel2.

Pressing F3 makes me to go back to panel1 and an another PF3 press takes me to home screen(out of rexx).

Is there any way where i can comeout directly(I don't want PF3 to be pressed twice). Can i set some shortcut to come out of ISPF panel.

Kindly give me some pointers.

Thanks,
Paras
Back to top
View user's profile Send private message

prino

Senior Member


Joined: 07 Feb 2009
Posts: 1002
Location: Oostende, Belgium

PostPosted: Tue Feb 21, 2017 10:50 pm    Post subject:
Reply with quote

Code:
=X
Back to top
View user's profile Send private message
parasmalik20

New User


Joined: 01 Jun 2016
Posts: 3
Location: India

PostPosted: Tue Feb 21, 2017 11:36 pm    Post subject: ISPF - How to come out of ISPF Panel
Reply with quote

=X doesn't work through REXX.

Please let me know how can we specify =x, when ISPF is invoke through REXX.
Back to top
View user's profile Send private message
enrico-sorichetti

Global Moderator


Joined: 14 Mar 2007
Posts: 10231
Location: italy

PostPosted: Wed Feb 22, 2017 1:32 am    Post subject: Reply to: ISPF - How to come out of ISPF Panel
Reply with quote

Quote:
=X doesn't work through REXX.

bullshit icon_evil.gif
ISPF sets the proper return code to let the invoker of the service to distinguish between PF3 and =X

run Your dialog with a trace or the ispf dialog debug application with the proper stops
Back to top
View user's profile Send private message
Willy Jensen

Active User


Joined: 01 Sep 2015
Posts: 111
Location: Switzerland

PostPosted: Wed Feb 22, 2017 3:40 pm    Post subject:
Reply with quote

I assume that panel1 is a selection panel invoking panel 2. That being the case I am not aware of any method to bypass display of panel1 when closing panel2.
If it is a major issue then I would change panel1 to a display panel and do the selection and invoking of panel2 in the REXX which displays panel1.
Back to top
View user's profile Send private message
Willy Jensen

Active User


Joined: 01 Sep 2015
Posts: 111
Location: Switzerland

PostPosted: Wed Feb 22, 2017 5:43 pm    Post subject:
Reply with quote

Well, I stand corrected, test shows you can bypass panel on the way back. By the way, the panel invoked from a selection panel must itself be a selection panel.
Driver REXX:
Code:

 address ispexec           
 zresp=''                 
 "vput zresp shared"       
 "select panel(zs1)"       
 "vget yourname shared"   
 say 'your name:' yourname   

First panel
Code:

)ATTR                                   
 + type(text) color(green) skip(on)     
 % type(text) color(white) skip(on)     
)Body expand(\\)                         
%\ \Select panel\ \+                     
%Cmd =>_zcmd \ \                         
+                                       
+                                       
%Selections                             
+                                       
+ 1. +Select second panel               
)Init                                   
 if (&zresp NE &Z) .resp = END           
)Proc                                   
 &zsel = Trans(&zcmd 1,'panel(zs2)'     
               X,'EXIT' ' ',' ' *,'?' ) 
)End                                     

Second panel
Code:

)ATTR                                                 
 + type(text) color(green) skip(on)                   
 # type(input ) color(turq  ) hilite(uscore) caps(off)
)Body expand(\\)                                       
%\ \Display panel\ \+                                 
%Cmd =>_zcmd \ \                                       
+                                                     
+                                                     
+Your name#yourname \ \+                               
)Init                                                 
)Proc                                                 
 &zresp = 'DONE'                                       
 vput (yourname) shared                               
 &zsel = &Z                                           
)End                                                   
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
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts Customizing the ISPF HILITE Command Pedro TSO/ISPF 3 Fri Mar 03, 2017 11:49 pm
No new posts the use of 'B3'x character in a panel Pedro TSO/ISPF 1 Thu Feb 16, 2017 3:09 am
No new posts Design of ISPF panel prino TSO/ISPF 2 Wed Jan 25, 2017 10:31 pm
This topic is locked: you cannot edit posts or make replies. Calling REXX code from ISPF panel sanchita dey TSO/ISPF 4 Mon Jan 02, 2017 5:13 pm
No new posts Is the 'prompt' data for the DSLIST p... Willy Jensen TSO/ISPF 2 Tue Dec 06, 2016 4:38 am


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