Enter your search terms Submit search form
	Web pdp-10.trailing-edge.com

;%002 10/3/77  TONY J. IACOBONE
; SUB TU450.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 MTA0
;
;
.DAY
;
;
;
;
.ERROR
;
;
.AS MTA0
.IF (NOERROR) .GOTO REW
.PLEASE failure to assign magtape check jobs using magtape^[
.REQUEUE 30
rew::
.ERROR 
.REW MTA0:
.IF (NOERROR) .GOTO WRITE
.PLEASE******************************************
.PLEASE UNEXPECTED ERROR IN MTA0 CHECK LOG ******************^[
.PLEASE******************************************
.GOTO END
;
WRITE::
.ERROR $
r backup
*ta mta0:
*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
*MTA0
*TU45
*R
^C
.PATH /CLEAR
;
;
.PLEASE 10 MINUTES OF DFTUK FINISHED ON MTA0.
.PLEASE CHECK LOGS AND CLEAN MTA0^[
.SUB TU450[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 TU450.CTL TIME LIMIT EXCEEDED AFTER 10 MIN.
.PLEASE *******************************************************
;
;
%ERR::
.PLEASE******************************************
.PLEASE ERROR IN TU450.CTL---DFTUK STOPPING
.PLEASE******************************************
%CERR::
.PLEASE******************************************
.PLEASE ERROR IN TU450.CTL---DFTUK STOPPING
.PLEASE******************************************
DONE::
%FIN::