Google
 

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