Adrian wrote:
<snip>
> 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
<snip>

The :continue should probably go *before* the listf. Another way would be to
use the FINFO CI-function; as in:

IF Finfo("COLSPC3.MENU","EXISTS")
    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"
else
    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"
endif
hth
/per