parm parm1="*",parm2=1
if numeric('!parm1')
  setvar psf_spf '!parm1'
elseif "!parm1" = "*" and hplastspid <> ""
  setvar psf_spf ltrim(hplastspid,"O")
else
  setvar psf_jnum ltrim(ltrim(dwns('!parm1'),'#'),'j')
  if numeric(psf_jnum)
    #   ...find job's $stdlist
    setvar psf_last hplastjob
    setvar hplastjob '#J!psf_jnum'
    setvar psf_spf ltrim(hplastspid,"O")
    setvar hplastjob psf_last
    if psf_spf=""
      echo $stdlist for #J!psf_jnum not found.
      escape
    endif
  else
    echo usage: PSF [nnn] | [[#]Jnnn] [,start]
    echo        where nnn is a spoolfile number,
    echo        #Jnnn is a job number (defaults to last job streamed),
    echo        and start is a line number to start printing.
    return
  endif
endif

print o!psf_spf.out.hpspool;start=!parm2
deletevar psf_@