MPE/iX - CI Programming for Stability

July 18, 2008 HP World '01 100
Where (cont)
. . .
# check for UDCs first
if _wh_udc_ok then
continue
showcatalog >whereudc
if cierror = 0 then
xeq !hpfile !_wh_cmd entry=process_udcs <whereudc
endif
endif
# Now check for command/program files
if word(setvar(_wh_syn,fsyntax(“./”+_wh_cmd))) = “ERROR” then
# illegal name, could be a longer UDC name, in any event there
# no need to check for command/program files.
deletevar _wh_@
return
endif
setvar _wh_wild pos("WILD",_wh_syn) > 0
. . . continued . . .