MPE/iX - CI Programming for Stability

July 18, 2008 HP World '01 108
else
# alternate entry points for UDC.
setvar _str_entry word("!streamparms",,-1)
# remove entry=name from parm line
setvar _str_entry_parms
lft('!streamparms',pos('entry=','!streamparms')-1)
if _str_entry = "read_jobcard" then
# Arg 1 is the *name* of the var to hold all of the JOB card right of "JOB".
# Input redirected to the target job file being streamed
# Read file until JOB card is found. Return, via arg1, this record,
# including continuation lines, but less the "JOB" token itself. Remove
# all passwords, if any. Skip leading comments in job file.
setvar _str_arg1 word(_str_entry_parms)
while str(setvar(!_str_arg1,ups(input())),2,4) <> "JOB " do
endwhile
# remove line numbers, if appropriate
if setvar(_str_numbered, numeric(rht(!_str_arg1,8))) then
setvar !_str_arg1 lft(!_str_arg1,len(!_str_arg1)-8)
endif
...
Stream UDC - “read_jobcard”