Google
 

Trailing-Edge - PDP-10 Archives - bb-l014w-bm_tops20_v7_0_atpch_23 - 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(3)
;	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
;3	July 27, 1988 / HAH	Add branch for no update
;
;
;		       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

@ERROR %
@VDIR PAT:CBL13.SUP
@IF (ERROR) @GOTO NOUPD
@R ASL:UPDATE
*@PAT:CBL13.SUP
NOUPD::
@ERROR
@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::