PARM _AZ_SORTKEY1="U"
#
#************************************************************
#*    List users by ldev or logon name.
#*
#*  05/02/97  Abraham Zwygart  Created this CMD
#*
SETVAR _AZ_SORTKEY UPS("!_AZ_SORTKEY1")
IF "!_AZ_SORTKEY" <> "S" AND "!_AZ_SORTKEY" <> "U" THEN
   ECHO YOU MUST HAVE A 'S'=SESSION OR 'U'=USER, [S,U]:
   RETURN
ENDIF
SHOWJOB JOB=@S > AZFILE1
BUILD AZFILE2;REC=-256,,F,ASCII;DISC=256;TEMP
FCOPY FROM=AZFILE1;TO=AZFILE2;SUBSET="#S",1  > $NULL
IF "!_AZ_SORTKEY" = "S" THEN
   RUN SORT.PUB.SYS;STDIN=USERS.XEQ.SYS > $NULL
ELSE
   RUN SORT.PUB.SYS;STDIN=USERU.XEQ.SYS > $NULL
ENDIF
ECHO
ECHO
SHOWTIME
ECHO
ECHO JOBNUM  STATE IPRI JIN  JLIST    INTRODUCED  JOB NAME
ECHO
PRINT AZFILE3;PAGE=3200
SETVAR LINE, FINFO("AZFILE1",19) - 6
PRINT AZFILE1;START=!LINE
PURGE AZFILE1,TEMP
PURGE AZFILE2,TEMP
PURGE AZFILE3
DELETEVAR LINE