PDP-10 Archive: uetp/lib/dtord.ddl from k20v7d

Trailing-Edge - PDP-10 Archives - k20v7d - uetp/lib/dtord.ddl
There is 1 other file named dtord.ddl in the archive. Click here to see a list.
*	Schema DTORD - for Order Entry Sample Test Program
*	(formerly ORDENT.DDL)
*	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.


RECORDS-PER-PAGE 128.
INTERCEPT SYSTEM BIND UPDATE EXCEPTIONS.

ASSIGN CUSAREA TO DTORD1
	BACKUP BEFORE AFTER IMAGES
	FIRST PAGE IS 1
	LAST PAGE IS 20
	PAGE SIZE IS 255 WORDS.

ASSIGN ORDAREA TO DTORD2
	BACKUP BEFORE AFTER IMAGES
	FIRST PAGE IS 100
	LAST PAGE IS 110
	PAGE SIZE IS 127 WORDS.

ASSIGN PRDAREA TO DTORD3
	BACKUP BEFORE AFTER IMAGES
	FIRST PAGE IS 200
	LAST PAGE IS 210
	PAGE SIZE IS 127 WORDS.

ASSIGN SYSAREA TO DTORD4
	BACKUP BEFORE AFTER IMAGES
	FIRST PAGE IS 250
	LAST PAGE IS 270
	PAGE SIZE IS 127 WORDS.


SCHEMA NAME IS DTORD PRIVACY LOCK ADMINISTRATION DTKEY.


AREA NAME IS CUSAREA.
AREA NAME IS ORDAREA.
AREA NAME IS PRDAREA.
AREA NAME IS SYSAREA.


RECORD NAME IS CUSTOM
	LOCATION MODE IS CALC USING CUST-NAME
	WITHIN CUSAREA,ORDAREA AREA-ID IDAREA.

02	CUST-NAME%CUSNAM	PIC X(30) USAGE DISPLAY-7.
02	CUST-KEY%CUSKEY		TYPE FIXED BIN.
02	CUST-ADDRESS%CUSADR	SIZE 90 USAGE DISPLAY-7.

RECORD NAME IS PURORD
	LOCATION MODE IS CALC USING ORDNUM
	WITHIN ORDAREA.

02	ORDNUM			PIC 9(6) USAGE DISPLAY-7.
02	ORDER-DATE%ORDDAT	PIC X(6) USAGE DISPLAY-7.
02	ORDER-LINES%ORDLIN	PIC 999 USAGE DISPLAY-7.
02	ORDER-NET%ORDNET	PIC 9(8)V99 USAGE DISPLAY-7.

RECORD NAME IS ITEM
	LOCATION MODE IS VIA ORDITM-SET
	WITHIN ORDAREA.

02	ITEM-LINE%ITMLIN	PIC 9(9) USAGE DISPLAY-7.
02	ITEM-PROD-NO%ITMPRD	PIC X(8) USAGE DISPLAY-7.
02	ITEM-QTY%ITMQTY		PIC 99 USAGE DISPLAY-7.
02	ITEM-NET%ITMNET		PIC 9(8)V99 USAGE DISPLAY-7.
02	ITEM-PAD%ITMPAD		PIC X USAGE DISPLAY-7.

RECORD NAME IS PROD
	LOCATION MODE IS CALC USING PROD-NO
	WITHIN PRDAREA.

02	PROD-NO%PRDNUM		PIC X(8) USAGE DISPLAY-7.
02	PROD-DESC%PRDDSC	PIC X(48) USAGE DISPLAY-7.
02	PROD-PRICE%PRDPRC	PIC 9(6)V99 USAGE DISPLAY-7.
02	PROD-LEAD-TIME%PRDTIM	PIC 999 USAGE DISPLAY-7.
02	PROD-ON-HAND%PRDONH	PIC 9(6) USAGE DISPLAY-7.
02	PROD-IN-PROC%PRDINP	PIC 9(5) USAGE DISPLAY-7.
02	PROD-ON-ORDER%PRDONO	PIC 9(5) USAGE DISPLAY-7.
02	PROD-INSTALLED%PRDINS	PIC 9(5) USAGE DISPLAY-7.
02	PROD-PAD%PRDPAD		PIC XX USAGE DISPLAY-7.

