Ed,
Thanks for the reply. I have it running from the command but I would like to make it part of my ISR@PRIM panel so can just pick the option.
Any idea on how to code this statement? I have included my latest attempt(option B)
Partial ISR@PRIM code:
IF (&ZSAR = 'CAL','UPS','SES') &ZCMD = 'SP'
&ZSEL = TRANS (TRUNC (&ZCMD,'.')
0,'PGM(ISPISM) SCRNAME(SETTINGS)'
1,'PGM(ISRBRO) PARM(ISRBRO01) SCRNAME(VIEW)'
2,'PGM(ISREDIT) PARM(P,ISREDM01) SCRNAME(EDIT)'
3,'PANEL(ISRUTIL) SCRNAME(UTIL)'
4,'PANEL(ISRFPA) SCRNAME(FOREGRND)'
5,'PGM(ISRJB1) PARM(ISRJPA) SCRNAME(BATCH) NOCHECK'
6,'PGM(ISRPTC) SCRNAME(CMD)'
7,'PGM(ISPYXDR) PARM(&ZTAPPLID) SCRNAME(DTEST) NOCHECK'
8,'PANEL(ISRLPRIM) SCRNAME(LMF)'
9,'PANEL(ISRDIIS) ADDPOP'
B,'PGM(ARSIARSM) NEWAPPL(ARSM)'
F,'CMD(FUSION) NEWAPPL(PROM)'
M,'PGM(DMMSGDSP) PARM(VS.CDPS.NDM.MSG)'
N,'PGM(DMISTART) PARM(VS.CDPS.NDM.NETMAP) NEWAPPL(CD)'
O,'PANEL(OPENED)'