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

;
;   CBR12C.CTL -- .EXE replacement for COBOL-10 V12C
;   Version 1(0)
;
;	February 24, 1986 /HAH
 
 
;
; COPYRIGHT (c)  1986 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 decrypts CBL74.EXE, 68274.EXE, C74LIB.REL, C74O12.EXE,
;   COBDDT.REL, CPYLIB.EXE, ISAM.EXE, LIBARY.EXE and RERUN.EXE
;   as patched to the latest level and delivered on the
;   Autopatch tape. Note that submitting this control file will result
;   in new .EXE's and .REL's being written to PAT:, possibly overwriting
;   files produced by a previous source-level rebuild.
;
;   For this .CTL file to run, the connected directory must  be
;   the patching directory (PAT:).
;
;   NOTE: If the dummy file CBLDBM.FLG is present on PAT:, this
;   .CTL file will build COBOL-10 with DBMS.
;
;   This control file is expected to run without errors.
;

START::

.R PEPB
*INITIALIZE COBOL-REP-V12C
*EXIT

.PATH ASL:/SEARCH

!	If flag file CBLDBM.FLG is present on PAT:, build C74O12.EXE and
!	C74LIB.REL for COBOL-10 with DBMS.

.PRO<777>CBLDBM.FLG
.IF (ERROR) .GOTO NODBMS

!	Here for DBMS/COBOL

.ERROR %

! These files must exist to be built into C74LIB.REL

.COP =C74SHR.REL
.DIR DBSCOB.REL, DBSANY.REL, DBS10.REL, SCHIO1.REL, C74SHR.REL
.IF (ERROR) .GOTO TRUBLE

.ERROR ?

.R ASL:MAKLIB
*C74LIB=C74LIB/DELETE:RSVGAT
*C74LIB=C74LIB/DELETE:RESOLV
*COBFUN.TMP=C74LIB/EXTR:COBFUN
*C74LIB=C74LIB,ASL:DBSCOB/APPEND,ASL:DBS10/APPEND,COBFUN.TMP/APPEND,ASL:DBSANY/APPEND,ASL:SCHIO1/APPEND
.DEL COBFUN.TMP

!INDEX C74LIB.REL

.R ASL:MAKLIB
*C74LIB.REL=C74LIB.REL/INDEX
.IF (ERROR) .GOTO TRUBLE

!CREATE C74O12.EXE

.R ASL:LINK
*C74OTS.MAP/MAP=C74SHR,C74LIB/SEARCH/GO
.IF (ERROR) .GOTO TRUBLE
.SSAVE C74O12
.IF (ERROR) .GOTO TRUBLE

.ERROR ?

NODBMS::

.R PEPB
*SIGNAL-SUCCESS COBOL-REP-V12C
*EXIT

.GOTO EXIT

%TERR::
.GOTO ERROR
%CERR::
.GOTO ERROR
%ERR::
ERROR::
TRUBLE::


.R PEPB
*SIGNAL-FAILURE COBOL-REP-V12C
*EXIT

EXIT::
%FIN::
     
;	[END OF CBR12C.CTL]