RECORD NAME IS ORDSUM
	LOCATION MODE IS DIRECT ORDSUM-KEY%ORDSKY
	WITHIN ORDAREA.

02	ORDSUM-NO%ORDSNO	PIC 9(6) USAGE DISPLAY-7.
02	ORDSUM-PAD%ORDSPD	PIC X(4) USAGE DISPLAY-7.
02	ORDSUM-ORDERS%ORDSOR	TYPE FIXED BIN.

RECORD NAME IS SLSENG
	LOCATION MODE IS CALC USING SLSENG-NAME DUPLICATES NOT ALLOWED
	WITHIN CUSAREA.

02	SLSENG-NAME%SLSNAM	PIC X(30) USAGE DISPLAY-7.
02	SLSENG-OFFICE%SLSOFF	PIC X(24) USAGE DISPLAY-7.
02	SLSENG-PHONE%SLSPHO	SIZE 15 USAGE DISPLAY-7.
02	SLSENG-PAD%SLSPAD	PIC X(1) USAGE DISPLAY-7.

RECORD NAME IS SYSINS
	LOCATION MODE IS CALC USING SYSINS-NO
	WITHIN SYSAREA.

02	SYSINS-NO%SYSNUM	PIC 9(6) USAGE DISPLAY-7.
02	SYSINS-LOCATION%SYSLOC	PIC X(24) USAGE DISPLAY-7.
02	SYSINS-MANAGER%SYSMAN	PIC X(31) USAGE DISPLAY-7.
02	SYSINS-NET%SYSNET	PIC 9(7)V99 USAGE DISPLAY-7.
02	SYSINS-LAST-ORDER%SYSLSO PIC 9(6) USAGE DISPLAY-7.
02	SYSINS-PAD%SYSPAD	PIC X(4) USAGE DISPLAY-7.

RECORD NAME IS UNIT
	LOCATION MODE IS VIA SYSUNI-SET
	WITHIN SYSAREA.

02	UNIT-PROD-NO%UNIPRD	PIC X(8) USAGE DISPLAY-7.
02	UNIT-QUANTITY%UNIQTY	PIC 9(5) USAGE DISPLAY-7.
02	UNIT-PAD%UNIPAD		PIC X(2) USAGE DISPLAY-7.



SET NAME IS CUSORD-SET
	MODE IS CHAIN LINKED TO PRIOR
	ORDER IS ALWAYS FIRST
	OWNER IS CUSTOM
	MEMBER IS PURORD
	MANDATORY, AUTOMATIC LINKED TO OWNER
	SET SELECTION CURRENT.

SET NAME IS ORDITM-SET
	MODE IS CHAIN
	ORDER IS SORTED
	OWNER IS PURORD
	MEMBER IS ITEM
	MANDATORY, AUTO LINKED TO OWNER
	ASCENDING KEY IS ITEM-LINE DUPLICATES ARE ALLOWED
	SET OCCURRENCE SELECTION IS THRU CURRENT OF SET.

SET NAME IS PROD-ITEM-SET
	MODE IS CHAIN
	ORDER IS ALWAYS NEXT
	OWNER IS PROD
	MEMBER IS ITEM
	MANDATORY, AUTOMATIC
	MEMBER IS UNIT
	MANDATORY, AUTOMATIC
	SET SELECTION IS CURRENT.

SET NAME IS SLSCUS-SET
	MODE IS CHAIN
	ORDER IS ALWAYS FIRST 
	OWNER IS SLSENG
	MEMBER IS CUSTOM
	OPTIONAL MANUAL
	SET SELECTION IS LOCATION MODE OF OWNER.

SET NAME IS ALLORD-SET
	MODE IS CHAIN
	ORDER IS ALWAYS LAST
	OWNER IS ORDSUM
	MEMBER IS PURORD
	MANDATORY AUTOMATIC
	SET SELECTION IS CURRENT.

