.; ERRLST.CMD		12-AUG-82	KITTY BETHE
.;		THIS COMMAND FILE IS A "SUBROUTINE" INVOKED
.;		BY QUICKERR, ERRSUM, AND SHUTUP
.;
.;	INPUTS	$QUAL	A DATE STRING (E.G. /DA:T )
.;		$DRV	INPUT DEVICE NAME OR ""
.;
.ENABLE GLOBAL
.ENABLE SUBSTITUTION
;
;	Now you can have specific packets printed out (by number)
;		or you can get the complete report for a specific
;		device or class of devices (asked after packets)
;
.ASK Q Do You Want to See the Full Report for any Specific Errors
.IFF Q .GOTO 20
.SETS NULL ""
;	n.b. If you wish to print out multiple packets put
;	     commas between each number and surround them
;	     with parenthises	e.g. (1.2,2.3,4.3)
;
.5:
.ASKS PKT Enter Packet number(s) - (n.n,n.n,n.n) or return
.IF PKT = NULL .GOTO 15
RPT TI:='$DRV'/W:N/F:F/PA:'PKT''$QUAL'
.GOTO 5
.15:
.ASKS DEV Enter Device Name or MEM or CPU (return if no more to do)
.IF DEV = NULL .GOTO 20
.IF DEV = "MEM" .GOTO 16
.IF DEV = "CPU" .GOTO 17
RPT TI:='$DRV'/DE:'DEV'/W:N/T:E/F:F'$QUAL'
.GOTO 15
.16:
RPT TI:='$DRV'/W:N/T:PR/F:F'$QUAL'
.GOTO 15
.17:
RPT TI:='$DRV'/W:N/T:M/F:F'$QUAL'
.GOTO 15
.20:
