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