Enter your search terms Submit search form
	Web pdp-10.trailing-edge.com

*	Schema DTVRB - for Basic DML Verb Test Program
*	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.

*	DEFAULT TO ACCESS CONTROL IS VIA AREA LOCKS
*	DEFAULT TO ASSIGN JOURNAL TO JRN:DTVRB
*		NO SIZE CLAUSE
*		NO BUFFER COUNT
*	DEFAULT TO IMAGES IN ORDER BY COMMAND
*	LET EACH AREA DEFAULT BACKUP BEFORE IMAGES
	INTERCEPT SYSTEM.
*	NOTE ALL.
	RPP 100.

	ASSIGN TESTA1 TO DTVRB1
	CALC CHAIN COUNT 2
	FIRST PAGE 10
	LAST PAGE 20
	PAGE SIZE 600 WORDS.
	ASSIGN TESTA2 TO DTVRB2
	BUFFER COUNT 6
	FIRST PAGE 30
	LAST PAGE 40
	PAGE SIZE 300 WORDS.

	SCHEMA NAME IS DTVRB PRIVACY LOCK FOR ADMINISTRATION IS BADM.

	AREA NAME IS TESTA1
		PRIVACY LOCK FOR RETRIEVAL IS BRET
		PRIVACY LOCK FOR PROTECTED RETRIEVAL IS BPRET
		PRIVACY LOCK FOR EXCLUSIVE RETRIEVAL IS BERET
		PRIVACY LOCK FOR UPDATE IS BUPD
		PRIVACY LOCK FOR PROTECTED UPDATE IS BPUPD
		PRIVACY LOCK FOR EXCLUSIVE UPDATE IS BEUPD.
	AREA TESTA2.

	RECORD F1 LOC MODE DIRECT DIRKEY WITHIN TESTA1.

	RECORD O1 LOC MODE CALC USING O1C WITHIN TESTA1.
	02 O1C TYPE FIXED BIN.
	02 O1D1 TYPE FIXED BIN.
	RECORD M1 LOC MODE VIA O1M1 WITHIN TESTA1.
	02 M1D1 TYPE FIXED BIN.
	02 M1D2 TYPE FIXED BIN.
	RECORD M2 LOC MODE CALC USING M2D1 WITHIN TESTA2.
	  02 M2D1 TYPE FIXED BINARY.
	RECORD M3 LOC MODE VIA O1M3 WITHIN TESTA1.
	02 M3D1 TYPE FIXED BINARY 35,2.
	RECORD M4 LOC MODE CALC USING M4D1,M4D2 WITHIN TESTA1.
	02 M4D1 TYPE FIXED BINARY.
	02 M4D2 TYPE FIXED BINARY.

	RECORD P1 LOC MODE DIRECT DIRKE2; WITHIN TESTA1,TESTA2 AREA-ID P1AREA.
	RECORD DL1 LOC MODE CALC USING DL1D1 WITHIN TESTA2.
	  02 DL1D1 TYPE FIXED BIN 70.
	RECORD DL2OPT LOC MODE DIRECT DIRKE3 WITHIN TESTA2.
	RECORD DL2MAND LOC MODE VIA L12MAND WITHIN TESTA2.
	RECORD DL2MAN2 LOC MODE VIA L12MAN2 WITHIN TESTA2.
	RECORD DL3OPT LOC MODE CALC USING DL3D1 WITHIN TESTA2.
	  02 DL3D1 TYPE FLOAT BIN.
	RECORD DL3MAND LOC MODE VIA L23MAND WITHIN TESTA2.
	RECORD DL3MAN2 LOC MODE VIA L23MAN2 WITHIN TESTA2.
	RECORD DL3OPT2 LOC MODE VIA L23OPT2 WITHIN TESTA2.

	SET O1M1 MODE IS CHAIN OWNER IS O1 ORDER IS LAST.
	MEMBER M1 AUTO OPTIONAL.
	SET O1M2 MODE IS CHAIN ORDER IS FIRST OWNER IS O1
	MEMBER M2 MANUAL OPTIONAL.
	SET O1M3 MODE CHAIN ORDER SORTED DUPLICATES FIRST
		OWNER O1 MEMBER M3 MAND AUTO
		DESC KEY M3D1.
	SET O1M4 MODE CHAIN ORDER IS SORTED DUPLICATES NOT ALLOWED
		OWNER O1 MEMBER M4 OPT MANUAL
		ASCENDING RANGE KEY M4D1,M4D2.
	SET F1M4 MODE CHAIN PRIOR ORDER NEXT
		OWNER F1 MEMBER M4 MANUAL OPT LINKED TO OWNER.

	SET L12OPT MODE IS CHAIN OWNER DL1 ORDER FIRST.
	  MEMBER DL2OPT AUTO OPT LINKED TO OWNER.
	SET L12MAND MODE CHAIN OWNER DL1 ORDER FIRST.
	  MEMBER DL2MAND AUTO MAND.
	SET L12MAN2 MODE CHAIN OWNER DL1 ORDER LAST.
	  MEMBER DL2MAN2 AUTO MAND.
	SET P1L2 MODE CHAIN OWNER P1 ORDER LAST; MEMBER DL2OPT MANUAL MANDATORY.
	SET L23MAND MODE CHAIN OWNER DL2OPT ORDER NEXT;
		 MEMBER DL3MAND  AUTO MAND.
	SET L23MAN2 MODE CHAIN OWNER DL2MAND ORDER LAST
		MEMBER DL3MAN2 AUTO MAND.
	SET L23OPT MODE CHAIN OWNER DL2MAND ORDER PRIOR; MEMBER DL3OPT
		 AUTO OPTIONAL OWNER.
	SET L23OPT2 MODE CHAIN OWNER DL2OPT ORDER FIRST MEMBER DL3OPT2
		AUTO OPTIONAL.
	SET P1L3 MODE CHAIN OWNER P1 ORDER LAST; MEMBER DL3OPT OPTIONAL MANUAL.

	TRANSACTION TR USAGE-MODE RETRIEVAL.
	TRANSACTION TU USAGE-MODE UPDATE.
	TRANSACTION TRA1 USAGE-MODE RETRIEVAL FOR TESTA1
		IMAGES IN ORDER BY TRANSACTION.
	TRANSACTION TRA2 USAGE-MODE RETRIEVAL FOR TESTA2.
	TRANSACTION TUA1 USAGE-MODE UPDATE FOR TESTA1
		IMAGES IN ORDER BY TRANSACTION.
	TRANSACTION TUA2 USAGE-MODE UPDATE FOR TESTA2.
	TRANSACTION TRCA2 USAGE-MODE RETRIEVAL TESTA2 CLUSTER 3 PAGES.

SUB-SCHEMA IS DTSSV1.
AREA SECTION.
	COPY TESTA1,TESTA2.
RECORD SECTION.
	COPY ALL RECORDS.
SET SECTION.
	COPY ALL SETS.
TRANSACTION SECTION.
	COPY ALL TRANSACTIONS.

SUB-SCHEMA IS DTSSV2 PRIVACY LOCK B2.
AREA SECTION.
	COPY TESTA2.
RECORD SECTION.
01 P1.
01 DL1.
01 DL2OPT.
01 DL2MAND.
01 DL2MAN2.
01 DL3OPT.
01 DL3MAND.
01 DL3MAN2.
01 DL3OPT2.
SET SECTION.
	COPY L12OPT,L12MAND
		,P1L2.
	COPY L23MAND,L23OPT,P1L3.
	COPY L23MAN2,L23OPT2,L12MAN2.
TRANSACTION SECTION.
	COPY TRA2, TUA2, TRCA2.

END-SCHEMA.