Trailing-Edge
-
PDP-10 Archives
-
ap-c800d-sb
-
dbms.ctl
There are 11 other files named dbms.ctl in the archive. Click here to see a list.
!DBMS.CTL VERSION 5
!
!USED TO LOAD SCHEMA PROCESSOR, FORTRAN PRE-PROCESSOR, DBINFO,
!DBMEND, DAEMDB, FORTRAN RUN-TIME SYSTEM, COBOL RUN-TIME SYSTEM
!
!***** WARNING---THIS CTL FILE IS USED TO BUILD DBMS ON
! THE DEVELOPMENT SYSTEMS IN MARLBORO. IT IS NOT
! GAURANTEED TO RUN ON ANY OTHER SYSTEM. THE USER
! SHOULD CHECK THIS CTL FILE FOR ANY INSTALLATION
! DEPENDENT ITEMS.
!
!THIS FILE RUNS ON EITHER TOPS-20 OR TOPS-10 ON ALL SUPPORTED MONITORS
!SUBMIT WITH COMMAND SUBMIT DBMS/TIME:1:0:0
!
!THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
! OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
!
!COPYRIGHT (C) 1979 BY DIGITAL EQUIPMENT CORPORATION
!
!
!INSTALLATION SPECIFIC ASSIGNMENTS SHOULD BE PUT IN THE FOLLOWING FILE:
! ON TOPS-20 IN A TAKE FILE DBMS.CMD
! ON TOPS-10 IN A MIC FILE DBMS.MIC
! OR IN A TECO FILE DBMS.TEC
!IF THIS FILE IS ABSENT THEN ALL REQUIRED FILES ARE ASSUMED TO EXIST ON DSK:
!
!TEST FOR WHICH SYSTEM
@GOTO TOPS20 !TOPS20 VERSION
.GOTO TOPS10 !TOPS10 VERSION
TOPS20::
!
!REQUIRED FILES:
!<FIELD-IMAGE> MAKLIB (LATEST RELEASED VERSIONS)
! LINK
!<REL> SCAN.REL WILD.REL HELPER.REL
!<RELEASE 4> MACREL.REL
![SELF]: DBSANY.REL DBS20.REL DBSFOR.REL DBSCOB.REL
! GENME2.REL GENMS2.REL GENIO2.REL
! DBMS20.CTL DBS052.RND
! SCHEMA.CMD SCHEMA.HLP
! FORDM2.CMD FORDML.HLP
! DBMEN2.CMD DBMEND.HLP
! DBINF2.CMD DBINFO.HLP
! DAEMD2.CMD DAEMDB.HLP
! DBCS2C.CMD DBCS2F.CMD
! DDLANY.REL DDL20.REL
! FMLANY.REL FML20.REL
! MNDANY.REL MND20.REL
! INFANY.REL INF20.REL
! DABANY.REL DAB20.REL
! STRLIB.REL SCHIO2.REL
!
!
!***** EXAMINE SECTION 6 OF DBMS20.DOC BEFORE SUBMITTING THIS CTL FILE.
! IF APPLICABLE REBUILD COBOL, LIBOL AND/OR FOROTS BEFORE RUNNING THIS CTL FILE
!***** IMPORTANT:
! THE DISTRIBUTED .LOG FILE FOR THIS .CTL FILE DOES BUILD
! BOTH A FOROTS AND A LIBOL, BUT THERE IS NO INTENT THAT A USER INSTALLATION
! BUILD IDENTICAL COPIES OF THESE HOST-SYSTEMS.
! THE INTENT IS TO DEMONSTRATE THAT THE PROCESS OF BUILDING FOROTS
! AND LIBOL IS VALID.
!
!***** IF YOU DESIRE COBOL-68 DBMS-20 SUPPORT, YOU MUST INCLUDE
! A COPY OF THE LATEST RELEASED LIBOL.REL AND LIBSHR.REL IN YOUR AREA.
!
!***** IF YOU DESIRE COBOL-74 DBMS-20 SUPPORT, YOU MUST INCLUDE
! A COPY OF THE LATEST RELEASED C74LIB.REL AND C74SHR.REL IN YOUR AREA.
!
!***** IF YOU WISH TO BUILD A FORTRAN-20/DBMS-20 RUN-TIME SYSTEM, YOU
! MUST INCLUDE A COPY OF THE LATEST RELEASED FORLIB.REL IN YOUR AREA.
!
!
!OUTPUT: SCHEMA.EXE FORDML.EXE DBMEND.EXE DBINFO.EXE DAEMDB.EXE
! SCHEMA.MAP FORDML.MAP DBMEND.MAP DBINFO.MAP DAEMDB.MAP
!
! IF BUILDING A COBOL-68 SYSTEM: LIBO12.EXE,LIBOL.MAP, AND LIBOL.REL
! IF BUILDING A COBOL-74 SYSTEM: C74O12.EXE,C74OTS.MAP, AND C74LIB.REL
! IF BUILDING A FORTRAN SYSTEM: FDBOTS.EXE,FDBOTS.MAP, AND FORLIB.REL
!
!OUTPUT LISTINGS: DBMS20.LOG, DBMS20.DOC(3), *.MAP
!
!USE LATEST RELEASED SOFTWARE
!
@TAKE DBMS.CMD
!
!MAKE A RECORD OF WHAT IS BEING USED
@GET SYS:LINK
@INFO VERSION
@GET SYS:MAKLIB
@INFO VERSION
@VDIRECT SYS:MAKLIB.EXE,SYS:LINK.EXE,
@CHECKSUM SEQUENTIAL
@
@VDIRECT DEC:SCAN.REL,DEC:WILD.REL,DEC:HELPER.REL,
@CHECKSUM SEQUENTIAL
@
@VDIRECT DBS*.REL,SCHIO2.REL,DBS052.RND,DBMS20.CTL,DBCS2%.CMD,*.HLP,
@CHECKSUM SEQUENTIAL
@
@IF (ERROR) @GOTO TRUBLE
@GOTO QCOBOL
DBALL::
!
!MAKE A RECORD OF WHAT IS BEING USED
@GET SYS:LINK
@INFO VERSION
@GET SYS:MAKLIB
@INFO VERSION
@DIRECT SYS:MAKLIB.EXE,SYS:LINK.EXE,
@CHECKSUM SEQUENTIAL
@
@DIRECT DEC:SCAN.REL,DEC:WILD.REL,DEC:HELPER.REL,
@CHECKSUM SEQUENTIAL
@
@DIRECT DDL*.REL,FML*.REL,MND*.REL,DBS*.REL,INF*.REL,DAB*.REL,GEN*.REL,STRHI.REL,SCHIO2.REL,DBS052.RND,DBMS20.CTL,%%%%%2.CMD,DBCS2%.CMD,*.HLP,
@CHECKSUM SEQUENTIAL
@
@IF (ERROR) @GOTO TRUBLE
!CREATE SCHEMA PROCESSOR
!
@LINK
*@SCHEM2
@IF (ERROR) @GOTO TRUBLE
@SAVE DSK:SCHEMA
@IF (ERROR) @GOTO TRUBLE
!
!CREATE FORTRAN PRE-PROCESSOR
!
@LINK
*@FORDM2
@IF (ERROR) @GOTO TRUBLE
@SAVE DSK:FORDML
@IF (ERROR) @GOTO TRUBLE
!
!CREATE BACKUP/RECOVERY UTILITY
!
@LINK
*@DBMEN2
@IF (ERROR) @GOTO TRUBLE
@SAVE DSK:DBMEND
@IF (ERROR) @GOTO TRUBLE
!
!CREATE INFO-GENERATING UTILITY
!
@LINK
*@DBINF2
@IF (ERROR) @GOTO TRUBLE
@SAVE DSK:DBINFO
@IF (ERROR) @GOTO TRUBLE
!
!CREATE BACKGROUND MTA JOURNALING FACILITY
!
@LINK
*@DAEMD2
@IF (ERROR) @GOTO TRUBLE
@SAVE DSK:DAEMDB
@IF (ERROR) @GOTO TRUBLE
!
QCOBOL::
!BUILD COBOL-68 INTERFACE IF LIBOL.REL IS AVAILABLE
!
@ERROR %
@DIRECT LIBOL.REL
@IF (ERROR) @GOTO NOCOB
@ERROR
!
@MAKLIB
*LIBOL=LIBOL/DELETE:RESOLV
*LIBOL=LIBOL/DELETE:RSVGAT
*COBFUN.TMP=LIBOL/EXTR:COBFUN
*LIBOL=LIBOL,DBSCOB/APPEND,DBS20/APPEND,COBFUN.TMP/APPEND,DBSANY/APPEND,SCHIO2/APPEND
*LIBOL=LIBOL/INDEX
@DEL COBFUN.TMP
!
@LINK
*LIBOL.MAP/MAP=/NOLOCAL LIBSHR,DSK:MACREL/SEG:HIGH,LIBOL/SEARCH,/SYMSEG:HIGH/GO
@IF (ERROR) @GOTO TRUBLE
@SAVE DSK:LIBO12 0 1,600 675
@IF (ERROR) @GOTO TRUBLE
!!! LIBRARIES SO BIG MAKE SURE OLD COPY WENT AWAY
@EXPUNGE
NOCOB::
@ERROR
!
!
QCBL74::
!BUILD COBOL-74 INTERFACE IF C74LIB.REL IS AVAILABLE
!
@ERROR %
@DIRECT C74LIB.REL
@IF (ERROR) @GOTO NOC74
@ERROR
!
@MAKLIB
*C74LIB=C74LIB/DELETE:RESOLV
*C74LIB=C74LIB/DELETE:RSVGAT
*COBFUN.TMP=C74LIB/EXTR:COBFUN
*C74LIB=C74LIB,DBSCOB/APPEND,DBS20/APPEND,COBFUN.TMP/APPEND,DBSANY/APPEND,SCHIO2/APPEND
*C74LIB=C74LIB/INDEX
@DEL COBFUN.TMP
!
@LINK
*C74OTS.MAP/MAP=/NOLOCAL C74SHR,DSK:MACREL/SEG:HIGH,C74LIB/SEARCH,/SYMSEG:HIGH/GO
@IF (ERROR) @GOTO TRUBLE
@SAVE DSK:C74O12 0 1,600 675
@IF (ERROR) @GOTO TRUBLE
!!! LIBRARIES SO BIG MAKE SURE OLD COPY WENT AWAY
@EXPUNGE
NOC74::
@ERROR
!
QFORT::
!BUILD FORTRAN INTERFACE IF FORLIB.REL IS AVAILABLE
!
@ERROR %
@DIRECT FORLIB.REL
@IF (ERROR) @GOTO NOFORT
@ERROR
!
@MAKLIB
*FORLIB=FORLIB/DELETE:FORDBM
*FORLIB=FORLIB,DBSFOR/APPEND,DBS20/APPEND,DBSANY/APPEND,SCHIO2/APPEND
*FORLIB=FORLIB/INDEX
!
@LINK
*@DBCS2F
@IF (ERROR) @GOTO TRUBLE
@SAVE DSK:FDBOTS
@IF (ERROR) @GOTO TRUBLE
!!! LIBRARIES SO BIG MAKE SURE OLD COPY WENT AWAY
@EXPUNGE
NOFORT::
@ERROR
!
!HAVE BUILT EVERYTHING, NOW CLEANUP
!
!BUILD AND PRINT DOC FILE
!
@RUNOFF
*DBMS20=DBS052
@IF (ERROR) @PLEASE -- COULD NOT CREATE DBMS20.DOC???
@PRINT DBMS20.DOC/COPIES:1,*.MAP
@IF (ERROR) .PLEASE -- COULD NOT PRINT DOC AND/OR MAP FILES???
!
!SEE WHAT WE GOT
!
@DIRECT SCHEMA.*,FORDML.*,DBMEND.*,DBINFO.*,DAEMDB.*,%DBOTS.*,LIBOL.REL,FORLIB.REL,
@CHECKSUM SEQUENTIAL
@
!
!TELL HOW WE DID
!
@PLEASE -- DBMS-20 CREATION SUCCESSFUL!!!
@GOTO ENDOF
TRUBLE::
@PLEASE -- DBMS-20 CREATION NOT SUCCESSFUL???
@GOTO ENDOF
TOPS10::
!REQUIRED FILES:
!DEC: PIP (LATEST RELEASED VERSIONS)
! DIRECT
! CREF
! MAKLIB
! LINK+LNK*
!REL: SCAN.REL
! WILD.REL
! HELPER.REL
!
![SELF]: DBSANY.REL DBS10.REL DBSFOR.REL DBSCOB.REL
! GENME1.REL GENMS1.REL GENIO1.REL
! DBMS10.CTL DBS051.RND
! SCHEMA.CMD SCHEMA.HLP
! FORDM1.CMD FORDML.HLP
! DBMEN1.CMD DBMEND.HLP
! DBINF1.CMD DBINFO.HLP
! DAEMD1.CMD DAEMDB.HLP
! DBCS1C.CMD DBCS1F.CMD
! DDLANY.REL DDL10.REL
! FMLANY.REL FML10.REL
! MNDANY.REL MND10.REL
! INFANY.REL INF10.REL
! DABANY.REL DAB10.REL
! STRHI.REL SCHIO1.REL
!
!
!***** EXAMINE SECTION 6 OF DBMS10.DOC BEFORE SUBMITTING THIS CTL FILE.
! IF APPLICABLE REBUILD COBOL, LIBOL AND/OR FOROTS BEFORE RUNNING THIS CTL FILE
!
!***** IF YOU DESIRE COBOL-68 DBMS-10 SUPPORT, YOU MUST INCLUDE
! A COPY OF THE LATEST RELEASED LIBOL.REL AND LIBSHR.REL IN YOUR AREA.
!
!***** IF YOU DESIRE COBOL-74 DBMS-10 SUPPORT, YOU MUST INCLUDE
! A COPY OF THE LATEST RELEASED C74LIB.REL AND C74SHR.REL IN YOUR AREA.
!
!
!***** IF YOU WISH TO BUILD A FORTRAN-10/DBMS-10 RUN-TIME SYSTEM, YOU
! MUST INCLUDE A COPY OF THE LATEST RELEASED FORLIB.REL IN YOUR AREA.
!
!
!OUTPUT: SCHEMA.EXE FORDML.EXE DBMEND.EXE DBINFO.EXE DAEMDB.EXE
! SCHEMA.MAP FORDML.MAP DBMEND.MAP DBINFO.MAP DAEMDB.MAP
!
! IF BUILDING A COBOL-68 SYSTEM: LIBO12.EXE,LIBOL.MAP, AND LIBOL.REL
! IF BUILDING A COBOL-74 SYSTEM: C74O12.EXE,C74OTS.MAP, AND C74LIB.REL
! IF BUILDING A FORTRAN SYSTEM: FDBOTS.EXE,FDBOTS.MAP, AND FORLIB.REL
!
!OUTPUT LISTINGS: DBMS10.LOG, DBMS10.DOC(3), *.MAP
!
! **** WILL BUILD JUST THE DESIRED OTS'S
.SET WATCH VERSION
!SET UP THE DEFAULT LOGICAL NAMES
.ASSIGN DEC: UNV:
.ASSIGN DSK: SRC:
.ASSIGN DSK: C68:
.ASSIGN DSK: C74:
!
!CHANGE THEM IF USER SO DESIRES
!.DO DBMS.MIC
.IF (ERROR) !IGNORE IT
.R DIRECT
*TTY:/CHECKSUM=SYS:DIRECT+MAKLIB+LINK+LNK*+SCAN.REL+WILD.REL+HELPER.REL
.R DIRECT
*TTY:/CHECKSUM=DBS*.REL,SCHIO1.REL,DBS051.RND,DBMS10.CTL,DBCS1?.CMD,*.HLP
.IF (ERROR) .GOTO TRUBLE
.GOTO QCOBOL
! **** CAUSE ALL THE SOFTWARE TO BE REBUILT BY SPECIFYING /TAG:DBALL
DBALL::
.SET WATCH VERSION
!.DO DBMS.MIC
.IF (ERROR) !IGNORE IT
.R DIRECT
*TTY:/CHECKSUM=SYS:DIRECT+MAKLIB+LINK+LNK*+SCN7.REL+WILD.REL+HELPER.REL
.R DIRECT
*TTY:/CHECKSUM=DDL*.REL,FML*.REL,MND*.REL,DBS*.REL,DAB*.REL,INF*.REL,GEN*.REL,STRHI.REL,SCHIO1.REL,DBS051.RND,DBMS10.CTL,?????1.CMD,DBCS1?.CMD,*.HLP
.IF (ERROR) .GOTO TRUBLE
!CREATE SCHEMA PROCESSOR
!
.R LINK
*@SCHEM1
.IF (ERROR) .GOTO TRUBLE
.SSAVE DSK:SCHEMA
.IF (ERROR) .GOTO TRUBLE
!
!CREATE FORTRAN PRE-PROCESSOR
!
.R LINK
*@FORDM1
.IF (ERROR) .GOTO TRUBLE
.SSAVE DSK:FORDML
.IF (ERROR) .GOTO TRUBLE
!
!CREATE BACKUP/RECOVERY UTILITY
!
.R LINK
*@DBMEN1
.IF (ERROR) .GOTO TRUBLE
.SSAVE DSK:DBMEND
.IF (ERROR) .GOTO TRUBLE
!
!CREATE INFO-GENERATING UTILITY
!
.R LINK
*@DBINF1
.IF (ERROR) .GOTO TRUBLE
.SSAVE DSK:DBINFO
.IF (ERROR) .GOTO TRUBLE
!
!CREATE BACKGROUND MTA FACILITY
!
.R LINK
@DAEMD1
.IF (ERROR) .GOTO TRUBLE
.SSAVE DSK:DAEMDB
.IF (ERROR) .GOTO TRUBLE
!
QCOBOL::
!BUILD COBOL INTERFACE IF LIBOL.REL IS AVAILABLE
!
.ERROR %
.R DIRECT
*TTY:=LIBOL.REL
.IF (ERROR) .GOTO NOCOB
.ERROR
!
.R MAKLIB
*LIBOL=LIBOL/DELETE:RESOLV
*LIBOL=LIBOL/DELETE:RSVGAT
*COBFUN.TMP=LIBOL/EXTR:COBFUN
*LIBOL=LIBOL,DBSCOB/APPEND,DBS10/APPEND,COBFUN.TMP/APPEND,DBSANY/APPEND,SCHIO1/APPEND
*LIBOL=LIBOL/INDEX
.DEL COBFUN.TMP
!
.RUN DEC:LINK
*LIBO12.MAP/MAP=LIBSHR,LIBOL/SEARCH/GO
.IF (ERROR) .GOTO TRUBLE
.SSAVE DSK:LIBO12
.IF (ERROR) .GOTO TRUBLE
NOCOB::
.ERROR
!
QCBL74::
!BUILD COBOL-74 INTERFACE IF C74LIB.REL IS AVAILABLE
!
.ERROR %
.R DIRECT
*TTY:=C74LIB.REL
.IF (ERROR) .GOTO NOC74
.ERROR
!
.R MAKLIB
*LIBOL=LIBOL/DELETE:RESOLV
*LIBOL=LIBOL/DELETE:RSVGAT
*COBFUN.TMP=LIBOL/EXTR:COBFUN
*LIBOL=LIBOL,DBSCOB/APPEND,DBS10/APPEND,COBFUN.TMP/APPEND,DBSANY/APPEND,SCHIO1/APPEND
*LIBOL=LIBOL/INDEX
.DEL COBFUN.TMP
!
.RUN DEC:LINK
*C74OTS.MAP/MAP=C74SHR,C74LIB/SEARCH/GO
.IF (ERROR) .GOTO TRUBLE
.SSAVE DSK:C74O12
.IF (ERROR) .GOTO TRUBLE
NOC74::
.ERROR
!
QFORT::
!BUILD FORTRAN INTERFACE IF FORLIB.REL IS AVAILABLE
!
.ERROR %
.R DIRECT
*TTY:=FORLIB.REL
.IF (ERROR) .GOTO NOFORT
.ERROR
!
.R MAKLIB
*FORLIB=FORLIB/DELETE:FORDBM
*FORLIB=FORLIB,DBSFOR/APPEND,DBS10/APPEND,DBSANY/APPEND,SCHIO1/APPEND
*FORLIB=FORLIB/INDEX
!
.R LINK
*@DBCS1F
.IF (ERROR) .GOTO TRUBLE
.SSAVE DSK:FDBOTS
.IF (ERROR) .GOTO TRUBLE
NOFORT::
.ERROR
!
!HAVE BUILT EVERYTHING, NOW CLEANUP
!
!BUILD AND PRINT DOC FILE
!
.R RUNOFF
*DBMS10=DBS051
.IF (ERROR) .PLEASE -- COULD NOT CREATE DBMS10.DOC???
.PRINT DBMS10.DOC/COPIES:3,*.MAP/DISPOSE:DELETE
.IF (ERROR) .PLEASE -- COULD NOT PRINT DOC AND/OR MAP FILES???
!
!SEE WHAT WE GOT
!
.R DIRECT
*TTY:/CHECKSUM=SCHEMA.*,FORDML.*,DBMEND.*,DBINFO.*,DAEMDB.*,?DBOTS.*
*TTY:/CHECKSUM=LIBOL.REL,LIBO12.EXE,FORLIB.REL,C74012.EXE
!
!TELL HOW WE DID
!
.PLEASE -- DBMS-10 CREATION SUCCESSFUL!!!
.GOTO ENDOF
TRUBLE::
.PLEASE -- DBMS-10 CREATION NOT SUCCESSFUL???
ENDOF::.![ END OF DBMS.CTL ]