Trailing-Edge
-
PDP-10 Archives
-
bb-y390o-bm_tops20_v41_atpch_20
-
autopatch/cbl12c.ctl
There are 11 other files named cbl12c.ctl in the archive. Click here to see a list.
;
; CBL12C.CTL -- Patch and rebuild COBOL-20-V12C
; Version 1(10)
; December 21, 1983 / JBB
; August 8, 1983 / HAH
; March 22, 1984 / HAH fix DBMS with C74LIB when both 68 & 74 being built
; July 17, 1984 / MJC redo COBASM logic and add COBASM.CMD
; April 16, 1985 / HAH Modify for DBMS V6.1
; January 3,1986 / MJC Change to V12C
; May 4, 1988 / HAH Add branch for no update - requires PEP 1B(173)
; October 4, 1988 / HAH Change /MAC to /MACRO
;
; COPYRIGHT (c) 1982, 1988 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 applies the patches to the libraries of
; COBOL-20-V12C and rebuilds all of the components.
;
; For this .CTL file to run, the connected directory must be
; the patching directory (PAT:).
;
; This control file is expected to run without errors.
;
@PEPB
*INITIALIZE COBOL-20-V12C
*EXIT
;
; Delete any sources that may be left in PAT:
;
@DELETE PAT:COBASM.MAC,PAT:COPYRT.CBL,PAT:COBTST.MAC,PAT:ASCEBC.MAC,PAT:ASCSIX.MAC
@DELETE PAT:BISGEN.MAC,PAT:BTREE.MAC,PAT:CHREQV.MAC,PAT:CLEANC.MAC
@DELETE PAT:CLEAND.MAC,PAT:CLEANT.MAC,PAT:CLRNAM.MAC,PAT:CMNGEN.MAC
@DELETE PAT:COBCOM.MAC,PAT:COBVER.MAC,PAT:COBOLA.MAC,PAT:COBOLB.MAC
@DELETE PAT:COBOLC.MAC,PAT:COBOLD.MAC,PAT:COBOLE.MAC,PAT:COBOLF.MAC
@DELETE PAT:COBOLG.MAC,PAT:COBOLK.MAC,PAT:COBOLO.MAC,PAT:COMUNI.MAC
@DELETE PAT:CTREE.MAC,PAT:DIAGS.MAC,PAT:DTREE.MAC,PAT:EBCASC.MAC
@DELETE PAT:EXPGEN.MAC,PAT:FNDPOP.MAC,PAT:FTDEFS.MAC,PAT:GETASY.MAC
@DELETE PAT:GETCPY.MAC,PAT:GETGEN.MAC,PAT:GETITM.MAC,PAT:GETTAG.MAC
@DELETE PAT:IFGEN.MAC,PAT:IMPURE.MAC,PAT:INTERM.MAC,PAT:IOGEN.MAC
@DELETE PAT:IPCGEN.MAC,PAT:LBLPRM.MAC,PAT:MATGEN.MAC,PAT:MESGEN.MAC
@DELETE PAT:MOVGEN.MAC,PAT:MSCGEN.MAC,PAT:OPCTAB.MAC,PAT:P.MAC
@DELETE PAT:PMATCH.MAC,PAT:PSCAN.MAC,PAT:PURE.MAC,PAT:PUTAS1.MAC
@DELETE PAT:PUTAS2.MAC,PAT:PUTAS3.MAC,PAT:PUTBIN.MAC,PAT:PUTCPY.MAC
@DELETE PAT:PUTERA.MAC,PAT:PUTGEN.MAC,PAT:PUTLST.MAC,PAT:RPWGEN.MAC
@DELETE PAT:SQUIRL.MAC,PAT:SRTCRF.MAC,PAT:SRTGEN.MAC,PAT:STINFL.MAC
@DELETE PAT:STRGEN.MAC,PAT:TABLES.MAC,PAT:TRYNAM.MAC,PAT:XFRGEN.MAC
@DELETE PAT:XPAND.MAC,PAT:XPNPPL.MAC,PAT:ACCEPT.MAC,PAT:ALBSTB.MAC
@DELETE PAT:ALF.MAC,PAT:ARGS.MAC,PAT:CANCEL.MAC,PAT:CBLIO.MAC
@DELETE PAT:CDD.MAC,PAT:CMP.MAC,PAT:COBFUN.MAC,PAT:COBST.MAC
@DELETE PAT:COMPD.MAC,PAT:COVRLY.MAC,PAT:DEBSTB.MAC,PAT:DIV11.MAC
@DELETE PAT:DPADD.MAC,PAT:DPDIV.MAC,PAT:DPMUL.MAC,PAT:DPSUB.MAC
@DELETE PAT:DSORT.MAC,PAT:DSPFP.MAC,PAT:EASTBL.MAC,PAT:EDITC.MAC
@DELETE PAT:EDITB.MAC,PAT:EXAM.MAC,PAT:EXPON.MAC,PAT:FIX.MAC
@DELETE PAT:FLGDF.MAC,PAT:FLOAT.MAC,PAT:GC.MAC,PAT:GD.MAC
@DELETE PAT:INSPEC.MAC,PAT:KEY.MAC,PAT:KPROG.MAC,PAT:LBLERR.MAC
@DELETE PAT:LCM20.MAC,PAT:LIBREL.MAC,PAT:LIBSHR.MAC,PAT:LILOWS.MAC
@DELETE PAT:LINE.MAC,PAT:LSU.MAC,PAT:MAGNEG.MAC,PAT:METIO.MAC
@DELETE PAT:METUNV.MAC,PAT:MOVE.MAC,PAT:NSTRNG.MAC,PAT:NTBSTB.MAC
@DELETE PAT:NUBSTB.MAC,PAT:NUM.MAC,PAT:NUMEQV.MAC,PAT:OSTRNG.MAC
@DELETE PAT:PC.MAC,PAT:PD.MAC,PAT:PERF.MAC,PAT:PNZ.MAC
@DELETE PAT:PUTRES.MAC,PAT:REMOVL.MAC,PAT:RESOLV.MAC,PAT:RMSIO.MAC
@DELETE PAT:SETRET.MAC,PAT:SIZ23.MAC,PAT:SIZE1.MAC,PAT:SPAC.MAC
@DELETE PAT:SUBSCR.MAC,PAT:TODAY.MAC,PAT:TRACED.MAC,PAT:USRDSP.MAC
@DELETE PAT:ZERC.MAC,PAT:COBDDT.MAC,PAT:ISAM.MAC,PAT:LIBARY.MAC
@DELETE PAT:CPYLIB.MAC,PAT:IOTMPU.MAC,PAT:IOTMP.MAC,PAT:MMANGU.MAC
@DELETE PAT:MMANGR.MAC,PAT:RERUN.MAC,PAT:CMLSYM.MAC,PAT:GENDCL.MAC
@DELETE PAT:DBSDCL.MAC,PAT:STRUNV.MAC,PAT:STRDCL.MAC,PAT:DBDML.MAC
@DELETE PAT:DBGETF.MAC,PAT:DMLVOK.MAC,PAT:DMLERR.MAC,PAT:DMLIO.MAC
@ERROR %
@VDIR PAT:CBL12C.SUP
@IF (ERROR) @GOTO NOUPD
@R ASL:UPDATE
*@PAT:CBL12C.SUP
NOUPD::
@ERROR
@EXPUNGE PAT:
@DEFINE SYS: ASL:
@DEFINE UNV: ASL:
@DEFINE DSK: ASL:
@DELETE PAT:*.TMP
@COMP ASL:COPYRT.CBL/MACRO/COMP
@IF (ERROR)
C74TST::
@TYPE C74ASM.MAC
@IF (ERROR) @GOTO CASM
@COPY C74ASM.MAC COBASM.MAC
CASM::
@COMPILE/COM @COBASM.CMD
@RUN LINK
*COBTST/GO
@SAVE COBTST
@RUN COBTST
*ANS74
@IF (ERROR) @GOTO TRNTST
@TYPE CBLASM.CMD
@COMPILE/COM @CBLASM.CMD
@EXPUNGE PAT:
@RUN COBTST
*DBMS
@IF (ERROR) @GOTO NODB
@TYPE CBDASM.CMD
@COMPILE/COM @CBDASM.CMD
@EXPUNGE PAT:
@RUN LINK
*@ALLB.CMD
@SAVE CBL74 0 677
@TAKE CBDDEL.CMD
@GOTO LODON
NODB::
@RUN LINK
*@ALL.CMD
@SAVE CBL74 0 677
LODON::
@TAKE CBLDEL.CMD
@START
*/U
@IF (NOERROR) @GOTO ERR
@TYPE LIBASM.CMD
@COMPILE/COM @LIBASM.CMD
@EXPUNGE PAT:
@RUN LINK
*COBTST/GO
@SAVE COBTST
@RUN MACRO
*C74SHR=LIBSHR
*RMSIO=RMSIO
*ISAM=ISAM
*USRDSH=TTY:,USRDSP
*SHR==1
=
=
*USRDSL=USRDSP
@TYPE CBLL74.CMD
@TAKE CBLL74.CMD
@ERROR %
@VDIR SRTCBL.MAC,
@CHE SEQ
@
@IF (ERROR) @GOTO NOSORT
@ERROR
@RUN MACRO
*SRTCBL.REL=SRT20,SRTPRM,SRTCBL,SRTCER,SRTJSS,SORT
@RUN MAKLIB
*C74LIB.REL=C74LIB.REL/MAST:SORT,SRTCBL.REL/REP:SORT
NOSORT::
@RUN LINK
*ISAM,C74LIB/SEARCH/SYMSEG:HIGH/GO
@SAVE ISAM 0 677
@ERROR
@RUN COBTST
*DBMS
@IF (ERROR) @GOTO NODBMS
@ERROR %
@VDIR DBSCOB.REL
@IF (ERROR) @GOTO NODBMS
@ERROR
@RUN MAKLIB
*CBDSTP.TMP=C74LIB/EXTR:(%DBSTP,DBSTP$)
*C74LIB=C74LIB/DELETE:RESOLV
*C74LIB=C74LIB/DELETE:RSVGAT
*C74LIB=C74LIB/DELETE:%DBSTP
*C74LIB=C74LIB/DELETE:DBSTP$
*COBFUN.TMP=C74LIB/EXTR:COBFUN
*C74LIB=C74LIB/DELETE:COBFUN
*C74LIB=C74LIB,DBSCOB/APPEND,DBS20/APPEND,COBFUN.TMP/APPEND,DBSANY/APPEND,SCHIO2/APPEND,CBDSTP.TMP/APPEND
*C74LIB=C74LIB/INDEX
@DELETE COBFUN.TMP
@RUN LINK
*/SET:.HIGH.:547010 C74LIB/INCL:(CBLIO)
*/SET:.HIGH.:600010 C74SHR,SYS:MACREL/SEG:HIGH,C74LIB/SEARCH,/SYMSEG:LOW/GO
@SAVE C74O12 0 1,400 777
@GOTO TRNTST
NODBMS::
@ERROR
@RUN MAKLIB
*C74LIB.REL=C74LIB.REL/INDEX
@RUN LINK
*/SET:.HIGH.:600010 C74SHR,MACREL
*/SEG:HIGH,C74LIB/SEARCH,/SYMSEG:NONE/GO
@INFO MEM
@EXAMINE 600000
@SAVE C74O12 0 1,574 575,600 677
@
TRNTST::
@TYPE TRNASM.MAC
@IF (ERROR) @GOTO CASM
@COPY TRNASM.MAC COBASM.MAC
CASM::
@COMPILE/COM @COBASM.CMD
@RUN LINK
*COBTST/GO
@SAVE COBTST
@RUN COBTST
*FT68274
@IF (ERROR) @GOTO COBDDT
@TYPE CBLASM.CMD
@COMPILE/COM @CBLASM.CMD
@EXPUNGE PAT:
@RUN COBTST
*DBMS
@IF (ERROR) @GOTO NODB68
@TYPE CBDASM.CMD
@COMPILE/COM @CBDASM.CMD
@EXPUNGE PAT:
@RUN LINK
*/SYMSEG:LOW /HASHSIZE:7352 -
*/NOLOCALS IMPURE,PURE,HELPER,DBGETF,DBDML,CMLVOK, -
*CMLIO,CMLERR,SCHIO2,STRHI/SEARCH,SQUIRL,BTREE, -
*XPNPPL,XPAND,GETITM/LOCAL,STINFL,CLRNAM,TRYNAM, -
*PUTGEN,PUTCPY,PUTERA,COBCOM,PUTLST,COBOLB/LOCAL, -
*COBOLA ,/NOSTART ASCEBC,CLEANC,CTREE/LOCAL,FNDPOP, -
*GETTAG,PSCAN,PUTAS1,PUTAS2,COBOLC/LOCAL,CLEANT, -
*DTREE/LOCAL,COBOLD/LOCAL,CLEAND/LOCAL,ASCSIX, -
*EBCASC,/LOCAL COBOLE,CMNGEN,EXPGEN,GETGEN,IFGEN, -
*IOGEN,IPCGEN,MATGEN,MESGEN,MOVGEN,BISGEN,MSCGEN, -
*PUTAS3,RPWGEN,SRTGEN,STRGEN,XFRGEN,COBOLO,PMATCH, -
*COBOLF,COBOLG,/NOLOCAL DIAGS,GETASY,GETCPY,PUTBIN, -
*SRTCRF,/NOLOCALS COBOLK/G
@SAVE 68274 0 677
@TAKE CBDDEL.CMD
@GOTO LODON
NODB68::
@RUN LINK
*/SYMSEG:LOW /HASHSIZE:7352 -
*/NOLOCALS IMPURE,PURE,HELPER, -
*SQUIRL,BTREE,XPNPPL,XPAND,GETITM/LOCAL,STINFL,CLRNAM, -
*TRYNAM,PUTGEN,PUTCPY,PUTERA,COBCOM,PUTLST,COBOLB/LOCAL, -
*COBOLA ,/NOSTART -
*ASCEBC,CLEANC,CTREE/LOCAL,FNDPOP,GETTAG,PSCAN,PUTAS1, -
*PUTAS2,COBOLC/LOCAL,CLEANT,DTREE,COBOLD/LOCAL,CLEAND/LOCAL,ASCSIX, -
*EBCASC,/LOCAL COBOLE,CMNGEN,EXPGEN,GETGEN,IFGEN,IOGEN, -
*IPCGEN,MATGEN,MESGEN,MOVGEN,BISGEN,MSCGEN,PUTAS3, -
*RPWGEN,SRTGEN,STRGEN,XFRGEN,COBOLO,PMATCH,COBOLF, -
*COBOLG,/NOLOCAL DIAGS,GETASY,GETCPY,PUTBIN,SRTCRF,/NOLOCALS COBOLK/G
@SAVE 68274 0 677
LODON::
@TAKE CBLDEL.CMD
@EXPUNGE PAT:
COBDDT::
@TAKE LIBDEL.CMD
@RUN MACRO
*COBDDT=COBDDT
LIBARY::
@EXPUNGE PAT:
@RUN MACRO
*LIBARY=LIBARY
@RUN LINK
*LIBARY,HELPER/SYMSEG:HIGH/GO
@SAVE LIBARY 0 677
CPYLIB::
@EXPUNGE PAT:
@RUN MACRO
*MMANGU=TTY:,MMANGU
*TOPS20==1
^Z
^Z
*IOTMPU=TTY:,IOTMPU
*TOPS20==1
^Z
^Z
*MMANGR=MMANGR
*IOTMP=IOTMP
*CPYLIB=CPYLIB
@RUN LINK
*CPYLIB,IOTMP,MMANGR/GO
@SAVE CPYLIB
RERUN::
@EXPUNGE PAT:
@RUN MACRO
*RERUN=RERUN
@RUN LINK
*RERUN,/SYMSEG:HIGH/GO
@SAVE RERUN 0 377,600 677
@EXPUNGE PAT:
@DEFINE DSK:
@DEFINE SYS:
@NOERROR
@COPY PAT:LIBOL.REL
@COPY PAT:LIBSHR.REL
@COPY PAT:C74LIB.REL
@COPY PAT:C74SHR.REL
@ERROR
@PEPB
*SIGNAL-SUCCESS COBOL-20-V12C
*EXIT
@GOTO EXIT
%ERR::
@GOTO ERROR
%TERR::
@GOTO ERROR
ERROR::
@EXPUNGE PAT:
@DEFINE DSK:
@DEFINE SYS:
@PEPB
*SIGNAL-FAILURE COBOL-20-V12C
*EXIT
EXIT::
%FIN::