MPE CI Programming for 7.5

July 22, 2008
Page 81
hp e3000
strategy
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)