Google
 

Trailing-Edge - PDP-10 Archives - BB-FI82B-DD_1989 - 35,1414/tu770b.ctl
There are no other files named tu770b.ctl in the archive.
;%002 10/3/77  TONY J. IACOBONE
;TJI 1/10/83
; SUB TU770B.CTL[35,1414]/TIME:00:30:/UNIQ:0/PRIOR:5,/OUT:ERROR
;edit BOB ST HILAIRE 5/15/80
;TO INCLUDE SOME CHECKING FOR THE WRITE RING
;
;*****BATCH JOB TO RUN DFTUK ON MTB0
;
;
.DAY
;
;
;
;
.ERROR
;
;
.AS MTB0
.IF (NOERROR) .GOTO REW
.PLEASE failure to assign magtape check jobs using magtape^[
.REQUEUE 30
rew::
.ERROR 
.REW MTB0:
.IF (NOERROR) .GOTO WRITE
.PLEASE ???UNEXPECTED ERROR IN MTB0 CHECK LOG???^[
.GOTO END
;
WRITE::
.ERROR $
r backup
*ta mtB0:
*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=[6,10]
;
;
.RU DIAMON
S
DFTUK
*Y
400000
0
*Y
*MTB0
*TU77
*R
^C
.PATH /CLEAR
;
;
.PLEASE ***10 MINUTES OF DFTUK FINISHED ON MTB***^[
.PLEASE ***CHECK LOGS AND CLEAN MTB0***^[
.SUB TU770B[35,1414]/TIME/PRIOR:5/UNIQ:0/AFTER:+23:59:,/OUT:ERROR
.GOTO DONE
END::
.REQUEUE 30
;
;******USE TIME LIMIT ERROR TO CAUSE REQUING OF THE SAME JOB
;
%TERR::
.PLEASE ???TU770B.CTL TIME LIMIT EXCEEDED???^[
;
%ERR::
.PLEASE ???ERROR IN TU770B.CTL---DFTUK STOPPING???^[
%CERR::
.PLEASE ???ERROR IN TU770B.CTL---DFTUK STOPPING???^[
DONE::
%FIN::