C	Program DTSCHB - Schema Bind Test Program
C	(offshoot of TSTIDB.CBL)
C	Part of the UETP and verify test system for DBMS-20

C                     Copyright (C) 1984 by
C             Digital Equipment Corporation, Maynard, Mass.
C 
C      This software is furnished under a license, and may be used
C      or copied only in accordance with the terms of that license.

	PROGRAM DTSCHB
*	DBMS
	INVOKE SUB-SCHEMA DTSSSF OF SCHEMA DTSCH
		PRIVACY KEY FOR COMPILE IS IDBALL.
*DBMS
	USE ALLERR IF ERROR-STATUS.
	CALL STATS
* DBMS
	END DTSCHB.
	SUBROUTINE ALLERR
*	DBMS
	ACCESS SUB-SCHEMA DTSSSF SCHEMA DTSCH PRIVACY KEY
			COMPILE IDBALL.
	TYPE 5,ERSTAT
5	FORMAT(' ?UNEXPECTED ERROR ',I5)
	RETURN
* DBMS
	END	ALLERR.