SET NAME IS SYSUNI-SET
	MODE IS CHAIN
	ORDER IS ALWAYS LAST
	OWNER IS SYSINS
	MEMBER IS UNIT
	MANDATORY, AUTOMATIC
	SET SELECTION IS CURRENT.



SUB-SCHEMA NAME IS FS1.
AREA SECTION.
	COPY ALL AREAS.
RECORD SECTION.
	COPY ALL RECORDS.
SET SECTION.
	COPY ALL SETS.

SUB-SCHEMA NAME IS DTSSOC
	PRIVACY LOCK IS ORDER1.
AREA SECTION.
	COPY ALL AREAS.
RECORD SECTION.
01	CUSTOM.
02	CUST-ADDRESS.
	04  STREET	PIC X(36).
	04  CITY	PIC X(34).
	04  STATE	PIC X(14).
	04  ZIP		PIC X(6).
	COPY OTHERS.
01	PURORD.
01	ITEM.
01	PROD.
01	SLSENG.
02	SLSENG-PHONE.
	04  SLSENG-AREA-NO	PIC XXX.
	04  SLSENG-PHONE-NO	PIC X(8).
	04  SLSENG-EXTENSION	PIC XXXX.
	COPY OTHERS.
01	ORDSUM.
SET SECTION.
	COPY SLSCUS-SET,CUSORD-SET,ORDITM-SET,PROD-ITEM-SET,ALLORD-SET.

SUB-SCHEMA NAME IS DTSSOF
	PRIVACY LOCK IS ORDER1.
AREA SECTION.
	COPY ALL AREAS.
RECORD SECTION.
01	CUSTOM.
02	CUST-ADDRESS.
	CHARACTER STREET*36,CITY*34,STATE*14,ZIP*6
	EQUIVALENCE(CUSADR(1:36),STREET),(CUSADR(37:70),CITY)
	EQUIVALENCE(CUSADR(71:84),STATE),(CUSADR(85:90),ZIP)
	COPY OTHERS.
01	PURORD.
01	ITEM.
01	PROD.
01	SLSENG.
02	SLSENG-PHONE.
	CHARACTER SLSANO*3,SLSPNO*8,SLSEXT*4
	EQUIVALENCE (SLSPHO(1:3),SLSANO),(SLSPHO(4:11),SLSPNO)
	EQUIVALENCE (SLSPHO(12:15),SLSEXT)
	COPY OTHERS.
01	ORDSUM.
SET SECTION.
	COPY SLSCUS-SET,CUSORD-SET,ORDITM-SET,PROD-ITEM-SET,ALLORD-SET.

SUB-SCHEMA NAME IS SUBS3
	PRIVACY LOCK IS ORDER1.
AREA SECTION.
	COPY CUSAREA, ORDAREA,PRDAREA.
RECORD SECTION.
01	CUSTOM.
02	CUST-ADDRESS.
	04  STREET	PIC X(36).
	04  CITY	PIC X(34).
	04  STATE	PIC X(14).
	04  ZIP		PIC X(6).
	COPY OTHERS.
01	PURORD.
02.
01	ITEM.
01	PROD.
01	SLSENG.
02	SLSENG-PHONE.
	04  SLSENG-AREA-NO	PIC XXX.
	04  SLSENG-PHONE-NO	PIC X(8).
	04  SLSENG-EXTENSION	PIC XXXX.
	COPY OTHERS.
01	ORDSUM.
02.
SET SECTION.
	COPY CUSORD-SET, ORDITM-SET, PROD-ITEM-SET,
	SLSCUS-SET, ALLORD-SET.

SUB-SCHEMA NAME IS TS1 PRIVACY LOCK OTEMP.
AREA SECTION.
	COPY TEMPORARY CUSAREA,PRDAREA,ORDAREA,SYSAREA.
RECORD SECTION.
	COPY ALL RECORDS.
SET SECTION.
	COPY ALL SETS.


END-SCHEMA.