Google
 

Trailing-Edge - PDP-10 Archives - BB-Z759A-SM - cobol-source/dbdum.mac
There is 1 other file named dbdum.mac in the archive. Click here to see a list.
; UPD ID= 1378 on 9/23/83 at 8:45 AM by KILGORE                         
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
;  OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
;
;COPYRIGHT (C) 1977, 1981, 1983, 1984 BY DIGITAL EQUIPMENT CORPORATION

; DBMS resolutions for LIBOLs without DBMS. This code was lifted
; from RESOLV.MAC, as part of restructuring the LIBOL/DBMS interface for
; DBMS-20 V6.1. Without DBMS support, the modules below resolve all
; DBMS-related symbols. This module becomes the sole contents of
; SYS:DBMS.REL (called from DBSTUB) when DBMS support is not included.


TITLE	DBDUM
; This is the resolution of all DBMS entry points for LIBOLs without
; DBMS support.

SEARCH DBCSYM		; for the official entry point list
MODE.=DUMGAT

ENTRYS

	OUTSTR	DBNOT
	EXIT
DBNOT:	ASCIZ/?DBSNOT DBMS is not supported in this run-time system
/


	END