parm sp_nrecs

# FILENAME: SPLPURGS.XEQ - Joe Geiser
#
# Called from 'SPLPURGE', this cmdfile will purge
#  all spoofles for current job/session number.

setvar sp_jsnum,""
setvar sp_purge,""
setvar sp_end,0
setvar sp_cntr,0
while !sp_cntr < !sp_nrecs
  input sp_rec
  if "![str("!sp_rec",1,1)]" = "#"
    setvar sp_jsnum,"![str("!sp_rec",13,8)]"
    setvar sp_end,pos(" ","!sp_jsnum")
    setvar sp_jsnum,"![str("!sp_jsnum",1,sp_end-1)]"
    if "!sp_jsnum" = "!hpjobnum"
      setvar sp_spflen,pos(" ","!sp_rec")-2
      setvar sp_purge,"purge "+"![str("!sp_rec",2,!sp_spflen)]"+".out.hpspool"
      !sp_purge
    endif
  endif
  setvar sp_cntr,!sp_cntr + 1
endwhile