Google
 

Trailing-Edge - PDP-10 Archives - k20v7d - uetp/lib/ordent.ddl
There are 15 other files named ordent.ddl in the archive. Click here to see a list.
		RECORDS-PER-PAGE 128.
		INTERCEPT SYSTEM BIND UPDATE EXCEPTIONS.

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

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

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

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


	SCHEMA NAME IS ORDENT.


		AREA NAME IS AREA1.
		AREA NAME IS AREA2.
		AREA NAME IS AREA3.
		AREA NAME IS AREA4.


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

02	CUST-NAME	PIC X(30).
02	CUST-KEY	TYPE FIXED BIN.
02	CUST-ADDRESS	SIZE 90.

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

02	ORDNUM		PIC 9(6).
02	ORDER-DATE	PIC X(6).
02	ORDER-LINES	PIC 999.
02	ORDER-NET	PIC 9(7)V99.

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

02	ITEM-LINE	PIC 9(9).
02	ITEM-PROD-NO	PIC X(8).
02	ITEM-QTY	PIC 99.
02	ITEM-NET	PIC 9(7)V99.

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

02	PROD-NO		PIC X(8).
02	PROD-DESC%PRDESC	PIC X(48).
02	PROD-PRICE	PIC 9(6)V99.
02	PROD-LEAD-TIME  PIC 999.
02	PROD-ON-HAND	PIC 9(6).
02	PROD-IN-PROC	PIC 9(5).
02	PROD-ON-ORDER	PIC 9(5).
02	PROD-INSTALLED%PINS	PIC 9(5).

RECORD NAME IS ORDSUM
	LOCATION MODE IS DIRECT ORDSUM-KEY
	WITHIN AREA2.

02	ORDSUM-ORDERS%OSORD		TYPE FIXED BIN.
02	ORDSUM-NO		PIC 9(6).

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

02	SLSENG-NAME		PIC X(30).
02	SLSENG-OFFICE % SLSOFF		PIC X(24).
02	SLSENG-PHONE		SIZE 15.

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

02	SYSINS-NO	PIC 9(6).
02	SYSINS-LOCATION		PIC X(24).
02	SYSINS-MANAGER		PIC X(31).
02	SYSINS-NET		PIC 9(7)V99.
02	SYSINS-LAST-ORDER	PIC 9(6).

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

02	UNIT-PROD-NO		PIC X(8).
02	UNIT-QUANTITY		PIC 9(5).



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 SUBS1
	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 SUBS2
	PRIVACY LOCK IS ORDER1.
AREA SECTION.
	COPY AREA1, AREA2,AREA3.
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.
	04	SLSENG XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX.
	04	SLSENG XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX.
	04	SLSENG XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX.
	COPY OTHERS.
01	ORDSUM.
02.
SET SECTION.
	COPY CUSORD-SET, ORDITM-SET, PROD-ITEM-SET,
	SLSCUS-SET, ALLORD-SET.


END-SCHEMA.