Enter your search terms Submit search form
	Web pdp-10.trailing-edge.com

;FDBM5.CTL		V(EDIT)==5A(12)
;Used to load  FORTRAN run-time system
;
;Submit with command	.SUBMIT FDBM5/TIME:10:00
;
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1975, 1986
;ALL RIGHTS RESERVED.
;
;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.

;Required files:
;SYS:		MAKLIB		(Latest released versions)
;		DIRECT
;		LINK+LNK*
;		FORTRAN V10
;		FOROTS V10
;		FORLIB V10
;
;DSK:		DBSANY.REL	DBS10.REL	DBSFOR.REL	
;		FDBM5.CTL	DBCS1F.CMD	FDBM5.CCL
;		SCHIO1.REL	FDBM5.FOR
;
;
;Output:	DBMSF.REL, DBMSF.EXE
;
;Use latest software and record what is used
.SET WATCH VERSION
.MOU PIT:
.R SETSRC
*C PIT:,*
*T

.DIR /CHECKSUM SYS:DIRECT, SYS:MAKLIB, SYS:LINK, SYS:LNK*
.ERROR


; These files must exist to be built into DBMSF.EXE

.DIR DBSFOR.REL, DBSANY.REL, DBS10.REL, SCHIO1.REL, FORDBM.REL

.TYPE FDBM5.CCL
.R MAKLIB
*@FDBM5.CCL
.IF (ERROR) .GOTO TRUBLE

.ERROR
.EX FDBM5.FOR
.IF (ERROR) .GOTO TRUBLE

.TY DBCS1F.CMD
.R LINK
*@DBCS1F
.IF (ERROR) .GOTO TRUBLE

NOFORT::
.ERROR
;
;See what we got
;
.DIR /CHECKSUM DBMSF.EXE
;
;Tell how we did
;
.PLEASE -- DBMS-10 Creation successful!!!

.GOTO ENDOF

TRUBLE::
.PLEASE -- DBMS-10 Creation not successful???

ENDOF::

%FIN::
;[ End of DBMS10.CTL ]