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

;%003 FEB 20 1980  TONY J. IACOBONE
;TJI 1/10/83
;.SUB RPA1A.CTL[35,1414]/TIME/UNIQ:0/PRIOR:5,/OUT:ERROR
;
;********** JOB TO RUN DDRPI ON RPA1 (RP04/RP06)
;********** MUST RUN UNDER 1,2 FOR PRIVILEDGES TO RUN
;
.DAY
;
;*****SETUP THE LIBRARY FOR THE [6,10]
;******THIS WILL ALLOW US TO RUN DIAMON AND DDRPI
;*****WITHOUT HAVING IT IN THE LOGGED-IN AREA
;
.PATH LIB:/SEARCH=KLAD:[6,10]
;
;
.RU DIAMON
DDRPI
Y
410
0
N
Y
RPA1
ALL
MAPOUT
N
Y
N
Y

N
RONLY
^C
.PATH /CLEAR
;
;***INFORM THE OPERATOR THAT WE HAVE FINISHED FOR NOW
;
.PLEASE ***ONE PASS OF DDRPI (RONLY) FOR RPA1A.CTL FINISHED***^[
.SUB RPA1A[35,1414]/TIME:00:15:/UNIQ:0/PRIOR:5/AFTER:+23:59:,/OUT:ERROR
;
.GOTO DONE
;
%TERR::
;
;****USE TIME ERROR IF JOB EXCEEDS EXPECTED RUN TIME
;****THIS MAY BE CAUSED BY MANY ERRORS ON THE DRIVE
;****OR BY SOME DIAGNOSTIC AND/OR SOFTWARE TIE-UP
;
.PLEASE ???TIME LIMIT EXCEEDED. READ RPA1A.LOG AND MAP DRIVE IF NECESSARY???^[
;
;
%CERR::
.PLEASE ???ERROR IN RPA1A.CTL. DDRPI STOPPING???^[
;
;
%ERR::
.PLEASE ???ERROR IN RPA1A.CTL--DDRPI STOPPING???^[
.PLEASE ???READ RPA1A.LOG FOR CAUSE OF ERROR???^[
;
DONE::
;
%FIN::