Adrian Hart wrote:
The CONTINUE should be before the LISTF, not after.

To reply, remove the WILEY_



> Good Day All,
>
> I would like some help with UDC's.
>
> What I want to do within the UDC is check if a Spec file is present,
> if so then use it, otherwise use a another Spec file.
>
> Below is what I have tried. What happens is, if the file is not
> present I get the message "Non-existent file. (CIERR 907)" and then I
> exit the UDC. I thought that the "CONTINUE" would solve this, but
> that is not the case.
>
> COL PARM1="HP2392"
> OPTION NOHELP
> setjcw cierror ok
> comment
> comment cierror of 907 means that the file is not found
> comment
> LISTF COLSPC3.MENU
> CONTINUE
> if cierror = 907 then
>    FILE SPEC          = COLSPEC/XXXX.MENU
>    FILE CATALOG  = COLCATC/XXXX.MENU
>    FILE SPECSTD   = COLSSTD/XXXX.MENU
>    FILE PROFILE    = COLPROFP/XXXX.MENU;SHR
>    RUN SPW4GL.SPW70104.SPEEDWRE; &
>            INFO="-TREFLECTION -SSTANDARD66 -DSTANDARD66 -Zp256"
>  else
>    FILE SPEC          = COLSPC3/XXXX.MENU
>    FILE CATALOG  = COLCAT3/XXXX.MENU
>    FILE SPECSTD   = COLSSTD/XXXX.MENU
>    FILE PROFILE    = COLPROF3/XXXX.MENU;SHR
>    RUN SPW4GL.SPW70104.SPEEDWRE; &
>            INFO="-TREFLECTION -SSTANDARD66 -DSTANDARD66 -Zp256"
> endif
>
> Any thoughts about this process? Is there a better way?
>
> Thanks in advance.
>
> Adrian Hart          e-mail:  [log in to unmask]
> Computer Systems
> Conestoga College
> 299 Doon Valley Dr
> Kitchener Ontario
> N2G 4M4
> TEL (519) 748-5220   Ext 323
> FAX (519) 748-3505
>
> Email  [log in to unmask]