Trailing-Edge
-
PDP-10 Archives
-
BB-4148F-BM_1984
-
uetp/dtschb.fml
There is 1 other file named dtschb.fml in the archive. Click here to see a list.
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.