Author: Willy Jensen
Posted: Wed Feb 22, 2017 5:43 pm (GMT 5.5)
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:
First panel
Second panel
_________________
WJ
Posted: Wed Feb 22, 2017 5:43 pm (GMT 5.5)
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 |
_________________
WJ