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

;
;   CBL13R.CTL -- Patch and rebuild COBOL-REP-V13
;   Version 1(3)
;	April 23, 1984 /JEH
;1	June 1, 1984 /rbw [Autopatch Encryption]
;2	December 12, 1984 / HAH add DBMS logic
;3	March 14, 1985	/ HAH Copy C8XSHR and COBLIB to PAT:
;
;
;		       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  responsibility   for	 the   use   or
;   reliability  of  its  software  on	equipment  which is not
;   supplied by Digital.
;

;
;   This .CTL file updates all components of COBOL-REP-V13.
;
;   For this .CTL file to run, the connected directory must  be
;   the patching directory (PAT:).
;
;   This control file is expected to run without errors.
;
;   Decryption occurs during PEPB - INITIALIZE processing.
;   This control file assumes that we are delivering only one of the possible
;   configurations of COBOL-REP-V13.
;   COBLIB.REL and COBOTS-V13.EXE will have DBMS support included
;   if the DBSCOB.REL file is present.
;
@PEPB
*INITIALIZE COBOL-REP-V13
*EXIT
!
!
@DEFINE DSK: ASL:
@ERROR %
@VDIR DBSCOB.REL
@IF (ERROR) @GOTO NODBMS
!
@ERROR
!
@RU MAKLIB
*CBDSTP.TMP=COBLIB/EXTRACT:(DBSTUB,DBMS.,%DBSTP,DBMVR.)
*COBLIB=COBLIB/DELETE:(DBSTUB,DBMS.,%DBSTP,DBMVR.)
*COBFUN.TMP=COBLIB/EXTRACT:COBFUN
*COBLIB=COBLIB/DELETE:COBFUN
*COBLIB=COBLIB,DBSCOB/APPEND,DBS20/APPEND,COBFUN.TMP/APPEND,DBSANY/APPEND, -
*SCHIO2/APPEND,CBDSTP.TMP/APPEND
*COBLIB=COBLIB/INDEX
@DEL CBDSTP.TMP,COBFUN.TMP
@IF (ERROR) @GOTO ERROR
!
!
@RU LINK
COTS13.MAP/MAP=
/SET:.HIGH.:547010 COBLIB/INCL:(CBLIO)
/SET:.HIGH.:600010 C8XSHR,MACREL/SEG:HIGH,COBLIB/SEARCH,/SYMSEG:LOW/GO
!
@IF (ERROR) @GOTO ERROR
@SAVE COBOTS-V13 0 1,547 575,600 675
@IF (ERROR) @GOTO ERROR
!
NODBMS::
@DEFINE DSK:
@COPY PAT:C8XSHR.REL
@COPY PAT:COBLIB.REL
@PEPB
*SIGNAL-SUCCESS COBOL-REP-V13
*EXIT
@GOTO EXIT

%ERR::
@GOTO ERROR
%TERR::
ERROR::

@PEPB
*SIGNAL-FAILURE COBOL-REP-V13
*EXIT

EXIT::
%FIN::