.; 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: