PARM FILEDES="@", JOBNAME="@", DEV="@", OWNER=" "
##  DSEQ - WILDCARD DELETE SPOOL FILES
##  TIM ERICSON
IF "!FILEDES"="@" AND "!JOBNAME"="@" AND "!DEV"="@" THEN
  ECHO YOU CANNOT DELETE ALL SPOOLFILES!
  RETURN
ENDIF
IF "!HPACCOUNT" <> "SYS" AND "!DEV" = "@" THEN
  ECHO YOU MUST SPECIFY A PRINTER DEVICE
  RETURN
ENDIF
IF "!OWNER" = " " AND "!HPACCOUNT" = "SYS" THEN
  SETVAR ACCT, "@"
ELSE
   IF "!OWNER" = " " THEN
      SETVAR ACCT, "!HPACCOUNT"
   ELSE
     SETVAR ACCT, "!OWNER"
   ENDIF
ENDIF
SPOOLF O@;DELETE;SHOW;&
  SELEQ=[(FILEDES=!FILEDES) AND &
         (JOBNAME=!JOBNAME) AND &
         (OWNER=@.!ACCT) AND &
         (DEV=!DEV)]
DELETEVAR ACCT