Google
 

Trailing-Edge - PDP-10 Archives - bb-bt99g-bb - dcn702.ctl
There is 1 other file named dcn702.ctl in the archive. Click here to see a list.
;			COPYRIGHT (C) 1984, 1985 BY
;		DIGITAL EQUIPMENT CORPORATION, MAYNARD, MA.
;
;	THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED
;	AND COPIED ONLY IN ACCORDANCE WITH THE TERMS OF SUCH
;	LICENSE AND WITH THE INCLUSION OF THE ABOVE COPYRIGHT
;	NOTICE.  THIS SOFTWARE OR ANY OTHER COPIES THEREOF MAY NOT
;	BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY OTHER
;	PERSON.  NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS
;	HEREBY TRANSFERRED.
;
;	THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE
;	WITHOUT NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT
;	BY DIGITAL EQUIPMENT CORPORATION.
;
;	DIGITAL ASSUMES NO RESPONSIBLITY FOR THE USE OR
;	RELIABILITY OF ITS SOFTWARE ON EQUIPMENT WHICH IS NOT
;	SUPPLIED BY DIGITAL.
;
;*******************************************************************************
;DCN702.CTL /RCB
;	Fix to copy .MACs into PAT: to cover when there are no edits
;
;-----
;Running DCN702:
;
;Submit DCN702.CTL with the following command:
;	.SUBMIT DCN702/RESTART
;
;-----
;Requirements:
;
;1) 	This batch job must be run before the monitor-build job is done.
;
;-----
;Introduction:
;
;This file does nothing but update the DECnet modules for possible inclusion in
;a monitor build procedure.
;*******************************************************************************
BEGIN::
.CHKPNT BEGIN
.PLEASE ** DCN702 ** Starting
;*******************************************************************************
;				Initialization
;*******************************************************************************
;
.IF (ERROR)
;
.ERROR
.R QUOLST
.IF (ERROR)
;
.R PEPB
*INITIALIZE TOPS-10-DCN-V702
*EXIT
.IF (ERROR) .GOTO ERROR
;Delete source files in PAT:
.NOERROR
.DELETE PAT:SCPAR.MAC,PAT:ROUTER.MAC,PAT:LLINKS.MAC,PAT:SCLINK.MAC,PAT:SCMUUO.MAC
.DELETE PAT:NTMAN.MAC,PAT:NRTSER.MAC
.ERROR
.RUN ASL:UPDATE
*@PAT:DCN702.SUP
.IF (ERROR) .GOTO ERROR
;Copy source files from ASL: to PAT: in case there are no edits and the
;DIS: area is not the same as that for the monitor
.COPY PAT:=ASL:SCPAR.MAC
.COPY PAT:=ASL:ROUTER.MAC
.COPY PAT:=ASL:LLINKS.MAC
.COPY PAT:=ASL:SCLINK.MAC
.COPY PAT:=ASL:SCMUUO.MAC
.COPY PAT:=ASL:NTMAN.MAC
.COPY PAT:=ASL:NRTSER.MAC
EXIT::
.CHKPNT EXIT
.PLEASE ** DCN702 ** CHKPNT EXIT - End of stream
;*******************************************************************************
;				End of stream
;*******************************************************************************
;
.R QUOLST
.IF (ERROR)
;
.ERROR %
.R PEPB
*SIGNAL-SUCCESS TOPS-10-DCN-V702
*EXIT
.GOTO END
;
%ERR:: .GOTO ERROR
%CERR:: .GOTO ERROR
%TERR:: .PLEASE ** DCN702 ** Time limit exceeded
.GOTO ERR2
;
ERROR::
.PLEASE ** DCN702 ** Stream has errors
ERR2::
.ERROR %
.R PEPB
*SIGNAL-FAILURE TOPS-10-DCN-V702
*EXIT
;
END::
;
%FIN:: .PLEASE ** DCN702 ** Stream finished
;
;[END OF DCN702.CTL]