Trailing-Edge
-
PDP-10 Archives
-
BB-FI82B-DD_1989
-
35,1414/dx201.ctl
There are no other files named dx201.ctl in the archive.
;%002 10/3/77 TONY J. IACOBONE
; SUB dx201.CTL[35,1414]/TIME:00:30:/UNIQ:0,/DIS:DEL
;
;EDIT BY BOB ST.HILAIRE TO SOME CHECKING OF THE WRITE-RING
;*****BATCH JOB TO RUN DFTUK ON mta1
;
;
.DAY
;
;
;
;
.ERROR
;
;
.AS mta1
.IF (NOERROR) .GOTO REW
.PLEASE*********************************************************
.PLEASE PROBLEM ASSIGNING mta1 CHECK JOBS USING TAPE DRIVE^[
.PLEASE*********************************************************
.REQUEUE 30
.GOTO DONE
REW::
.REW mta1:
.IF (NOERROR) .GOTO WRITE
.PLEASE*********************************************************
.PLEASE UNEXPECTED ERROR IN REWINDING mta1 CHECK LOG^[
.PLEASE*********************************************************
.REQUEUE 30
.GOTO DONE
WRITE::
.ERROR $
.R BACKUP
TA mta1:
REW
SSNAM WRITETEST
SAV [35,1414]
REW
CHECK
EXIT
.IF (NOERROR) .GOTO DFTUK
.PLEASE*********************************************************
.PLEASE PROBLEM WRITING TO mta1 CHECK FOR WRITE RING^[
.PLEASE*********************************************************
.REQUEUE 30
.GOTO DONE
;
dftuk::
.error ?
;***** SET UP LIBRARY SO WE CAN RUN DFTUK
;
.PATH LIB:/SEARCH=KLAD:[6,10]
;
;
.RU DIAMON
S
DFTUK
*Y
400000
0
*Y
*mta1
*TU45
*R1
^C
;
;
.PLEASE 15 MINUTES OF DFTUK FINISHED ON mta1.
.SUB DX201[35,1414]/TIME:00:15:/UNIQ:0/AFTER:+23:59:,/DIS:DEL
;
;******USE TIME LIMIT ERROR TO CAUSE REQUING OF THE SAME JOB
;
%TERR::
.PLEASE *******************************************************
.PLEASE dx201.CTL TIME LIMIT EXCEEDED AFTER 15 MIN.
.PLEASE *******************************************************
;
;
%ERR::
.PLEASE*********************************************************
.PLEASE ERROR IN dx201.CTL---DFTUK STOPPING
.PLEASE*********************************************************
%CERR::
.PLEASE*********************************************************
.PLEASE ERROR IN dx201.CTL---DFTUK STOPPING
.PLEASE*********************************************************
DONE::
%FIN::