parm sp_nrecs

# FILENAME: SPLPURGA.XEQ - Joe Geiser
#
# Called from 'SPLPURGE', this cmdfile will sp_purge all
#   spoofles for current logon user.account.

setvar sp_owner,""
setvar sp_end,0
setvar sp_purge,""
setvar sp_hplogon,"!hpuser"+"."+"!hpaccount"
setvar sp_cntr,0
while !sp_cntr < !sp_nrecs
  input sp_rec
  if "![str("!sp_rec",1,1)]" = "#"
    setvar sp_owner,"![str("!sp_rec",63,17)]" +" "
    setvar sp_end,pos(" ","!sp_owner")
    setvar sp_owner,"![str("!sp_owner",1,sp_end-1)]"
    if "!sp_owner" = "!sp_hplogon"
      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