IBM Mainframe Forum Index
 
Log In
 
IBM Mainframe Forum Index Mainframe: Search IBM Mainframe Forum: FAQ Register
 

ISPF - How to come out of ISPF Panel


IBM Mainframe Forums -> TSO/ISPF
Post new topic   Reply to topic
View previous topic :: View next topic  
Author Message
parasmalik20

New User


Joined: 01 Jun 2016
Posts: 9
Location: India

PostPosted: Tue Feb 21, 2017 7:44 pm
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
Warnings : 1

Senior Member


Joined: 07 Feb 2009
Posts: 1241
Location: Vilnius, Lithuania

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

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

New User


Joined: 01 Jun 2016
Posts: 9
Location: India

PostPosted: Tue Feb 21, 2017 11:36 pm
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

Senior Moderator


Joined: 14 Mar 2007
Posts: 10714
Location: italy

PostPosted: Wed Feb 22, 2017 1:32 am
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: 416
Location: Denmark

PostPosted: Wed Feb 22, 2017 3:40 pm
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: 416
Location: Denmark

PostPosted: Wed Feb 22, 2017 5:43 pm
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 View Bookmarks
All times are GMT + 6 Hours
Forum Index -> TSO/ISPF

 


Similar Topics
Topic Forum Replies
No new posts How to setup MQ panel TSO/ISPF 3
No new posts ISPF Panel commands DDLIST /LISTBOX TSO/ISPF 11
No new posts Am Getting a vertical line in ISPF SC... TSO/ISPF 3
No new posts Unable to scroll in REXX panel CLIST & REXX 4
No new posts ISPF Edit Macro with profile commands... TSO/ISPF 14
Search our Forums:

Back to Top