Trailing-Edge
-
PDP-10 Archives
-
bb-l014r-bm_tops20_v6_1_atpch_18
-
autopatch/cbl13.ctl
There are 3 other files named cbl13.ctl in the archive. Click here to see a list.
;
; CBL13.CTL -- Patch and ebuild COBOL-20-V13
; Version 1(2)
; April 23, 1984 /JEH
;1 April 16, 1985 / HAH Copy C8XSHR and COBLIB to common
; PAT: and add @ERROR at NODBMS::
;2 March 21, 1986 / HAH Remove attempt to put DBMS into
; COBLIB and to re-link the OTS
;
;
; COPYRIGHT (c) 1984,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-V13 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-V13
*EXIT
!
!
!Delete any old source files that might be in PAT:
@DELETE PAT:ACCEPT.MAC,PAT:ALBSTB.MAC,PAT:ARGS.MAC,PAT:ARITH.MAC
@DELETE PAT:ASCEBC.MAC,PAT:ASCSIX.MAC,PAT:BISGEN.MAC,PAT:BTREE.MAC
@DELETE PAT:C8XSHR.MAC,PAT:CANCEL.MAC,PAT:CBLIO.MAC,PAT:CDD.MAC
@DELETE PAT:CHREQV.MAC,PAT:CLEANC.MAC,PAT:CLEAND.MAC,PAT:CLEANT.MAC
@DELETE PAT:CLRNAM.MAC,PAT:CMLSYM.MAC,PAT:CMND2C.MAC,PAT:CMNGEN.MAC
@DELETE PAT:CMP.MAC,PAT:COBASM.MAC,PAT:COBCOM.MAC,PAT:COBDDT.MAC
@DELETE PAT:COBFUN.MAC,PAT:COBOLA.MAC,PAT:COBOLB.MAC,PAT:COBOLC.MAC
@DELETE PAT:COBOLD.MAC,PAT:COBOLE.MAC,PAT:COBOLF.MAC,PAT:COBOLG.MAC
@DELETE PAT:COBOLK.MAC,PAT:COBOLO.MAC,PAT:COBSCN.MAC,PAT:COBSRT.MAC
@DELETE PAT:COBST.MAC,PAT:COBTST.MAC,PAT:COBVER.MAC,PAT:COMUNI.MAC
@DELETE PAT:COPYRT.MAC,PAT:COVRLY.MAC,PAT:CPYLIB.MAC,PAT:CTREE.MAC
@DELETE PAT:DBDML.MAC,PAT:DBDUM.MAC,PAT:DBGETF.MAC,PAT:DBSDCL.MAC
@DELETE PAT:DBSTUB.MAC,PAT:DEBSTB.MAC,PAT:DIAGS.MAC,PAT:DMLERR.MAC
@DELETE PAT:DMLIO.MAC,PAT:DMLVOK.MAC,PAT:DSPFP.MAC,PAT:DTREE.MAC
@DELETE PAT:EASTBL.MAC,PAT:EBCASC.MAC,PAT:EDITC.MAC,PAT:EDITB.MAC
@DELETE PAT:EXPGEN.MAC,PAT:EXPON.MAC,PAT:FIX.MAC,PAT:FLGDF.MAC
@DELETE PAT:FLOAT.MAC,PAT:FTDEFS.MAC,PAT:GC.MAC,PAT:GD.MAC,PAT:GENDCL.MAC
@DELETE PAT:GETITM.MAC,PAT:HANDAN.MAC,PAT:IFGEN.MAC,PAT:IMPURE.MAC
@DELETE PAT:INSPEC.MAC,PAT:INTERM.MAC,PAT:IOGEN.MAC,PAT:IOTMP.MAC
@DELETE PAT:IOTMPU.MAC,PAT:IPCGEN.MAC,PAT:ISAM.MAC,PAT:KEY.MAC
@DELETE PAT:LBLERR.MAC,PAT:LBLPRM.MAC,PAT:LCM20.MAC,PAT:LCMIPC.MAC
@DELETE PAT:LIBREL.MAC,PAT:LILOWS.MAC,PAT:LINE.MAC,PAT:LISTEM.MAC
@DELETE PAT:LSU.MAC,PAT:MATGEN.MAC,PAT:MESGEN.MAC,PAT:MMANGR.MAC
@DELETE PAT:MMANGU.MAC,PAT:MOVE.MAC,PAT:MOVGEN.MAC,PAT:MSCGEN.MAC
@DELETE PAT:NTBSTB.MAC,PAT:NUBSTB.MAC,PAT:NUM.MAC,PAT:NUMEQV.MAC
@DELETE PAT:OPCTAB.MAC,PAT:P.MAC,PAT:PC.MAC,PAT:PD.MAC,PAT:PERF.MAC
@DELETE PAT:PMATCH.MAC,PAT:PNZ.MAC,PAT:PSCAN.MAC,PAT:PURE.MAC,PAT:PUTCPY.MAC
@DELETE PAT:PUTLST.MAC,PAT:PUTRES.MAC,PAT:REMOVL.MAC,PAT:RERUN.MAC
@DELETE PAT:RESOLV.MAC,PAT:RMSIO.MAC,PAT:RPWGEN.MAC,PAT:SETEOF.MAC
@DELETE PAT:SETRET.MAC,PAT:SIZ23.MAC,PAT:SIZE1.MAC,PAT:SPAC.MAC
@DELETE PAT:SQUIRL.MAC,PAT:SRTCRF.MAC,PAT:SRTGEN.MAC,PAT:SRTTAB.MAC
@DELETE PAT:STRDCL.MAC,PAT:STRGEN.MAC,PAT:STRING.MAC,PAT:STRUNV.MAC
@DELETE PAT:SUBSCR.MAC,PAT:TABLES.MAC,PAT:TODAY.MAC,PAT:TRACED.MAC
@DELETE PAT:TRACER.MAC,PAT:TRYNAM.MAC,PAT:USRDSP.MAC,PAT:XFRGEN.MAC
@DELETE PAT:ZERC.MAC
@R ASL:UPDATE
*@PAT:CBL13.SUP
@EXPUNGE
@DEFINE SYS: ASL:
@DEFINE UNV: ASL:
@DEFINE DSK: ASL:
!
!
@DELETE PAT:*.TMP
SELBLD:: !Select which build
@COMP ASL:COPYRT/COMP
@COMP ASL:COBASM/COMP
@COMP ASL:INTERM/COMP
@COMP ASL:COBTST/COMP
@RU ASL:LINK
*COBTST/GO
@SAVE COBTST
@RUN COBTST
*DBMS
@IF (ERROR) @GOTO NODBMS
@RUN COBTST.EXE
*DEBUG
@IF (ERROR) @GOTO BLD2
!Here to build COBOL, with DBMS, with DEBUG
BLD1::
@TYPE CBLDB.CMD
@COMPILE/COM @CBLDB.CMD
@RUN ASL:LINK
COBOL/SAV=/SYMSEG:HIGH /NOLOCAL /HASHSIZE:9000 -
COBSCN/LOCAL,CMND2C/LOCAL,/NOSTART -
IMPURE,PURE,COBCOM, -
COBOLA, BTREE,COBOLB, -
DBGETF,DBDML,CMLVOK,CMLIO,CMLERR,SCHIO2,STRHI/SEARCH,-
SQUIRL,GETITM/LOC,PUTCPY,CLRNAM,TRYNAM, -
COBOLC/LOC,CTREE,PSCAN,CLEANC,-
CLEANT,DTREE,COBOLD/LOC,CLEAND, -
COBOLE,CMNGEN/LOC,IFGEN/LOC,IOGEN,IPCGEN/LOC,MATGEN,-
MOVGEN,BISGEN,MSCGEN,RPWGEN/LOC,SRTGEN,STRGEN,XFRGEN/LOC,-
EXPGEN,MESGEN,ASCSIX,ASCEBC,EBCASC,-
COBOLO,PMATCH,COBOLF,PUTLST,COBOLG,DIAGS,SRTCRF,-
HANDAN,TRACER,COBOLK/G
@DELETE PAT:HANDAN.REL, PAT:TRACER.REL
@TAKE ASL:CBBDEL.CMD
@EXPUNGE PAT:
@GOTO LODON
!Here to build COBOL with DBMS and no DEBUG
BLD2::
@TYPE CBLB.CMD
@COMPILE/COM @CBLB.CMD
@RUN ASL:LINK
COBOL/SAV=/SYMSEG:HIGH /NOLOCAL /HASHSIZE:7352 -
COBSCN,CMND2C,/NOSTART -
IMPURE,PURE,COBCOM, -
COBOLA, BTREE,COBOLB, -
DBGETF,DBDML,CMLVOK,CMLIO,CMLERR,SCHIO2,STRHI/SEARCH,-
SQUIRL,GETITM,PUTCPY,CLRNAM,TRYNAM, -
COBOLC,CTREE,PSCAN,CLEANC,-
CLEANT,DTREE,COBOLD,CLEAND, -
COBOLE,CMNGEN,IFGEN,IOGEN,IPCGEN,MATGEN,-
MOVGEN,BISGEN,MSCGEN,RPWGEN,SRTGEN,STRGEN,XFRGEN,-
EXPGEN,MESGEN,ASCSIX,ASCEBC,EBCASC,-
COBOLO,PMATCH,COBOLF,PUTLST,COBOLG,DIAGS,SRTCRF,-
COBOLK/G
@TAKE ASL:CBBDEL.CMD
@GOTO LODON
NODBMS::
@RUN COBTST.EXE
*DEBUG
@IF (ERROR) @GOTO BLD4
BLD3:: !Here to build COBOL with DEBUG and no DBMS
@TYPE CBLD.CMD
@COMPILE/COM @CBLD.CMD
@RUN ASL:LINK
COBOL/SAV=/SYMSEG:HIGH /NOLOCAL /HASHSIZE:9000 -
COBSCN,CMND2C,/NOSTART -
IMPURE,PURE,COBCOM, -
COBOLA, BTREE,COBOLB, -
SQUIRL,GETITM,PUTCPY,CLRNAM,TRYNAM, -
COBOLC,CTREE,PSCAN,CLEANC,-
CLEANT,DTREE,COBOLD,CLEAND, -
COBOLE,CMNGEN,IFGEN,IOGEN,IPCGEN,MATGEN,-
MOVGEN,BISGEN,MSCGEN,RPWGEN,SRTGEN,STRGEN,XFRGEN,-
EXPGEN,MESGEN,ASCSIX,ASCEBC,EBCASC,-
COBOLO,PMATCH,COBOLF,PUTLST,COBOLG,DIAGS,SRTCRF,-
HANDAN,TRACER,COBOLK/G
@DEL ASL:HANDAN.REL, ASL:TRACER.REL
@TAKE ASL:CBLDEL.CMD
@GOTO LODON
BLD4: !Here to build COBOL with neither DBMS or DEBUG
@COMPILE/COM @CBLASM.CMD
@RUN ASL:LINK
COBOL/SAV=/SYMSEG:HIGH /NOLOCAL /HASHSIZE:9000 -
COBSCN,CMND2C,/NOSTART -
IMPURE,PURE,COBCOM, -
COBOLA, BTREE,COBOLB, -
SQUIRL,GETITM,PUTCPY,CLRNAM,TRYNAM, -
COBOLC,CTREE,PSCAN,CLEANC,-
CLEANT,DTREE,COBOLD,CLEAND, -
COBOLE,CMNGEN,IFGEN,IOGEN,IPCGEN,MATGEN,-
MOVGEN,BISGEN,MSCGEN,RPWGEN,SRTGEN,STRGEN,XFRGEN,-
EXPGEN,MESGEN,ASCSIX,ASCEBC,EBCASC,-
COBOLO,PMATCH,COBOLF,PUTLST,COBOLG,DIAGS,SRTCRF,-
COBOLK/G
@TAKE ASL:CBLDEL.CMD
LODON::
@START
*/U
@IF (NOERROR) @GOTO ERROR
COBOTS::
@TYPE ASL:OTSASM.CMD
@COMPILE/COM @ASL:OTSASM.CMD
@RU ASL:MACRO
*USRDSH,USRDSH/C=TTY:,ASL:USRDSP.MAC
*SHR==1
=
=
*USRDSL,USRDSL/C=ASL:USRDSP.MAC
! create dummy DBMS.REL
OTSLNK::
@RENAME DBDUM.REL DBMS.REL
!
!CREATE COBLIB.REL
!
@COPY COBST.REL COBLIB.REL
@APPEND LILOWS.REL,CBLIO.REL,RMSIO.REL,LBLERR.REL,LIBREL.REL,REMOVL.REL,TRACED.REL,LINE.REL,STRING.REL,LSU.REL COBLIB.REL
@APPEND ACCEPT.REL,ARGS.REL,PUTRES.REL,CANCEL.REL,GD.REL,GC.REL,PD.REL,PC.REL,FLOAT.REL COBLIB.REL
@APPEND FIX.REL,CDD.REL,MOVE.REL,EXPON.REL COBLIB.REL
@APPEND CMP.REL,SPAC.REL,ZERC.REL,PNZ.REL,NUM.REL,DSPFP.REL COBLIB.REL
@APPEND ARITH.REL,SUBSCR.REL,TODAY.REL COBLIB.REL
@APPEND SIZE1.REL,SIZ23.REL,INSPEC.REL,EDITC.REL,PERF.REL,COVRLY.REL COBLIB.REL
@APPEND KEY.REL,SETRET.REL,EASTBL.REL,ALBSTB.REL,DBSTUB.REL,DEBSTB.REL,COBFUN.REL COBLIB.REL
@APPEND COBSRT.REL COBLIB.REL
@APPEND EDITB.REL,NUBSTB.REL,NTBSTB.REL,LCM20.REL,USRDSL.REL,USRDSH.REL,RESOLV.REL COBLIB.REL
!
@IF (ERROR) @GOTO ERROR
!
!CREATE COBOTS-V13.EXE
!
@RU ASL:LINK
COBOTS.MAP/MAP=/SET:.HIGH.:600010 C8XSHR,SYS:MACREL/SEG:HIGH,DSK:COBLIB/SEARCH,/SYMSEG:NONE/GO
@IF (ERROR) @GOTO ERROR
@INFO MEM
@EXAMINE 600000
@IF (ERROR) @GOTO ERROR !WRONG VERSION OF PA1050 USED
!
!NOW SAVE IT. NOTE WE MUST GET RID OF PAGE 400 (A LINK BUG)
!BUT SAVE PAGE 0 AS IT MAKES IT EASIER TO PATCH
!
@SAVE DSK:COBOTS-V13 0 1,574 575,600 677
ISAM::
@RUN ASL:MACRO
*ISAM=ASL:ISAM
*USRDSH=TTY:,ASL:USRDSP
*SHR==1
=
=
*USRDSL=ASL:USRDSP
@RUN ASL:LINK
*ISAM.MAP/MAP=ISAM,COBLIB/SEARCH/SYMSEG:HIGH/GO
@SAVE ISAM 0 677
COBDDT::
@TAKE ASL:OTSDEL.CMD
@RUN ASL:MACRO
*COBDDT=ASL:COBDDT
CPYLIB::
@EXPUNGE PAT:
@RUN ASL:MACRO
*MMANGU=TTY:,ASL:MMANGU
*TOPS20==1
^Z
^Z
*IOTMPU=TTY:,ASL:IOTMPU
*TOPS20==1
^Z
^Z
*MMANGR=ASL:MMANGR
*IOTMP=ASL:IOTMP
*CPYLIB=ASL:CPYLIB
@RUN ASL:LINK
*CPYLIB.MAP/MAP=CPYLIB,IOTMP,MMANGR/GO
@SAVE CPYLIB
RERUN::
@EXPUNGE PAT:
@RUN ASL:MACRO
*RERUN=ASL:RERUN
@RUN ASL:LINK
*RERUN.MAP/MAP=RERUN,/SYMSEG:HIGH/GO
@SAVE RERUN 0 377,600 677
!Delete .UNV's and miscellaneous .REL's
@TAKE UNVDEL.CMD
@EXPUNGE PAT:
@DEFINE DSK:
@COPY PAT:C8XSHR.REL
@COPY PAT:COBLIB.REL
@DEFINE SYS:
@PEPB
*SIGNAL-SUCCESS COBOL-20-V13
*EXIT
@GOTO EXIT
%ERR::
@GOTO ERROR
%TERR::
@GOTO ERROR
ERROR::
@EXPUNGE PAT:
@DEFINE DSK:
@DEFINE SYS:
@PEPB
*SIGNAL-FAILURE COBOL-20-V13
*EXIT
EXIT::
%FIN::