$!-----------------------------------------------------------------------------
$! WUCME_ROOT:[000000]STARTUP.COM
$!
$! 11-SEP-2025  MGD  initial
$!-----------------------------------------------------------------------------
$!! set verify
$ if p1 .eqs. "" then p1 = "detach"
$ p1 = "/" + p1
$ procCom = f$edit(f$environment("procedure"),"upcase")
$ wucmeRoot = f$parse(procCom,,,"device","no_conceal") + -
              f$parse(procCom,,,"directory","no_conceal") - -
              "][" - ".000000" - "000000." - "]" + ".]"
$ define /system /executive /nolog /translation=(concealed,terminal) -
         WUCME_ROOT 'wucmeRoot'
$!
$ @wucme_root:[000000]logicals.com
$!
$! appropiate privileges
$!! privs = "(sysprv,syslck)"
$ privs = "(sysprv,syslck,setprv)"
$!! 
$ wucme == "apache$common:[cgi-bin]wucme.exe"
$ define /system /nolog wucme_exe "''wucme'"
$!
$! apply privileges to wuCME location 
$ if f$file(wucme,"known") then install remove 'wucme'
$ install add /open /header /share 'wucme' /priv='privs'
$!
$ wucme == "$''wucme'"
$ wucme 'p1'
$!
$!-----------------------------------------------------------------------------