Google
 

Trailing-Edge - PDP-10 Archives - BB-FI82B-DD_1989 - 35,1414/dx0tst.ctl
There are no other files named dx0tst.ctl in the archive.
;%002 10/3/77  TONY J. IACOBONE
; SUB DX0TST.CTL[35,1414]/TIME:00:30:/UNIQ:0,/OUT:0
;
;*****BATCH JOB TO RUN DDTUB ON MTA1
;
;
.DAY
;
;
;
.ERROR
;
;
.AS mta0
.IF (NOERROR) .GOTO REW
.PLEASE*********************************************************
.PLEASE PROBLEM ASSIGNING mta0 CHECK JOBS USING TAPE DRIVE^[
.PLEASE*********************************************************
.REQUEUE 30
.GOTO DONE
REW::
.REW mta0:
.IF (NOERROR) .GOTO WRITE
.PLEASE*********************************************************
.PLEASE UNEXPECTED ERROR IN REWINDING mta0 CHECK LOG^[
.PLEASE*********************************************************
.REQUEUE 30
.GOTO DONE
WRITE::
.ERROR $
.R BACKUP
TA mta0:
REW
SSNAM WRITETEST
SAV [35,1414]
REW
CHECK
EXIT
.IF (NOERROR) .GOTO DDTUB
.PLEASE*********************************************************
.PLEASE PROBLEM WRITING TO mta0 CHECK FOR WRITE RING^[
.PLEASE*********************************************************
.REQUEUE 30
;
DDTUB::
;***** SET UP LIBRARY SO WE CAN RUN DDTUB
;
.PATH LIB:/SEARCH=KLAD:[6,10]
;
;
;
.RU DIAMON
S
DDTUB
*Y
*400000
*22
*N
*Y
^C
;
;
;
.PLEASE 15 MINUTES OF DTUB FINISHED ON mta0.
.SUB DX0TST[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 dx0TST.CTL TIME LIMIT EXCEEDED AFTER 15 MIN.
.PLEASE *******************************************************
;
;
%ERR::
.PLEASE*********************************************************
.PLEASE ERROR IN dx0TST.CTL---DTUB STOPPING
.PLEASE*********************************************************
%CERR::
.PLEASE*********************************************************
.PLEASE ERROR IN dx0TST.CTL---DTUB STOPPING
.PLEASE*********************************************************
;
DONE::
%FIN::