Hi ESSTEAM, If you are are using Options on your panel, then you can set &ZCMD to the rexx or clist routine you would like to execute.
)Body width(80) expand(\\)
%--\-\--
%--\-\-- IBM APPLICATION DEVELOPMENT TOOLS --\-\--
%--\-\--
+Command %===>_ZCMD
+
+ %1)+ IBM Application Performance Analyzer
+ %2)+ IBM Debug Tool
+ %3)+ IBM Fault Analyzer
+ %4)+ IBM File Manager
+ %5)+ IBM File Manager for DB2
+ %6)+ IBM File Manager for IMS
+ %7)+ IBM Workload Simulator - Test Manager
+
+ Enter Option and Press %ENTER+ to continue or %PF3 (CANCEL) to exit.
)INIT
)PROC
&ZSEL = TRANS( TRUNC (&ZCMD,'.')
1,'CMD(EX ''SYS1.SCAZEXEC(CAZISPS)'') MODE(FSCR) NEWAPPL(CAZ3)'
2,'CMD(EX ''SYS1.SEQAEXEC(EQASTART)'' ''PUMEMBER(EQAZ&ZSYSID.)'')'
3,'CMD(%IDISISPF)'
4,'CMD(%FMMENU)'
5,'CMD(%FMMENU MPANEL(FMN2ST00) APPL(FMN2))'
6,'CMD(%FMMENU MPANEL(FMN1ST00) APPL(FMN1))'
7,'CMD(%WSIMTM)'
X,EXIT
*,'?'
)
&ZTRAIL=.TRAIL
)END
However, if you had something like this where you are prompting for value and
executing a REXX routine based on that value, then you can do the following:
)Attr Default(%+_)
@ type(text) intens(high) caps(off) just(left ) hilite(blink)
¬ type(input) intens(non)
_ type(input) intens(high) caps(off)
~ type(input) intens(high) caps(on)
)Body width(80) expand(\\)
%--\-\-- SAMPLE OPTION PANEL --\-\--
+Command %===>_ZCMD + Enter %MODEL+ for templates
+
+ %ENTER "OPT1" or "OPT2"
+ %_c1 + Enter "OPT1" or "OPT2"
+
+ Press %ENTER+ to continue or %PF3 (CANCEL) to exit.
)INIT
.cursor = ZCMD
&msg = &Z
&p1 = &Z
)REINIT
)PROC
&C1 = UPPER(C1)
VER (&C1 NONBLANK LIST,OPT1,OPT2)
if (&C1 = 'OPT1')
&ZSEL = 'CMD(OPTION1)'
if (&C1 = 'OPT2')
&ZSEL = 'CMD(OPTION2)'
)END
Rexx routines OPTION1 and OPTION2 are in my SYSEXEC concatenation:
OPTION1:
/* REXX */
say 'executing option 1 rexx routine'
exit
OPTION2:
/* REXX */
say 'executing option 2 rexx routine'
exit
From ISPF OPTION 7.1 select TESTPANL:
SYA1 Invoke Dialog Function/Selection Panel
Command ===>
More: +
Invoke selection panel:
PANEL . . TESTPANL
gives you the display:
Select "OPT1" or "OPT2":
SYA1 ------------------------ SAMPLE OPTION PANEL -----------------------------
Command ===> Enter MODEL for templates
ENTER "OPT1" or "OPT2"
Enter "OPT1" or "OPT2"
Press ENTER to continue or PF3 (CANCEL) to exit.
will then call the appropriate rexx routine:
executing option 1 rexx routine
***
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
