PARM jobnum=!hplastjob, rtnvar=spid, entry=main if '!entry' = 'main' then # main entry, redirect output of :listspf errclear setvar !rtnvar '' # could syntax check jobnum parm here... listspf O@;seleq=[JOBNUM=!jobnum AND FILEDES=$stdlist] >./jobspid_tmp if hpcierr <> 0 then # listspf couldn't find job echo !jobnum not found. escape else xeq !hpfile !jobnum, !rtnvar, entry=parse_listspf <./jobspid_tmp deletevar _job2spid_@ return endif elseif '!entry' = 'parse_listspf' then # listspf input has been redirected to TEMP file ./jobspid_tmp # throw away 1st 3 lines. input _job2spid_rec input _job2spid_rec input _job2spid_rec setvar !rtnvar rtrim(str(input(),2,8)) return endif