MPE/iX - CI Programming for Stability

July 18, 2008 HP World '01 48
Displaying spoolfiles
PRINTSP script:
PARM job=!HPLASTJOB
# Prints spoolfile for a job, default is the last job you streamed
if !job= “” then
echo No job to print
return
endif
setvar hplastjob !job
if hplastspid = “” then
echo No $STDLIST spoolfile to print for !job”.
return
endif
print !HPLASTSPID.out.hpspool
:stream scopejob
#J324
:printsp
:JOB SCOPEJOB,MANAGER.SYS,SCOPE.
Priority = DS; Inpri = 8; Time = UNLIMITED. . .