MPE/iX - CI Programming for Stability

July 18, 2008 HP World '01 109
…
# concatenate continuation (&) lines
while rht(setvar(!_str_arg1,rtrim(!_str_arg1)),1) = '&' do
# remove & and read next input record
setvar !_str_arg1 lft(!_str_arg1,len(!_str_arg1)-1)+ltrim(rht(input(), -2))
if _str_numbered then
setvar !_str_arg1 lft(!_str_arg1,len(!_str_arg1)-8
endif
endwhile
# remove passwords, if any
while setvar(_str_pos,pos('/',!_str_arg1)) > 0 do
setvar !_str_arg1 repl(!_str_arg1,"/"+word(!_str_arg1,'.,;',,,_str_pos+1),"")
endwhile
# return, upshifted, all args right of "JOB", and strip all blanks.
setvar !_str_arg1 ups(repl(xword(!_str_arg1)," ",""))
return
Stream UDC - “read_jobcard” (cont)