Y'know, if I'da thunk ahead, I could'a included these all in *one*
posting.  Sorry for the multiple entries.

Here's one for spool files:

:HELP LS
USER DEFINED COMMAND FILE:  LS.XEQ.SYS

PARM PARM=!HPACCOUNT;OPTION=" "
IF "!PARM" = "!HPACCOUNT" THEN
  LISTSPF O@;SELEQ=[[log in to unmask]];!OPTION
  RETURN
ENDIF
IF "!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=[[log in to unmask]];!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.

--------------------------------------------------------------------------
My mind is my own, as are my ideas and opinions.
My heart, body, and soul, however, all belong to others.          Tim.
--------------------------------------------------------------------------