
472 IBM Application Development Tools for z/OS and OS/390
Example: A-2 ISPF panel FMNPSCKD with modification
&FMNSRL = TRANS(&FMNDFUN LIST,YES *,SKIP)
&P = ' %'
&FMNXDRFM = &FMNVDRFM
IF (&MSG = &Z)
.MSG = 'FMNE510A'
.ALARM = &FMNALARM /* alarm to be sounded ? @D4A*/
&FMNMH = &FMNMHELP /* field help panel for lmsg line*/
IF (&FMNMH = '') /* if no message help */
&FMNMH = .HELP /* show extended help */
)PROC
IF (&ZCMD = '')
VER(&FMNVDDSN,NB)
&FMNVDCAT = &Z
&TvaR = TRUNC(&FMNVDORG,1)
IF (&FMNVDSH2 ¬= '')
VER(&FMNVDSH1,NONBLANK)
&TvaR = TRUNC(&FMNVDALO,1)
&FMNVDALO = TRANS(&TvaR R,REC K,KB M,MB T,TRK C,CYL *,*)
VER(&FMNVDALO,NB,LIS ...