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

;%001 B. ST. HILAIRE 11/14/78
;.SUB CDR1[35,1414]/TIME/UNIQ:0,/OUT:0
;
;****CTL FILE TO RUN PIP ON CDR1
;****OPERATOR INTERVENTION REQUIRED TO LOAD CARD DECK
;
.DAYTIME
.SET SPOOL NONE
.SET HPQ 1
;
.ASSIGN CDR1
;
PIP::
;
.PLEASE LOAD TEST DECK INTO CDR1
.PLEASE MAKE SURE END OF FILE CARD IS THE LAST CARD IN THE DECK
.PLEASE PUT CDR1 ON LINE
.PLEASE TYPE B#-GO OR W-#-GO TO READ IN CARD DECK
;
;
.ERROR ?
.R PIP
DSK:TEST.TXT=CDR1:
^C
.IF (ERROR) .GOTO PIPERR::
;
;*****HAVE OPR RELOD DECK FOR VERIFICATION
;
;
.PLEASE RELOAD TEST DECK INTO CDRO AS BEFORE
.PLEASE TYPE B#-GO OR W-#-GO TO READ AGAIN
;
;
.R PIP
DSK:TEST1.TXT=CDR1:
^C
;
;
;****FILCOM TO MAKE SURE NO READ ERRORS
;
.ERROR %
.R FILCOM
*DSK:=TEST.TXT,TEST1.TXT
^C
.IF (ERROR) .GOTO FILERR::
;
;****TELL OPR TOR RELOD WITH CARD OUT OF SEQUENCE
PP::
;
.PLEASE PLACE ANY CARD IN TEST DECK OUT OF SEQUENCE
.PLEASE RELOAD DECK INTO CDR1
.PLEASE TYPE B#-GO OR W-#-GO TO READ AGAIN
;
.ERROR ?
.R PIP
DSK:TEST2.TXT=CDR1:
^C
.IF (ERROR) .GOTO PPERR::
;
;FILCOM RESULTS. SHOULD ERROR.
;
.ERROR %
.R FILCOM
*DSK:=TEST.TXT,TEST2.TXT
^C
.IF (NOERROR) .GOTO FILERR::
;
;
.PLEASE CDR1.CTL FINISHED.  CDR1 OK.
.PLEASE RESUBMIT THIS CTL FILE AGAIN TO RERUN TEST.
.DEL TEST.TXT,TEST1.TXT,TEST2.TXT
;
.GOTO DONE::
;
FILERR::
.PLEASE ********************************************************
.PLEASE ERROR IN CDR1. FILCOM FAILED.
.PLEASE READ CDR1.LOG FOR ERROR
.PLEASE ********************************************************
.GOTO DONE::
;
;
PIPERR::
;
;
.PLEASE *****************************************************
.PLEASE CDR PROBLEM. REALOAD DECK AGAIN.
.PLEASE *****************************************************
.BACKTO PIP::
;
PPERR::
;
;
.PLEASE *****************************************************
.PLEASE CDR PROBLEM. REALOAD DECK AGAIN.
.PLEASE *****************************************************
.BACKTO PP::
%ERR::
%CERR::
.PLEASE *******************************************************
.PLEASE ERROR IN CDR1.CTL. READ CDR1.LOG
.PLEASE ******************************************************
;
DONE::
%FIN::