MPE/iX - CI Programming for Stability

July 18, 2008 HP World '01 107
if _str_jobq = '' and finfo(_str_config_file,'exists') then
# No jobq=name specified so far so use the config file.
STREAM ![word(_str_jobcard,";")] _str_jobq entry=read_config &
<!_str_config_file
if _str_jobq <> '' then
# found a match in config file, append jobq name to stream command line
setvar _str_parms _str_parms + ";jobq=!_str_jobq"
endif
endif
. . .
# now finally stream the job.
if _str_jobq = '' then
echo Job file "!_str_jobfile" streamed in default "HPSYSJQ" job queue.
else
echo Job file "!_str_jobfile" streamed in "!_str_jobq" job queue.
endif
option norecursion
continue
stream !_str_jobfile !_str_parms
. . .
Stream UDC - “main” (cont)