Hi,

Here's a 5.5 version of this UDC (5.5 lets you use # as a comment), and
5.0 Express 3 and later supports X-only access for UDCs and command files.
X-only access lets you safely place lockwords in your UDC file without
allowing your users to read the file.  Option NOHELP prevents HELP access
but restricting access to eXecute-only is safer (and easier than protecting
the UDC file with a lockword, IMHO).

Jeff Vance, CSY

On Sep 23,  9:39am, Adrian Hart wrote:
> Subject: Help re UDC
> 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.

 COL PARM1="HP2392"
 OPTION NOHELP
 # This UDC file should prevent read access to all but allow X access
 # to those allowed to execute it.  Eg:
 #   altsec udcfile;access=(x:any; r,w,l,a:gu)  or
 #   altsec udcfile;repacd=(racd,x:@.@; r,w,l,a:$group)

 if finfo("colspc3", "exists") then
    FILE SPEC     = COLSPEC/XXXX.MENU
    FILE CATALOG  = COLCATC/XXXX.MENU
    FILE SPECSTD  = COLSSTD/XXXX.MENU
    FILE PROFILE  = COLPROFP/XXXX.MENU;SHR
 else
    FILE SPEC     = COLSPC3/XXXX.MENU
    FILE CATALOG  = COLCAT3/XXXX.MENU
    FILE SPECSTD  = COLSSTD/XXXX.MENU
    FILE PROFILE  = COLPROF3/XXXX.MENU;SHR
 endif
 RUN SPW4GL.SPW70104.SPEEDWRE; &
            INFO="-TREFLECTION -SSTANDARD66 -DSTANDARD66 -Zp256"

 ***


--