Trailing-Edge
-
PDP-10 Archives
-
BB-FI82B-DD_1989
-
35,1414/fsatst.ctl
There are no other files named fsatst.ctl in the archive.
;%005 FEB 2 78 TONY J. IACOBONE
;* SUB FSATST.CTL[35,1414]/UNIQ:0/TIME,/DIS:DEL
;
;*********BATCH JOB TO RUN DDRPD ON ALL FSA'S ON SYSTEM. ********
;
;*********MUST BE LOGGED INTO 1,2 AREA. ******************************
;
.DIR FSA0:[1,1]
.IF (ERROR) .GOTO DRIVE1
.ERROR %
.DIR FSA0:[1,1]
.IF (ERROR) .GOTO DRIVE1
.SUB FSA0A[35,1414]/TIME/UNIQ:0,/OUT:0
.SUB FSA0B[35,1414]/TIME:00:30:/UNIQ:0/AFTER:+00:30:,/OUT:0
DRIVE1::
.ERROR ?
.DIR FSA1:[1,1]
.IF (ERROR) .GOTO DRIVE2
.ERROR %
.DIR FSA1:[1,1]
.IF (ERROR) .GOTO DRIVE2
.SUB FSA1A[35,1414]/TIME/UNIQ:0,/OUT:0
.SUB FSA1B[35,1414]/TIME:00:30:/UNIQ:0/AFTER:+00:30:,/OUT:0
DRIVE2::
.ERROR ?
.DIR FSA2:[1,1]
.IF (ERROR) .GOTO DRIVE3
.ERROR %
.DIR FSA2:[1,1]
.IF (ERROR) .GOTO DRIVE3
.SUB FSA2A[35,1414]/TIME/UNIQ:0,/OUT:0
.SUB FSA2B[35,1414]/TIME:00:30:/UNIQ:0/AFTER:+00:30:,/OUT:0
DRIVE3::
.ERROR ?
.DIR FSA3:[1,1]
.IF (ERROR) .GOTO DRIVE4
.ERROR %
.DIR FSA3:[1,1]
.IF (ERROR) .GOTO DRIVE4
.SUB FSA3A[35,1414]/TIME/UNIQ:0,/OUT:0
.SUB FSA3B[35,1414]/TIME:00:30:/UNIQ:0/AFTER:+00:30:,/OUT:0
DRIVE4::
.ERROR ?
.DIR FSA4:[1,1]
.IF (ERROR) .GOTO DRIVE5
.ERROR %
.DIR FSA4:[1,1]
.IF (ERROR) .GOTO DRIVE5
.SUB FSA4A[35,1414]/TIME/UNIQ:0,/OUT:0
.SUB FSA4B[35,1414]/TIME:00:30:/UNIQ:0/AFTER:+00:30:,/OUT:0
DRIVE5::
.ERROR ?
.DIR FSA5:[1,1]
.IF (ERROR) .GOTO DRIVE6
.ERROR %
.DIR FSA5:[1,1]
.IF (ERROR) .GOTO DRIVE6
.SUB FSA5A[35,1414]/TIME/UNIQ:0,/OUT:0
.SUB FSA5B[35,1414]/TIME:00:30:/UNIQ:0/AFTER:+00:30:,/OUT:0
DRIVE6::
.ERROR ?
.DIR FSA6:[1,1]
.IF (ERROR) .GOTO DRIVE7
.ERROR %
.DIR FSA6:[1,1]
.IF (ERROR) .GOTO DRIVE7
.SUB FSA6A[35,1414]/TIME/UNIQ:0,/OUT:0
.SUB FSA6B[35,1414]/TIME:00:30:/UNIQ:0/AFTER:+00:30:,/OUT:0
DRIVE7::
.ERROR ?
.DIR FSA7:[1,1]
.IF (ERROR) .GOTO END
.ERROR %
.DIR FSA7:[1,1]
.IF (ERROR) .GOTO END
.SUB FSA7A[35,1414]/TIME/UNIQ:0,/OUT:0
.SUB FSA7B[35,1414]/TIME:00:30:/UNIQ:0/AFTER:+00:30:,/OUT:0
END::