MPE CI Programming for 7.5

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