Google
 

Trailing-Edge - PDP-10 Archives - BB-4148F-BM_1984 - uetp/dtschb.cbl
There is 1 other file named dtschb.cbl in the archive. Click here to see a list.
IDENTIFICATION DIVISION.
PROGRAM-ID. DTSCHB.

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

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

ENVIRONMENT DIVISION.
DATA DIVISION.
SCHEMA SECTION.
*	DBMS
	INVOKE DTSSSC OF SCHEMA DTSCH PRIVACY KEY COMPILE IDBALL.
PROCEDURE DIVISION.
DECLARATIVES.
USE1 SECTION.
	USE IF ERROR-STATUS.
USE11.
	DISPLAY "?UNEXPECTED ERROR ",ERROR-STATUS
END DECLARATIVES.
START-IT.
	ENTER MACRO STATS.
	STOP RUN.