MPE/iX - CI Programming for Stability

July 18, 2008 HP World '01 106
# comments …
if "!streamparms" = "" or pos("entry=","!streamparms") = 0
then
# main entry point of UDC
setvar _str_jobfile word("!streamparms") # extract 1st arg
. . .
# extract remaining stream parameters
setvar _str_parms ups( &
repl(rht("!streamparms",-delimpos("!streamparms"))," ",""))
if setvar(_str_pos, pos(“;JOBQ=“,_str_parms)) > 0 then
setvar _str_jobq word(_str_parms,,2,,_str_pos+5)
endif
if _str_jobq = “” then
# no jobq=name in stream command so look at JOB “card”
STREAM _str_jobcard entry=read_jobcard <!_str_jobfile
if setvar(_str_pos,pos(";JOBQ=",_str_jobcard)) > 0 then
setvar _str_jobq word(_str_jobcard,,2,,_str_pos+5)
endif
endif
Stream UDC - “main”