Trailing-Edge
-
PDP-10 Archives
-
BB-L014E-BM
-
autopatch/cbl12b.ctl
There are 2 other files named cbl12b.ctl in the archive. Click here to see a list.
;
; CBL12B.CTL -- Patch and rebuild COBOL-20-V12B
; Version 1(2)
; December 6, 1982 / HAH
;
;
;COPYRIGHT (c) 1982, 1983 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-V12B 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-V12B
*EXIT
;
; Delete any sources that may be left in PAT:
;
@DELETE PAT:COBASM.MAC,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
@R ASL:UPDATE
*@PAT:CBL12B.SUP
@EXPUNGE
@DEFINE UNV: ASL:
@DEFINE DSK: ASL:
@DELETE PAT:*.TMP
@TYPE C68ASM.MAC
@IF (ERROR) @GOTO COBOL
@COPY C68ASM.MAC COBASM.MAC
COBOL::
@TYPE CBLASM.CMD
@COMPILE/COM @CBLASM.CMD
@EXPUNGE PAT:
@RUN LINK
*COBTST/GO
@SAVE COBTST
@RUN COBTST
*ANS68
@IF (ERROR) @GOTO C74 !COBOL-74
@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 COBOL 0 677
@TAKE CBDDEL.CMD
@GOTO LODON
NODB68::
@RUN LINK
*/SYMSEG:HIGH /HASHSIZE:7352 -
*IMPURE,PURE,HELPER, -
*SQUIRL,BTREE,XPNPPL,XPAND,GETITM,STINFL,CLRNAM, -
*TRYNAM,PUTGEN,PUTCPY,PUTERA,COBCOM,PUTLST,COBOLB, -
*COBOLA ,/NOSTART -
*ASCEBC,CLEANC,CTREE,FNDPOP,GETTAG,PSCAN,PUTAS1, -
*PUTAS2,COBOLC,CLEANT,DTREE,COBOLD,CLEAND,ASCSIX, -
*EBCASC,COBOLE,CMNGEN,EXPGEN,GETGEN,IFGEN,IOGEN, -
*IPCGEN,MATGEN,MESGEN,MOVGEN,BISGEN,MSCGEN,PUTAS3, -
*RPWGEN,SRTGEN,STRGEN,XFRGEN,COBOLO,PMATCH,COBOLF, -
*COBOLG,DIAGS,GETASY,GETCPY,PUTBIN,SRTCRF,COBOLK/G
@SAVE COBOL 0 677
@GOTO LODON
C74::
@RUN COBTST
*DBMS
@IF (ERROR) @GOTO NODB74
@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 CBL74 0 677
@TAKE CBDDEL.CMD
@GOTO LODON
NODB74::
@RUN LINK
*/SYMSEG:HIGH /HASHSIZE:7352 -
*IMPURE,PURE,HELPER, -
*SQUIRL,BTREE,XPNPPL,XPAND,GETITM,STINFL,CLRNAM, -
*TRYNAM,PUTGEN,PUTCPY,PUTERA,COBCOM,PUTLST,COBOLB, -
*COBOLA ,/NOSTART -
*ASCEBC,CLEANC,CTREE,FNDPOP,GETTAG,PSCAN,PUTAS1, -
*PUTAS2,COBOLC,CLEANT,DTREE,COBOLD,CLEAND,ASCSIX, -
*EBCASC,COBOLE,CMNGEN,EXPGEN,GETGEN,IFGEN,IOGEN, -
*IPCGEN,MATGEN,MESGEN,MOVGEN,BISGEN,MSCGEN,PUTAS3, -
*RPWGEN,SRTGEN,STRGEN,XFRGEN,COBOLO,PMATCH,COBOLF, -
*COBOLG,DIAGS,GETASY,GETCPY,PUTBIN,SRTCRF,COBOLK/G
@SAVE CBL74 0 677
LODON::
@TAKE CBLDEL.CMD
@START
*/U
@IF (NOERROR) @GOTO ERR
@TYPE C74ASM.MAC
@IF (ERROR) @GOTO C68274
@COPY C74ASM.MAC COBASM.MAC
@TYPE CBLASM.CMD
@COMPILE/COM @CBLASM.CMD
@EXPUNGE PAT:
@RUN LINK
*COBTST/GO
@SAVE COBTST
@RUN COBTST
*DBMS
@IF (ERROR) @GOTO NODB
@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 CBL74 0 677
@TAKE CBDDEL.CMD
@GOTO LODON
NODB::
@RUN LINK
*/SYMSEG:HIGH /HASHSIZE:7352 -
*IMPURE,PURE,HELPER, -
*SQUIRL,BTREE,XPNPPL,XPAND,GETITM,STINFL,CLRNAM, -
*TRYNAM,PUTGEN,PUTCPY,PUTERA,COBCOM,PUTLST,COBOLB, -
*COBOLA ,/NOSTART -
*ASCEBC,CLEANC,CTREE,FNDPOP,GETTAG,PSCAN,PUTAS1, -
*PUTAS2,COBOLC,CLEANT,DTREE,COBOLD,CLEAND,ASCSIX, -
*EBCASC,COBOLE,CMNGEN,EXPGEN,GETGEN,IFGEN,IOGEN, -
*IPCGEN,MATGEN,MESGEN,MOVGEN,BISGEN,MSCGEN,PUTAS3, -
*RPWGEN,SRTGEN,STRGEN,XFRGEN,COBOLO,PMATCH,COBOLF, -
*COBOLG,DIAGS,GETASY,GETCPY,PUTBIN,SRTCRF,COBOLK/G
@SAVE CBL74 0 677
LODON::
@TAKE CBLDEL.CMD
@START
*/U
@IF (NOERROR) @GOTO ERR
@
C68274::
@TYPE TRNASM.MAC
@IF (ERROR) @GOTO LIBOL
@COPY TRNASM.MAC COBASM.MAC
@TYPE CBLASM.CMD
@COMPILE/COM @CBLASM.CMD
@EXPUNGE PAT:
@RUN LINK
*COBTST/GO
@SAVE COBTST
@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:HIGH /HASHSIZE:7352 -
*IMPURE,PURE,HELPER, -
*SQUIRL,BTREE,XPNPPL,XPAND,GETITM,STINFL,CLRNAM, -
*TRYNAM,PUTGEN,PUTCPY,PUTERA,COBCOM,PUTLST,COBOLB, -
*COBOLA ,/NOSTART -
*ASCEBC,CLEANC,CTREE,FNDPOP,GETTAG,PSCAN,PUTAS1, -
*PUTAS2,COBOLC,CLEANT,DTREE,COBOLD,CLEAND,ASCSIX, -
*EBCASC,COBOLE,CMNGEN,EXPGEN,GETGEN,IFGEN,IOGEN, -
*IPCGEN,MATGEN,MESGEN,MOVGEN,BISGEN,MSCGEN,PUTAS3, -
*RPWGEN,SRTGEN,STRGEN,XFRGEN,COBOLO,PMATCH,COBOLF, -
*COBOLG,DIAGS,GETASY,GETCPY,PUTBIN,SRTCRF,COBOLK/G
@SAVE 68274 0 677
LODON::
@TAKE CBLDEL.CMD
@EXPUNGE PAT:
LIBOL::
@TYPE C68ASM.MAC
@IF (ERROR) @GOTO NEXT
@COPY C68ASM.MAC COBASM.MAC
NEXT::
@TYPE LIBASM.CMD
@COMPILE/COM @LIBASM.CMD
@EXPUNGE PAT:
@RUN LINK
*COBTST/GO
@SAVE COBTST
@RUN COBTST
*ANS68
@IF (ERROR) @GOTO L74
@RUN MACRO
*LIBSHR=LIBSHR
@GOTO NEXT
L74::
@RUN MACRO
*C74SHR=LIBSHR
*RMSIO=RMSIO
@
NEXT::
@RUN MACRO
*ISAM=ISAM
*USRDSH=TTY:,USRDSP
*SHR==1
=
=
*USRDSL=USRDSP
@RUN COBTST
*ANS68
@IF (ERROR) @GOTO L74
L68::
@TYPE CBLL68.CMD
@TAKE CBLL68.CMD
@ERROR %
@VDIR SRTCBL.MAC,
@CHE SEQ
@
@IF (ERROR) @GOTO NOSORT
@ERROR
@RUN MACRO
*SRTCBL.REL=SRT20,SRTPRM,SRTCBL,SRTCER,SRTJSS,SORT
@RUN MAKLIB
*LIBOL.REL=LIBOL.REL/MAST:SORT,SRTCBL.REL/REP:SORT
NOSORT::
@ERROR
@RUN LINK
*ISAM,LIBOL/SEARCH/SYMSEG:HIGH/GO
@SAVE ISAM 0 677
@RUN COBTST
*DBMS
@IF (ERROR) @GOTO NODBMS
@ERROR %
@VDIR DBSCOB.REL
@IF (ERROR) @GOTO NODBMS
@ERROR
@RUN MAKLIB
*LIBOL=LIBOL/DELETE:RESOLV
*LIBOL=LIBOL/DELETE:RSVGAT
*LIBOL=LIBOL/DELETE:DBSTP$
*COBFUN.TMP=LIBOL/EXTR:COBFUN
*LIBOL=LIBOL/DELETE:COBFUN
*LIBOL=LIBOL,DBSCOB/APPEND,DBS20/APPEND,COBFUN.TMP/APPEND,DBSANY/APPEND,SCHIO2/APPEND
*LIBOL=LIBOL/INDEX
@DELETE COBFUN.TMP
@RUN LINK
*/SET:.HIGH.:562010 LIBOL/INCL:(ACCEPT,CANCEL,PD,EXPON,SORT,DBBIND,SCH.IN,ID.INI,TID.IN,REC.WA,AR.WAL,TRN.WA,SETDB,UPD.SS,TRU.BL,ALBSTB)
*/SET:.HIGH.:600010 LIBSHR,MACREL/SEG:HIGH,LIBOL/SEARCH,/SYMSEG:NONE/GO
@SAVE LIBO12 0 1,562 577,600 675
@GOTO BOTH
NODBMS::
@ERROR
@RUN MAKLIB
*LIBOL.REL=LIBOL.REL/INDEX
@RUN LINK
*/SET:.HIGH.:600010 LIBSHR,MACREL
*/SEG:HIGH,LIBOL/SEARCH,/SYMSEG:NONE/GO
@INFO MEM
@EXAMINE 600000
@SAVE LIBO12 0 1,574 575,600 677
@GOTO BOTH
L74::
@TYPE CBLL74.CMD
@TAKE CBLL74.CMD
@ERROR %
@VDIR SRTCBL.MAC,
@
@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::
@ERROR
@RUN LINK
*ISAM,C74LIB/SEARCH/SYMSEG:HIGH/GO
@SAVE ISAM 0 677
@RUN COBTST
*DBMS
@IF (ERROR) @GOTO NODBMS
@ERROR %
@VDIR DBSCOB.REL
@IF (ERROR) @GOTO NODBMS
@ERROR
@RUN MAKLIB
*C74LIB=C74LIB/DELETE:RESOLV
*C74LIB=C74LIB/DELETE:RSVGAT
*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
*C74LIB=C74LIB/INDEX
@DELETE COBFUN.TMP
@RUN LINK
*/SET:.HIGH.:550010 C74LIB/INCL:(CBLIO)
*/SET:.HIGH.:600010 C74SHR,MACREL/SEG:HIGH,C74LIB/SEARCH,/SYMSEG:NONE/GO
@SAVE C74O12 0 1,550 575,600 675
@GOTO BOTH
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
BOTH::
@TYPE C74ASM.MAC
@IF (ERROR) @GOTO COBDDT
@COPY C74ASM.MAC COBASM.MAC
@TAKE LIBDEL.CMD
@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
*C74LIB=C74LIB/DELETE:RESOLV
*C74LIB=C74LIB/DELETE:RSVGAT
*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
*C74LIB=C74LIB/INDEX
@DELETE COBFUN.TMP
@RUN LINK
*/SET:.HIGH.:550010 C74LIB/INCL:(CBLIO)
*/SET:.HIGH.:600010 C74SHR,MACREL/SEG:HIGH,C74LIB/SEARCH,/SYMSEG:NONE/GO
@SAVE C74O12 0 1,550 575,600 675
@GOTO COBDDT
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
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:
@PEPB
*SIGNAL-SUCCESS COBOL-20-V12B
*EXIT
@GOTO EXIT
%ERR::
@EXPUNGE PAT:
@DEFINE DSK:
@PEPB
*SIGNAL-FAILURE COBOL-20-V12B
*EXIT
EXIT::
%FIN::