View previous topic :: View next topic
|
Author |
Message |
parasmalik20
New User
Joined: 01 Jun 2016 Posts: 9 Location: India
|
|
|
|
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 |
|
|
prino
Senior Member
Joined: 07 Feb 2009 Posts: 1306 Location: Vilnius, Lithuania
|
|
Back to top |
|
|
parasmalik20
New User
Joined: 01 Jun 2016 Posts: 9 Location: India
|
|
|
|
=X doesn't work through REXX.
Please let me know how can we specify =x, when ISPF is invoke through REXX. |
|
Back to top |
|
|
enrico-sorichetti
Superior Member
Joined: 14 Mar 2007 Posts: 10872 Location: italy
|
|
|
|
Quote: |
=X doesn't work through REXX. |
bullshit
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 |
|
|
Willy Jensen
Active Member
Joined: 01 Sep 2015 Posts: 712 Location: Denmark
|
|
|
|
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 |
|
|
Willy Jensen
Active Member
Joined: 01 Sep 2015 Posts: 712 Location: Denmark
|
|
|
|
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 |
|
|
|