RE: CL Formatting, was WDSc workstation requirements

if (&lib *eq 'QTEMP') do
   /* run some code */
enddo

else if (&lib &eq 'QSYS') do
   /* run some other code */
enddo

else do
   /* still another set of commands */
enddo

if cond(&lib *eq 'QTEMP') then(do)
   /* run some code */
enddo

else cmd(if (&lib &eq 'QSYS') then(do))
   /* run some other code */
enddo

else cmd(do)
   /* still another set of commands */
enddo

How would Ernie's program reformat this:
SAV     DEV(&SAVDEV) +
         OBJ(('/*') +
             ('/QSYS.LIB' *OMIT) /* Saved with SAVLIB */ +
             ('/QDLS' *OMIT)     /* Saved with SAVDLO */ +
             ('/QCA400' *OMIT)   /* iSeries access updates */ +
             ('/QFileSvr.400' *OMIT) /* 400-to-400 mapping */ +
             ('/QOPT' *OMIT)     /* Optical drives */ +
             ('/QPWX*' *OMIT) +
             ('/QTCPTMM' *OMIT) +
             ('/tmp'     *OMIT)  /* Temp data, avoid conflicts */ +
             ('/PSF400'  *OMIT) +
             ('/PSFSMTP' *OMIT) +
             ('/QIBM/ProdData/InfoCenter' *OMIT)) +
         SAVACT(*YES) SAVACTOPT(*ALWCKPWRT) +
         OUTPUT(*PRINT) EXPDATE(&EXPDT) +
         ENDOPT(*LEAVE) UPDHST(*YES)
Which got reformatted to the yuck that SEU does?  Try pasting that into
SEU and reformatting that with F4 and run it through Ernie's program.
Basically my point is not to rely on these types of tools.

Rob Berendt