Trailing-Edge
-
PDP-10 Archives
-
BB-Z759A-SM
-
cobol-source/dbstub.mac
There is 1 other file named dbstub.mac in the archive. Click here to see a list.
; UPD ID= 1437 on 11/15/83 at 1:56 PM 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
TITLE DBSTUB
; This stub pulls in DBMS.REL, the DBMS-20 run-time DBCS support
; library. All DBMS-20 applications call SBIND, the entry to
; initialize sub-schema binding. This module equates SBIND with
; %SBIND, a global that will be resolved in DBMS.REL, and also
; makes a link-time request for SYS:DBMS.REL.
ENTRY SBIND
EXTERN %SBIND
SBIND==%SBIND
; The symbol %DBSTP is declared by all FORTRAN/COBOL programs as the
; entry point for DBCS termination code, whether or not the program
; is actually a DBMS application. %DBSTP is partially resolved here as the
; actual entry point, DBSTP$. DBSTP$ will be resolved in DBMS.REL (if it is
; requested), or %DBSTP will be resolved below.
INTERN %DBSTP
EXTERN DBSTP$
%DBSTP==DBSTP$
; The symbol %DBSNS controls whether the DBCS code is shared or private.
; This is an option only where the DBCS code exists independently of the
; OTS code (eg, FORTRAN). In that case, %DBSNS is declared as an external
; here, and resolved either in DBMS.REL (for shared DBCS) or in the users
; LINK commands (for a private copy). If DBCS must live with the OTS code
; (eg, COBOL), there is no option; %DBSNS is not declared at all.
;EXTERN %DBSNS ;commented out for COBOL
; Since DBMS programs will use the OTS's FUNCT. during binding, make sure
; it gets loaded (non-share case).
%FUNCT==FUNCT.##
; All DBCS code is now in DBMS.REL, which must always be available. If
; DBMS is not supported, DBMS.REL merely contains resolutions of all the
; entry points, leading to the 'DBSNOT' message. For DBCS support, the
; dummy DBMS.REL is replaced with a real one, and COBOTS relinked.
.REQUEST SYS:DBMS ;search SYS:DBMS.REL for resolution of DBCS calls
PRGEND
TITLE DBMS.
; This is the resolution of the DBMS dispatch vector for LIBOLs without
; DBMS support.
ENTRY DBMS.
DBMS.: POPJ 17, ; DBSNOT message at entry points
PRGEND
TITLE %DBSTP
; Resolve %DBSTP, the DBCS stop call, for non-DBMS users.
ENTRY %DBSTP
%DBSTP: POPJ 17,
PRGEND
TITLE DBMVR.
; Resolve DBMVR., the DBMS version storage location, for all cases.
ENTRY DBMVR.
DBMVR.: EXP 0
END