PARM PARM=!HPACCOUNT;OPTION=" " ## LS.XEQ - LIST SPOOL FILES WITH OPTION OPTIONAL ## TIM ERICSON IF "!PARM" = "!HPACCOUNT" THEN LISTSPF O@;SELEQ=[OWNER=@.!PARM];!OPTION RETURN ENDIF IF UPS("!PARM") = "ME" THEN LISTSPF O@;SELEQ=[JOBNUM=!HPJOBTYPE!HPJOBNUM];!OPTION RETURN ENDIF SETJCW CIERROR = 0 CONTINUE SHOWDEV !PARM > $NULL IF CIERROR = 0 THEN LISTSPF O@;SELEQ=[DEV=!PARM];!OPTION RETURN ENDIF IF ( ( UPS(LFT("!PARM",1))="J" OR UPS(LFT("!PARM",1))="S" ) AND & NUMERIC(RHT("!PARM",LEN("!PARM")-1)) ) & OR ( ( UPS(LFT("!PARM",2))="#J" OR UPS(LFT("!PARM",2))="#S" ) AND & NUMERIC(RHT("!PARM",LEN("!PARM")-2)) ) THEN LISTSPF O@;SELEQ=[JOBNUM=!PARM];!OPTION RETURN ENDIF IF ( "!PARM" = "J@" OR "!PARM" = "S@" ) & OR ( "!PARM" = "J'@" OR "!PARM" = "S'@" ) & OR ( "!PARM" = "#J@" OR "!PARM" = "#S@" ) THEN LISTSPF O@;SELEQ=[JOBNUM=!PARM];!OPTION RETURN ENDIF IF ( NUMERIC("!PARM") ) & OR ( LFT("!PARM",1)="O" AND & NUMERIC(RHT("!PARM",LEN("!PARM")-1)) ) THEN LISTSPF O@;SELEQ=[SPOOLID=!PARM];!OPTION RETURN ENDIF SETJCW CIERROR = 0 CONTINUE LISTF Z.PUB.!PARM > $NULL IF CIERROR <> 909 THEN LISTSPF O@;SELEQ=[OWNER=@.!PARM];!OPTION RETURN ENDIF ECHO UNKNOWN PARM '!PARM' ECHO PARM MUST BE A PRINTER, A SYSTEM ACCOUNT, ECHO A JOB NUMBER, OR A SPOOL FILE NUMBER.