Google
 

Trailing-Edge - PDP-10 Archives - BB-FI82B-DD_1989 - 35,1414/tu451.ctl
There are no other files named tu451.ctl in the archive.
;%002 10/3/77  TONY J. IACOBONE
; SUB TU451.CTL[35,1414]/TIME:00:30:/UNIQ:0,/DIS:DEL
;edit BOB ST HILAIRE 5/15/80
;TO INCLUDE SOME CHECKING FOR THE WRITE RING
;
;*****BATCH JOB TO RUN DFTUK ON MTA1
;
;
.DAY
;
;
;
;
.ERROR
;
;
.AS MTA1
.IF (NOERROR) .GOTO REW
.PLEASE failure to assign magtape check jobs using magtape^[
.REQUEUE 30
rew::
.ERROR 
.REW MTA1:
.IF (NOERROR) .GOTO WRITE
.PLEASE******************************************
.PLEASE UNEXPECTED ERROR IN MTA1 CHECK LOG ******************^[
.PLEASE******************************************
.GOTO END
;
WRITE::
.ERROR $
r backup
*ta mta1:
*ssnam writetest
*rew
*sav [35,1414]
*rew
*check
*exit
.IF (NOERROR) .GOTO DFTUK
.PLEASE Magtape failed to write check write-ring^[
.REQUEUE 30
DFTUK::

;***** SET UP LIBRARY SO WE CAN RUN DFTUK
;
.PATH LIB:/SEARCH=KLAD:[6,10]
;
;
.RU DIAMON
S
DFTUK
*Y
400000
0
*Y
*MTA1
*TU45
*R
^C
.PATH /CLEAR
;
;
.PLEASE 10 MINUTES OF DFTUK FINISHED ON MTA1.
.PLEASE CHECK LOGS AND CLEAN MTA1^[
.SUB TU451[35,1414]/TIME/UNIQ:0/AFTER:+23:59:,/DIS:DEL
.GOTO DONE
END::
.REQUEUE 30
;
;******USE TIME LIMIT ERROR TO CAUSE REQUING OF THE SAME JOB
;
%TERR::
.PLEASE *******************************************************
.PLEASE TU451.CTL TIME LIMIT EXCEEDED AFTER 10 MIN.
.PLEASE *******************************************************
;
;
%ERR::
.PLEASE******************************************
.PLEASE ERROR IN TU451.CTL---DFTUK STOPPING
.PLEASE******************************************
%CERR::
.PLEASE******************************************
.PLEASE ERROR IN TU451.CTL---DFTUK STOPPING
.PLEASE******************************************
DONE::
%FIN::