Google
 

Trailing-Edge - PDP-10 Archives - DBMS-20_V6_BIN_19811001 - sources/theme.ddl
There are 2 other files named theme.ddl in the archive. Click here to see a list.
**********************************************************************
*                                                                    *
*                                                                    *
*                              E N C L                               *
*                                                                    *
*                                                                    *
**********************************************************************

ACCESS CONTROL IS VIA AREA LOCKS.
NOTE UNANTICIPATED EXCEPTIONS.
*ASSIGN JOURNAL TO "THEMES"
*   BUFFER COUNT IS 3.
*BACKUP BEFORE IMAGES
*NOTE JOURNAL
*RECORDS-PER-PAGE IS 511
IMAGES IN ORDER BY COMMAND.
JOURNAL IS THEMES. 

ASSIGN SYSTEM AREA Head-Area TO Head
   BACKUP BEFORE IMAGES
   BUFFER COUNT IS 2
   CALC AT MOST 1 RPP
   RECORDS-PER-PAGE IS 20
   FIRST PAGE IS 1
   LAST PAGE IS 2
   PAGE SIZE IS 513.

ASSIGN Index-Block-Area TO Index
   BACKUP BEFORE IMAGES
   BUFFER COUNT IS 3
   CALC AT MOST 0 RPP
   RECORDS-PER-PAGE IS 511
   FIRST PAGE IS 20
   LAST PAGE IS 21
   PAGE SIZE IS 513.

ASSIGN Inventory-Area TO Invtry
   BACKUP BEFORE AFTER IMAGES
   BUFFER COUNT IS 3
   CALC AT MOST 3 RPP
   RECORDS-PER-PAGE IS 511
   FIRST PAGE IS 1001
   LAST PAGE IS 1058
   PAGE SIZE IS 513 WORDS.

ASSIGN Manufacturing-Area TO Manfct
   BACKUP BEFORE AFTER IMAGES
   BUFFER COUNT IS 3
   CALC AT MOST 3 RPP
   RECORDS-PER-PAGE IS 511
   FIRST PAGE IS 5001
   LAST PAGE IS 5006
   PAGE SIZE IS 513 WORDS.

ASSIGN Orders-Area TO Order
   BACKUP BEFORE AFTER IMAGES
   BUFFER COUNT IS 10
   CALC AT MOST 1 RPP
   RECORDS-PER-PAGE IS 511
   FIRST PAGE IS 10001
   LAST PAGE IS 10600
   PAGE SIZE IS 513 WORDS
   RANGE OF Customer-Rec IS PAGE 10001 TO PAGE 10500
   AT MOST 1 RECORD PER 2 PAGES
   RANGE OF Order-Rec IS PAGE 10001 TO PAGE 10500
   AT MOST 1 SET PER 2 PAGES
   RANGE OF Item-Rec IS PAGE 10001 TO PAGE 10500
   AT MOST 15 RECORDS-PER-PAGE
   RANGE OF Truck-Rec IS PAGE 10501 TO PAGE 10600.

ASSIGN Personnel-Area TO People
   BACKUP BEFORE AFTER IMAGES
   BUFFER COUNT IS 4
   CALC AT MOST 3 RPP
   RECORDS-PER-PAGE IS 511
   FIRST PAGE IS 15001
   LAST PAGE IS 15136
   PAGE SIZE IS 513 WORDS
   RANGE OF Classification-Rec IS PAGE 15001 TO PAGE 15010
   RANGE OF Employee-Rec IS PAGE 15011 TO PAGE 15136.

ASSIGN Personal-Area TO Owners
   BACKUP BEFORE AFTER IMAGES
   BUFFER COUNT IS 10
   CALC AT MOST 0 RPP
   RECORDS-PER-PAGE IS 511
   FIRST PAGE IS 30001
   LAST PAGE IS 30130
   PAGE SIZE IS 513 WORDS
   RANGE OF Spouse-Rec IS PAGE 30001 TO PAGE 30035
   RANGE OF Child-Rec IS PAGE 30036 TO PAGE 30130.

ASSIGN Temporary-Area TO Temp
   BACKUP BEFORE AFTER IMAGES
   BUFFER COUNT IS 3
   RECORDS-PER-PAGE IS 511
   FIRST PAGE IS 40001
   LAST PAGE IS 40002
   PAGE SIZE IS 513 WORDS.
**********************************************************************
*                                                                    *
*                                                                    *
*                        S C H E M A   D D L                         *
*                                                                    *
*                                                                    *
**********************************************************************

SCHEMA NAME IS Theme.

AREA NAME IS Head-Area
   PRIVACY LOCK FOR UPDATE IS Barry
   PRIVACY LOCK FOR RETRIEVAL IS Maxine
   PRIVACY LOCK FOR PROTECTED UPDATE IS Barry
   PRIVACY LOCK FOR PROTECTED RETRIEVAL IS Maxine
   PRIVACY LOCK FOR EXCLUSIVE UPDATE IS N1234
   PRIVACY LOCK FOR EXCLUSIVE RETRIEVAL IS P1234.

AREA NAME IS Index-Block-Area
   PRIVACY LOCK FOR UPDATE IS Barry
   PRIVACY LOCK FOR RETRIEVAL IS Maxine
   PRIVACY LOCK FOR PROTECTED UPDATE IS Barry
   PRIVACY LOCK FOR PROTECTED RETRIEVAL IS Maxine
   PRIVACY LOCK FOR EXCLUSIVE UPDATE IS N1234
   PRIVACY LOCK FOR EXCLUSIVE RETRIEVAL IS P1234.

AREA NAME IS Inventory-Area
   PRIVACY LOCK FOR UPDATE IS Barry
   PRIVACY LOCK FOR RETRIEVAL IS Maxine
   PRIVACY LOCK FOR PROTECTED UPDATE IS Barry
   PRIVACY LOCK FOR PROTECTED RETRIEVAL IS Maxine
   PRIVACY LOCK FOR EXCLUSIVE UPDATE IS N1234
   PRIVACY LOCK FOR EXCLUSIVE RETRIEVAL IS P1234.

AREA NAME IS Manufacturing-Area
   PRIVACY LOCK FOR UPDATE IS Barry
   PRIVACY LOCK FOR RETRIEVAL IS Maxine
   PRIVACY LOCK FOR PROTECTED UPDATE IS Barry
   PRIVACY LOCK FOR PROTECTED RETRIEVAL IS Maxine
   PRIVACY LOCK FOR EXCLUSIVE UPDATE IS N1234
   PRIVACY LOCK FOR EXCLUSIVE RETRIEVAL IS P1234.

AREA NAME IS Orders-Area
   PRIVACY LOCK FOR UPDATE IS Barry
   PRIVACY LOCK FOR RETRIEVAL IS Maxine
   PRIVACY LOCK FOR PROTECTED UPDATE IS Barry
   PRIVACY LOCK FOR PROTECTED RETRIEVAL IS Maxine
   PRIVACY LOCK FOR EXCLUSIVE UPDATE IS N1234
   PRIVACY LOCK FOR EXCLUSIVE RETRIEVAL IS P1234.

AREA NAME IS Personnel-Area
   PRIVACY LOCK FOR UPDATE IS Barry
   PRIVACY LOCK FOR RETRIEVAL IS Maxine
   PRIVACY LOCK FOR PROTECTED UPDATE IS Barry
   PRIVACY LOCK FOR PROTECTED RETRIEVAL IS Maxine
   PRIVACY LOCK FOR EXCLUSIVE UPDATE IS N1234
   PRIVACY LOCK FOR EXCLUSIVE RETRIEVAL IS P1234.

AREA NAME IS Personal-Area
   PRIVACY LOCK FOR UPDATE IS Barry
   PRIVACY LOCK FOR RETRIEVAL IS Maxine
   PRIVACY LOCK FOR PROTECTED UPDATE IS Barry
   PRIVACY LOCK FOR PROTECTED RETRIEVAL IS Maxine
   PRIVACY LOCK FOR EXCLUSIVE UPDATE IS N1234
   PRIVACY LOCK FOR EXCLUSIVE RETRIEVAL IS P1234.

AREA NAME IS Temporary-Area
   PRIVACY LOCK FOR UPDATE IS Barry
   PRIVACY LOCK FOR RETRIEVAL IS Maxine
   PRIVACY LOCK FOR PROTECTED UPDATE IS Barry
   PRIVACY LOCK FOR PROTECTED RETRIEVAL IS Maxine
   PRIVACY LOCK FOR EXCLUSIVE UPDATE IS N1234
   PRIVACY LOCK FOR EXCLUSIVE RETRIEVAL IS P1234.
**********************************************************************
*                                                                    *
*                        RECORDS                                     *
*                                                                    *
* The following is a list of all records contained in the schema:    *
*       Child-Rec.                                                   *
*       Classification-Rec.                                          *
*       Component-Rec.                                               *
*       Cust-Head-Rec.                                               *
*       Customer-Rec.                                                *
*       Department-Rec.                                              *
*       Employee-Head-Rec.                                           *
*       Employee-Rec.                                                *
*       Item-Rec.                                                    *
*       Job-Ticket-Rec.                                              *
*       Location-Part-Rec.                                           *
*       Manager-Link-Rec.                                            *
*       Number-of-Last-Order-Rec.                                    *
*       Order-Rec.                                                   *
*       Part-Head-Rec.                                               *
*       Part-Rec.                                                    *
*       Pay-Rec.                                                     *
*       Purchase-Order-Head-Rec.                                     *
*       Purchase-Order-Rec.                                          *
*       Quote-Rec.                                                   *
*       Req-for-Quote-Rec.                                           *
*       Spouse-Rec.                                                  *
*       Temp-Bottom1-Rec.                                            *
*       Temp-Bottom2-Rec.                                            *
*       Temp-Top-Rec.                                                *
*       Truck-Rec.                                                   *
*       Vendor-Rec.                                                  *
*       Work-Item-Rec.                                               *
*       Work-Order-Head-Rec.                                         *
*       Work-Order-Rec.                                              *
*       Year-to-Date-Rec.                                            *
*                                                                    *
**********************************************************************
**********************************************************************
*  Child-Rec set tenancy:                                            *
*         OWNER:  none                                               *
*         MEMBER: FAMILY.  Is a co-tenant of the set with SPOUSE.    *
*         ACCESS: VIA FAMILY after accessing Employee                *
**********************************************************************
RECORD NAME IS Child-Rec
   LOCATION MODE IS VIA Family
   WITHIN Personal-Area.

   02 Child-Name%CRNAME					SIZE 5 WORDS.
*				Normally to be split as follows:
*					03  Last-Name	PIC X(15)
*					03  First-Name	PIC X(10)
*					03  Middle-Initial	PIC X
   02 Date-of-Birth%CRDOB	PIC  X(10)		USAGE DISPLAY-7.
*				This is kept as a signed number so
*				that more efficient code is generated.
   02 Child-Sex%CRSEX		PIC  X(01)		USAGE DISPLAY-7.
*				M = Male
*				F = Female

RECORD NAME IS Classification-Rec
   LOCATION MODE IS CALC USING Job-Class
   WITHIN Personnel-Area.

   02 Job-Class%JBCLAS		PIC  X(05)		USAGE DISPLAY-7.
   02 Job-Description%JBDESC	PIC  X(20)		USAGE DISPLAY-7.

RECORD NAME IS Component-Rec
   LOCATION MODE IS VIA Part-Uses
   WITHIN Inventory-Area.

   02 Comp-Num%CMNUM		PIC  X(05)		USAGE DISPLAY-7.
   02 Comp-Qty%CMQTY		PIC  9(10)		USAGE DISPLAY-7.

RECORD NAME IS Cust-Head-Rec
   LOCATION MODE IS VIA Cust-Head-Sys
   WITHIN Head-Area.

   02 Cust-Dummy%CHDUM		PIC  X(05)		USAGE DISPLAY-7.
   02 Num-of-Cust%CHNUM				TYPE IS FIXED BINARY REAL.

RECORD NAME IS Customer-Rec
   LOCATION MODE IS VIA Cust-Head
   WITHIN Orders-Area.

   02 Cust-Num%CSNUM		PIC  X(05)		USAGE DISPLAY-7. 
   02 Cust-Name%CSNAME		PIC  X(20)		USAGE DISPLAY-7.
   02 Cust-Address%CSADDR				SIZE 8 WORDS.
   02 Cust-Rating%CSRTNG	PIC  X(05)		USAGE DISPLAY-7.
   02 Cust-Route%CSRTE		PIC  9(02)		USAGE DISPLAY-7.
   02 Cust-Size%CSSIZE		PIC  9(10)		USAGE DISPLAY-7.
   02 Cust-Balance%CSBAL	PIC  S9(08)V99		USAGE DISPLAY-7.

RECORD NAME IS Department-Rec
   LOCATION MODE IS CALC USING Dept-Num
      DUPLICATES ARE NOT ALLOWED
   WITHIN Manufacturing-Area.

   02 Dept-Num%DPNUM		PIC  9(05)		USAGE DISPLAY-7. 
   02 Dept-Name%DPNAME		PIC  X(30)		USAGE DISPLAY-7.
   02 Dept-Address%DPADDR				SIZE 9 WORDS.
   02 Dept-Phone%DPPHON		PIC  X(10)		USAGE DISPLAY-7.

RECORD NAME IS Employee-Head-Rec
   LOCATION MODE IS VIA Employee-Head-Sys
   WITHIN Head-Area.

   02 Emp-Dummy%EHDUM		PIC  X(05)		USAGE DISPLAY-7.  
   02 Num-of-Emp%EHNUM				TYPE IS FIXED BINARY REAL.

RECORD NAME IS Employee-Rec
   LOCATION MODE IS VIA Employee-Head
   WITHIN Personnel-Area.

   02 Emp-Num%EPNUM		PIC  9(05)		USAGE DISPLAY-7.
   02 Emp-Name%EPNAME					SIZE 6 WORDS.
   02 Emp-Address%EPADDR				SIZE 9 WORDS.
   02 Emp-Sick-Leave%EPSICK	PIC  9(05)		USAGE DISPLAY-7.
   02 Emp-Vacation%EPVAC	PIC  9(05)		USAGE DISPLAY-7.
   02 Emp-Hour-Wage%EPWAGE	PIC  9(03)V99		USAGE DISPLAY-7.

RECORD NAME IS Item-Rec
   LOCATION MODE IS VIA Ord-Item
   WITHIN Orders-Area.

   02 Item-Part%ITPART		PIC  X(05)		USAGE DISPLAY-7.
   02 Item-Qty%ITQTY		PIC  9(08)		USAGE DISPLAY-7.
   02 Item-Shipped-Date%ITSHIP	PIC  X(10)		USAGE DISPLAY-7.
   02 Item-Price%ITPRIC		PIC  9(08)V99		USAGE DISPLAY-7.

RECORD NAME IS Job-Ticket-Rec
   LOCATION MODE IS VIA Task
   WITHIN Manufacturing-Area.

   02 Job-Operator%JBOPR	PIC  9(05)		USAGE DISPLAY-7.
   02 Job-Time%JBTIME		PIC  9(08)V99		USAGE DISPLAY-7.
   02 Job-Date%JBDATE		PIC  X(10)		USAGE DISPLAY-7.
   02 Job-Qty%JBQTY		PIC  9(08)V99		USAGE DISPLAY-7.
   02 Job-Base-Rate%JBRATE	PIC  9(03)V99		USAGE DISPLAY-7.

RECORD NAME IS Location-Part-Rec
   LOCATION MODE IS VIA Location-of-Part
   WITHIN Manufacturing-Area.

   02 Loc-Dept%LODEPT		PIC  9(05)		USAGE DISPLAY-7.
   02 Loc-Qty%LOQTY		PIC  9(05)		USAGE DISPLAY-7.

RECORD NAME IS Manager-Link-Rec
   LOCATION MODE IS VIA Managed-By
   WITHIN Personnel-Area.

   02 Num-Emp-Manage%MGNUM			TYPE IS FIXED BINARY REAL.

RECORD NAME IS Number-of-Last-Order-Rec
   LOCATION MODE IS CALC USING Number-Dummy
	DUPLICATES ARE NOT ALLOWED
   WITHIN Head-Area.

   02 Number-Dummy%OHDUM	PIC  X(01)		USAGE DISPLAY-7.
   02 Last-Order-Num%OHNUM			TYPE IS FIXED BINARY REAL.

RECORD NAME IS Order-Rec
   LOCATION MODE IS VIA Cust-Ord
   WITHIN ORDERS-AREA.

   02 Ord-Num%ORNUM		PIC  9(10)		USAGE DISPLAY-7. 
   02 Ord-Entered-Date%ORDATE	PIC  X(10)		USAGE DISPLAY-7. 
   02 Ord-Due-Date%ORDUE	PIC  X(10)		USAGE DISPLAY-7.
   02 Ord-Ship-Date%ORSHIP	PIC  X(10)		USAGE DISPLAY-7.
   02 Ord-Amt-Billed%ORBILL	PIC  9(08)V99		USAGE DISPLAY-7.
   02 Ord-Amt-Outstand%OROUT	PIC  S9(08)V99		USAGE DISPLAY-7.

RECORD NAME IS Pay-Rec
   LOCATION MODE IS VIA Week-Pay
   WITHIN Personnel-Area.

   02 Pay-Amt-Gross%PAGRSS	PIC  9(08)V99		USAGE DISPLAY-7.
   02 Pay-Hours%PAHRS		PIC  9(08)V99		USAGE DISPLAY-7.
   02 Pay-Amt-Deduct%PADEDT	PIC  9(08)V99		USAGE DISPLAY-7.
   02 Pay-Net%PANET		PIC  9(08)V99		USAGE DISPLAY-7.
   02 Pay-Date%PADATE		PIC  X(10)		USAGE DISPLAY-7.

RECORD NAME IS Part-Head-Rec
   LOCATION MODE IS VIA Part-Head-Sys
   WITHIN Head-Area.

   02 Part-Dummy%PRDUM		PIC  X(05)		USAGE DISPLAY-7.
   02 Num-of-Parts%PRNUM			TYPE IS FIXED BINARY REAL.

RECORD NAME IS Part-Rec
   LOCATION MODE IS VIA Part-Head
   WITHIN Inventory-Area.

   02 Part-Num%PTNUM		PIC  9(05)		USAGE DISPLAY-7.
   02 Part-Name%PTNAME		PIC  X(10)		USAGE DISPLAY-7.
   02 Part-Available%PTAVAL	PIC  9(05)		USAGE DISPLAY-7.
   02 Part-Reserved%PTRESD	PIC  9(05)		USAGE DISPLAY-7.
   02 Part-Ordered%PTORDD	PIC  9(05)		USAGE DISPLAY-7.
   02 Part-Req-Reserved%PTREQ	PIC  S9(05)		USAGE DISPLAY-7.
   02 Part-Lead-Time%PTLEAD	PIC  9(05)		USAGE DISPLAY-7.
   02 Part-std-Cost%PTCOST	PIC  9(08)V99		USAGE DISPLAY-7.
   02 Part-Price%PTPRIC		PIC  9(08)V99		USAGE DISPLAY-7.

RECORD NAME IS Purchase-Order-Head-Rec
   LOCATION MODE IS VIA Purchase-Order-Sys
   WITHIN Head-Area.

   02 PO-Dummy%PHDUM		PIC  X(05)		USAGE DISPLAY-7. 
   02 Num-Of-PO%PHNUM				TYPE IS FIXED BINARY REAL.

RECORD NAME IS Purchase-Order-Rec
   LOCATION MODE IS VIA Purchase-Order-Head
   WITHIN Inventory-Area.

   02 PO-Num%PONUM		PIC  9(10)		USAGE DISPLAY-7.
   02 PO-Due-Date%PODUE		PIC  X(10)		USAGE DISPLAY-7.
   02 PO-Amt-Billed%POAMT	PIC  9(08)V99		USAGE DISPLAY-7.

RECORD NAME IS Quote-Rec
   LOCATION MODE IS VIA Vendor-Quote
   WITHIN Inventory-Area.

   02 Unit-Price%QRUNT		PIC  9(08)V99		USAGE DISPLAY-7.

RECORD NAME IS Req-for-Quote-Rec
   LOCATION MODE IS VIA Price-Quote
   WITHIN Orders-Area.

   02 RFP-Num%RFNUM		PIC S9(10)		USAGE DISPLAY-7.
   02 RFP-Part-Num%RFPART	PIC  9(05)		USAGE DISPLAY-7.
   02 RFP-Min-Order%RFMIN	PIC S9(05)		USAGE DISPLAY-7.
   02 RFP-Unit-Price%RFUNIT	PIC S9(08)V99		USAGE DISPLAY-7.
   02 RFP-Qty-Price%RFQTY	PIC S9(08)V99		USAGE DISPLAY-7.

RECORD NAME IS Spouse-Rec
   LOCATION MODE IS VIA Family
   WITHIN Personal-Area.

   02 Spouse-Name%SRNAME				SIZE 6 WORDS.
   02 S-Date-of-Birth%SRDOB	PIC X(10)		USAGE DISPLAY-7.
   02 Spouse-Sex%SRSEX		PIC  X(01)		USAGE DISPLAY-7.

RECORD NAME IS Temp-Top-Rec
   LOCATION MODE IS CALC USING Temp-Key
      DUPLICATES ARE NOT ALLOWED
   WITHIN Temporary-Area.

   02 Temp-Key%TTKEY		PIC  9(01)		USAGE DISPLAY-7.

RECORD NAME IS Temp-Bottom1-Rec
   LOCATION MODE IS VIA Sorted-Dup
   WITHIN Temporary-Area.

   02 Bottom1-Key%T1KEY	PIC  X(50)		USAGE DISPLAY-7.
   02 Bottom1-DBK%T1DBK			TYPE IS DBKEY.

RECORD NAME IS Temp-Bottom2-Rec
   LOCATION MODE IS VIA Sorted-NoDup
   WITHIN Temporary-Area.

   02 Bottom2-Key%T2KEY	PIC  X(50)		USAGE DISPLAY-7. 
   02 Bottom2-DBK%T2DBK			TYPE IS DBKEY.

RECORD NAME IS Truck-Rec
   LOCATION MODE IS CALC USING Truck-Route
      DUPLICATES ARE ALLOWED
   WITHIN Orders-Area.

   02 Truck-Route%TRROUT	PIC  9(02)		USAGE DISPLAY-7.
   02 Truck-Date%TRDATE		PIC  X(10)		USAGE DISPLAY-7.
   02 Truck-Volume-Left%TRVOL	PIC  9(08)		USAGE DISPLAY-7.

RECORD NAME IS Vendor-Rec
   LOCATION MODE IS CALC USING Vendor-Num
      DUPLICATES NOT ALLOWED
   WITHIN Inventory-Area.

   02 Vendor-Name%VNNAME	PIC  X(30)		USAGE DISPLAY-7.
   02 Vendor-Num%VNNUM		PIC  9(05)		USAGE DISPLAY-7.
   02 Vendor-Address%VNADDR				SIZE 12 WORDS.
   02 Vendor-Unpaid-Ttl%VNUNPD	PIC  9(08)V99		USAGE DISPLAY-7.

RECORD NAME IS Work-Item-Rec
   LOCATION MODE IS VIA Work-Item
   WITHIN Manufacturing-Area.

   02 WI-Time%WITIME		PIC  9(08)V99		USAGE DISPLAY-7.
   02 WI-Setup-Time%WISETP	PIC  9(08)V99		USAGE DISPLAY-7.
   02 WI-Operation%WIOPER	PIC  9(05)		USAGE DISPLAY-7.
   02 WI-Station%WISTAT		PIC  9(05)		USAGE DISPLAY-7.

RECORD NAME IS Work-Order-Head-Rec
   LOCATION MODE IS VIA Work-Order-Sys
   WITHIN HEAD-Area.

   02 WO-Dummy%WHDUM		PIC  X(05)		USAGE DISPLAY-7. 
   02 Num-Work-Orders%WHNUM			TYPE IS FIXED BINARY REAL.

RECORD NAME IS Work-Order-Rec
   LOCATION MODE IS VIA Work-Order-Head
   WITHIN Manufacturing-Area.

   02 WO-Num%WONUM		PIC  9(05)		USAGE DISPLAY-7. 
   02 WO-Qty%WOQTY		PIC  9(08)V99		USAGE DISPLAY-7.
   02 WO-Count%WOCNT		PIC  9(10)        	USAGE DISPLAY-7.

RECORD NAME IS Year-To-Date-Rec
   LOCATION MODE IS VIA Year-Day
   WITHIN Personnel-Area.

   02 Ytd-Date%YDDATE		PIC  X(10)		USAGE DISPLAY-7.
   02 Ytd-Hours%YDHRS		PIC  9(08)V99		USAGE DISPLAY-7.
   02 Ytd-Amt-Gross%YDGRSS	PIC  9(08)V99		USAGE DISPLAY-7.
   02 Ytd-Amt-Deduct%YDDEDT	PIC  9(08)V99		USAGE DISPLAY-7.
   02 Ytd-Net%YDNET		PIC  9(08)V99		USAGE DISPLAY-7.
******************************************************************************
*                                                                            *
*                                SETS                                        *
*                                                                            *
* The following is a list of all sets contained in the schema:               *
*                                                                            *
* Active-WO.                                                                 *
* Class-Employee.                                                            *
* Complete-WO.                                                               *
* Cust-Head-Sys.                                                             *
* Cust-Head.                                                                 *
* Cust-Ord.                                                                  *
* Dept-Work-Item.                                                            *
* Employee-Head-Sys.                                                         *
* Employee-Head.                                                             *
* Employees.                                                                 *
* Family.                                                                    *
* Location-of-Part.                                                          *
* Manages.                                                                   *
* Managed-By.                                                                *
* Ord-Item.                                                                  *
* Part-Head-Sys.                                                             *
* Part-Head.                                                                 *
* Part-Item.                                                                 *
* Price-Quote.                                                               *
* Part-Used-On.                                                              *
* Part-Uses.                                                                 *
* Purchase-Order-Sys.                                                        *
* Purchase-Order-Head.                                                       *
* Purchase-Order.                                                            *
* Request-Quote.                                                             *
* Sales.                                                                     *
* Shipping.                                                                  *
* Sorted-Dup.                                                                *
* Sorted-No-Dup.                                                             *
* Task.                                                                      *
* Time.                                                                      *
* Truck.                                                                     *
* Vendor-Open.                                                               *
* Vendor-Paid.                                                               *
* Vendor-Part.                                                               *
* Vendor-Quote.                                                              *
* Week-Pay.                                                                  *
* Work-Item.                                                                 *
* Work-Order-Sys.                                                            *
* Work-Order-Head.                                                           *
* Year-Day.                                                                  *
*                                                                            *
******************************************************************************
SET NAME IS Active-WO
   MODE IS CHAIN LINKED TO PRIOR
   ORDER IS ALWAYS FIRST
   OWNER IS Work-Order-Rec
   MEMBER IS Item-Rec
      MANUAL OPTIONAL
      SET OCCURRENCE SELECTION IS THRU CURRENT OF SET.

SET NAME IS Class-Employee
   MODE IS CHAIN
   ORDER IS SORTED
      DUPLICATES ARE NOT ALLOWED
   OWNER IS Classification-Rec
   MEMBER IS Employee-Rec
     AUTOMATIC OPTIONAL
     ASCENDING KEY IS Emp-Num
     SET OCCURRENCE SELECTION IS THRU CURRENT OF SET.

SET NAME IS Complete-WO
   MODE IS CHAIN LINKED TO PRIOR
   ORDER IS ALWAYS FIRST
   OWNER IS Work-Order-Rec
   MEMBER IS Item-Rec
      MANUAL MANDATORY
      SET OCCURRENCE SELECTION IS THRU CURRENT OF SET.

SET NAME IS Cust-Head-Sys
   MODE IS CHAIN
   ORDER IS SORTED
      DUPLICATES ARE NOT ALLOWED
   OWNER IS SYSTEM
   MEMBER IS Cust-Head-Rec
      AUTOMATIC MANDATORY
      ASCENDING KEY IS Cust-Dummy.

SET NAME IS Cust-Head
   MODE IS CHAIN
   ORDER IS SORTED
      DUPLICATES ARE NOT ALLOWED
   OWNER IS Cust-Head-Rec
   MEMBER IS Customer-Rec
      AUTOMATIC MANDATORY
      ASCENDING  KEY IS Cust-Num
      SET OCCURRENCE SELECTION IS THRU LOCATION MODE OF OWNER
         USING Cust-Dummy.

SET NAME IS Cust-Ord
   MODE IS CHAIN LINKED TO PRIOR
   ORDER IS SORTED
      DUPLICATES ARE NOT ALLOWED
   OWNER IS Customer-Rec
   MEMBER IS Order-Rec
      OPTIONAL AUTOMATIC
      DESCENDING KEY IS Ord-Num
      SET OCCURRENCE SELECTION IS THRU LOCATION MODE OF OWNER
         USING Cust-Num.

SET NAME IS Dept-Work-Item
   MODE IS CHAIN
   ORDER IS ALWAYS FIRST
   OWNER IS Department-Rec
   MEMBER IS Work-Item-Rec
      AUTOMATIC MANDATORY
      SET OCCURRENCE SELECTION IS THRU LOCATION MODE OF OWNER.

SET NAME IS Employee-Head-Sys
   MODE IS CHAIN
   ORDER IS SORTED
      DUPLICATES ARE NOT ALLOWED
   OWNER IS SYSTEM
   MEMBER IS Employee-Head-Rec
      AUTOMATIC MANDATORY
      ASCENDING KEY IS Emp-Dummy.

SET NAME IS Employee-Head
   MODE IS CHAIN
   ORDER IS SORTED
      DUPLICATES ARE NOT ALLOWED
   OWNER IS Employee-Head-Rec
   MEMBER IS Employee-Rec
      AUTOMATIC MANDATORY
      ASCENDING KEY IS Emp-Num
      SET OCCURRENCE SELECTION IS THRU LOCATION MODE OF OWNER
         USING Emp-Dummy.

SET NAME IS Employees
   MODE IS CHAIN
   ORDER IS SORTED
      DUPLICATES ARE NOT ALLOWED
   OWNER IS Department-Rec
   MEMBER IS Employee-Rec
      AUTOMATIC OPTIONAL
      ASCENDING KEY IS Emp-Num
      SET OCCURRENCE SELECTION IS THRU CURRENT OF SET.

SET NAME IS Family
   MODE IS CHAIN
   ORDER IS ALWAYS NEXT
   OWNER IS Employee-Rec
   MEMBER IS Spouse-Rec
      AUTOMATIC MANDATORY
      SET OCCURRENCE SELECTION IS THRU CURRENT OF SET
   MEMBER IS Child-Rec
      AUTOMATIC MANDATORY
      SET OCCURRENCE SELECTION IS THRU CURRENT OF SET.

SET NAME IS Location-of-Part
   MODE IS CHAIN
   ORDER IS SORTED
   OWNER IS Part-Rec
   MEMBER IS Location-Part-Rec
      AUTOMATIC MANDATORY
      ASCENDING KEY IS Loc-Dept
      DUPLICATES ARE NOT ALLOWED
      SET OCCURRENCE SELECTION IS THRU CURRENT OF SET.


SET NAME IS Manages
   MODE IS CHAIN
   ORDER IS SORTED
   OWNER IS Manager-Link-Rec
   MEMBER IS Employee-Rec
      MANUAL OPTIONAL
      ASCENDING KEY IS Emp-Num
      DUPLICATES ARE NOT ALLOWED
      SET OCCURRENCE SELECTION IS THRU CURRENT OF SET.

SET NAME IS Managed-By
   MODE IS CHAIN
   ORDER IS ALWAYS FIRST
   OWNER IS Employee-Rec
   MEMBER IS Manager-Link-Rec
      AUTOMATIC OPTIONAL
      SET OCCURRENCE SELECTION IS THRU LOCATION MODE OF OWNER
         USING Emp-Num.

SET NAME IS Ord-Item
   MODE IS CHAIN
   ORDER IS ALWAYS LAST
   OWNER IS Order-Rec
   MEMBER IS Item-Rec
      AUTOMATIC MANDATORY
      SET OCCURRENCE SELECTION IS THRU CURRENT OF SET.

SET NAME IS Part-Head-Sys
   MODE IS CHAIN
   ORDER IS SORTED
      DUPLICATES ARE NOT ALLOWED
   OWNER IS SYSTEM
   MEMBER IS Part-Head-Rec
      AUTOMATIC MANDATORY
      ASCENDING KEY IS Part-Dummy.

SET NAME IS Part-Head
   MODE IS CHAIN
   ORDER IS SORTED
      DUPLICATES ARE NOT ALLOWED
   OWNER IS Part-Head-Rec
   MEMBER IS Part-Rec
      AUTOMATIC MANDATORY
      ASCENDING  KEY IS Part-Num
      SET OCCURRENCE SELECTION IS THRU LOCATION MODE OF OWNER
         USING Part-Dummy.

SET NAME IS Part-Item
   MODE IS CHAIN
   ORDER IS ALWAYS LAST
   OWNER IS Part-Rec
   MEMBER IS Item-Rec
      AUTOMATIC MANDATORY
      SET OCCURRENCE SELECTION IS THRU LOCATION MODE OF OWNER
         USING Part-Num.

SET NAME IS Price-Quote
   MODE IS CHAIN
   ORDER IS ALWAYS LAST
   OWNER IS Part-Rec
   MEMBER IS Purchase-Order-Rec
      MANUAL OPTIONAL
      SET OCCURRENCE SELECTION IS THRU LOCATION MODE OF OWNER
         USING Part-Num
   MEMBER IS Req-for-Quote-Rec
      MANUAL OPTIONAL
      SET OCCURRENCE SELECTION IS THRU LOCATION MODE OF OWNER
         USING Part-Num.

SET NAME IS Part-Used-On
   MODE IS CHAIN
   ORDER IS SORTED
      DUPLICATES ARE NOT ALLOWED
   OWNER IS Part-Rec
   MEMBER IS Component-Rec
      MANUAL OPTIONAL
      ASCENDING KEY IS Comp-Num
      SET OCCURRENCE SELECTION IS THRU LOCATION MODE OF OWNER
          ALIAS FOR Part-Num IS Used-On-Num%UONUM.

SET NAME IS Part-Uses
   MODE IS CHAIN
   ORDER IS ALWAYS LAST
   OWNER IS Part-Rec
   MEMBER IS Component-Rec
      MANUAL OPTIONAL
      SET OCCURRENCE SELECTION IS THRU LOCATION MODE OF OWNER
          USING Part-Num.

SET NAME IS Purchase-Order-Sys
   MODE IS CHAIN
   ORDER IS SORTED
      DUPLICATES ARE NOT ALLOWED
   OWNER IS SYSTEM
   MEMBER IS Purchase-Order-Head-Rec
      AUTOMATIC MANDATORY
      ASCENDING KEY IS PO-Dummy.

SET NAME IS Purchase-Order-Head
   MODE IS CHAIN
   ORDER IS SORTED
      DUPLICATES ARE NOT ALLOWED
   OWNER IS Purchase-Order-Head-Rec
   MEMBER IS Purchase-Order-Rec
      AUTOMATIC MANDATORY
      ASCENDING KEY IS PO-Num
      SET OCCURRENCE SELECTION IS THRU LOCATION MODE OF OWNER
         USING PO-Dummy.

SET NAME IS Purchase-Quote
   MODE IS CHAIN
   ORDER IS ALWAYS FIRST
   OWNER IS Purchase-Order-Rec
   MEMBER IS Quote-Rec
      AUTOMATIC MANDATORY
      SET OCCURRENCE SELECTION IS THRU CURRENT OF SET.

SET NAME IS Request-Quote
   MODE IS CHAIN
   ORDER IS ALWAYS LAST
   OWNER IS Req-for-Quote-Rec
   MEMBER IS Quote-Rec
   AUTOMATIC MANDATORY
   SET OCCURRENCE SELECTION IS THRU CURRENT OF SET.

Set NAME IS Sales
   MODE IS CHAIN LINKED TO PRIOR
   ORDER IS SORTED
      DUPLICATES ARE NOT ALLOWED
   OWNER IS Department-Rec
   MEMBER IS Customer-Rec
      MANUAL OPTIONAL
      ASCENDING KEY IS Cust-Name
      SET OCCURRENCE SELECTION IS THRU LOCATION MODE OF OWNER.

SET NAME IS Shipping
   MODE IS CHAIN
   ORDER IS ALWAYS LAST
   OWNER IS Truck-Rec
   MEMBER IS Item-REC
      MANUAL MANDATORY
      LINKED TO OWNER
      SET OCCURRENCE SELECTION IS THRU CURRENT OF SET.

SET NAME IS Sorted-Dup
   MODE IS CHAIN
   ORDER IS SORTED
      DUPLICATES ARE ALLOWED
   OWNER IS Temp-Top-Rec
   MEMBER IS Temp-Bottom1-Rec
     AUTOMATIC OPTIONAL
     ASCENDING KEY IS Bottom1-Key
     SET OCCURRENCE SELECTION IS THRU CURRENT OF SET.

SET NAME IS Sorted-NoDup
   MODE IS CHAIN
   ORDER IS SORTED
      DUPLICATES ARE NOT ALLOWED
   OWNER IS Temp-Top-Rec
   MEMBER IS Temp-Bottom2-Rec
     AUTOMATIC OPTIONAL
     ASCENDING KEY IS Bottom2-Key
     SET OCCURRENCE SELECTION IS THRU CURRENT OF SET.

SET NAME IS Task
   MODE IS CHAIN
   ORDER IS ALWAYS LAST
   OWNER IS Work-Item-Rec
   MEMBER IS Job-Ticket-Rec
      AUTOMATIC MANDATORY
      SET OCCURRENCE SELECTION IS THRU CURRENT OF SET.

SET NAME IS Time
   MODE IS CHAIN
   ORDER IS ALWAYS LAST
   OWNER IS Employee-Rec
   MEMBER IS Job-Ticket-Rec
      MANUAL OPTIONAL
      LINKED TO OWNER
      SET OCCURRENCE SELECTION IS THRU LOCATION MODE OF OWNER
         USING Emp-Num.

SET NAME IS Truck
   MODE IS CHAIN
   ORDER IS SORTED
      DUPLICATES ARE LAST
   OWNER IS Department-Rec
   MEMBER IS Truck-Rec
      AUTOMATIC MANDATORY
      ASCENDING KEY Truck-Route
      SET OCCURRENCE SELECTION IS THRU CURRENT OF SET.

SET NAME IS Vendor-Open
   MODE IS CHAIN
   ORDER IS ALWAYS FIRST
   OWNER IS Vendor-Rec
   MEMBER IS Purchase-Order-Rec
      MANUAL OPTIONAL
      SET OCCURRENCE SELECTION IS THRU LOCATION MODE OF OWNER.

SET NAME IS Vendor-Paid
   MODE IS CHAIN
   ORDER IS ALWAYS FIRST
   OWNER IS Vendor-Rec
   MEMBER IS Purchase-Order-Rec
      MANUAL OPTIONAL
      SET OCCURRENCE SELECTION IS THRU LOCATION MODE OF OWNER.

SET NAME IS Vendor-Part
   MODE IS CHAIN
   ORDER IS SORTED
      DUPLICATES ARE NOT ALLOWED
   OWNER IS Vendor-Rec
   MEMBER IS Part-Rec
      OPTIONAL MANUAL
      ASCENDING KEY IS Part-Num
      SET OCCURRENCE SELECTION IS THRU LOCATION MODE OF OWNER.

SET NAME IS Vendor-Quote
   MODE IS CHAIN
   ORDER IS ALWAYS FIRST
   OWNER IS Vendor-Rec
   MEMBER IS Quote-Rec
      AUTOMATIC MANDATORY
      SET OCCURRENCE SELECTION IS THRU LOCATION MODE OF OWNER.

SET NAME IS Week-Pay
   MODE IS CHAIN LINKED TO PRIOR
   ORDER IS ALWAYS FIRST
   OWNER IS Year-To-Date-Rec
   MEMBER IS Pay-Rec
      AUTOMATIC MANDATORY
      SET OCCURRENCE SELECTION IS THRU CURRENT OF SET.

SET NAME IS Work-Item
   MODE IS CHAIN
   ORDER IS ALWAYS FIRST
   OWNER IS Work-Order-Rec
   MEMBER IS Work-Item-Rec
      AUTOMATIC MANDATORY
      SET OCCURRENCE SELECTION IS THRU CURRENT OF SET.

SET NAME IS Work-Order-Sys
   MODE IS CHAIN
   ORDER IS SORTED
      DUPLICATES ARE NOT ALLOWED
   OWNER IS SYSTEM
   MEMBER IS Work-Order-Head-Rec
      AUTOMATIC MANDATORY
      ASCENDING KEY IS WO-Dummy.

SET NAME IS Work-Order-Head
   MODE IS CHAIN
   ORDER IS SORTED
      DUPLICATES ARE NOT ALLOWED
   OWNER IS Work-Order-Head-Rec
   MEMBER IS Work-Order-Rec
      AUTOMATIC MANDATORY
      ASCENDING KEY IS WO-Num
      SET OCCURRENCE SELECTION IS THRU LOCATION MODE OF OWNER
         USING WO-Dummy.
        
SET NAME IS Year-Day
   MODE IS CHAIN LINKED TO PRIOR
   ORDER IS ALWAYS FIRST
   OWNER IS Employee-Rec
   MEMBER IS Year-To-Date-Rec
      AUTOMATIC MANDATORY
      SET OCCURRENCE SELECTION IS THRU CURRENT OF SET.
**********************************************************************
*                         TRANSACTIONS                               *
**********************************************************************

TRANSACTION NAME IS D-B-UPDATE
   USAGE-MODE IS UPDATE.

TRANSACTION NAME IS D-B-RETRIEVAL
   USAGE-MODE IS RETRIEVAL.

TRANSACTION NAME IS CLASS-UPDATE
   USAGE-MODE IS UPDATE FOR PERSONNEL-AREA
   CLUSTER 2 PAGES FOR PERSONNEL-AREA
   IMAGES ARE IN ORDER BY TRANSACTION.

TRANSACTION NAME IS CLASS-RETRIEVAL
   USAGE-MODE IS RETRIEVAL FOR PERSONNEL-AREA
   CLUSTER 2 PAGES FOR PERSONNEL-AREA
   IMAGES ARE IN ORDER BY TRANSACTION.

TRANSACTION NAME IS DUMMY-TRANSACTION
   USAGE-MODE IS RETRIEVAL
   IMAGES ARE IN ORDER BY COMMAND.

TRANSACTION NAME IS CUSTOMER-RETRIEVAL
   USAGE-MODE IS RETRIEVAL FOR ORDERS-AREA
   USAGE-MODE IS RETRIEVAL FOR HEAD-AREA
   CLUSTER 10 PAGES FOR ORDERS-AREA.

TRANSACTION NAME IS DEPARTMENT-RETRIEVAL
   USAGE-MODE IS RETRIEVAL FOR MANUFACTURING-AREA.

TRANSACTION NAME IS DEPARTMENT-UPDATE
   USAGE-MODE IS UPDATE FOR MANUFACTURING-AREA.

TRANSACTION NAME IS CHILD-UPDATE
   USAGE-MODE IS UPDATE FOR PERSONAL-AREA
   USAGE-MODE IS UPDATE FOR PERSONNEL-AREA
   USAGE-MODE IS RETRIEVAL FOR HEAD-AREA
   CLUSTER 10 PAGES FOR PERSONAL-AREA
   CLUSTER 2 PAGES FOR PERSONNEL-AREA.

TRANSACTION NAME IS EMPLOYEE-UPDATE
   USAGE-MODE IS UPDATE FOR HEAD-AREA
   USAGE-MODE IS UPDATE FOR PERSONNEL-AREA
   USAGE-MODE IS UPDATE FOR MANUFACTURING-AREA
   CLUSTER 2 PAGES FOR PERSONNEL-AREA.

TRANSACTION NAME IS SPOUSE-UPDATE
   USAGE-MODE IS UPDATE FOR PERSONAL-AREA
   USAGE-MODE IS UPDATE FOR PERSONNEL-AREA
   USAGE-MODE IS UPDATE FOR HEAD-AREA
   CLUSTER 5 PAGES FOR PERSONAL-AREA
   CLUSTER 2 PAGES FOR PERSONNEL-AREA.

TRANSACTION NAME IS EMPLOYEE-RETRIEVAL
   USAGE-MODE IS RETRIEVAL FOR HEAD-AREA
   USAGE-MODE IS RETRIEVAL FOR PERSONNEL-AREA
   USAGE-MODE IS RETRIEVAL FOR PERSONAL-AREA
   CLUSTER 2 PAGES FOR PERSONNEL-AREA
   CLUSTER 10 PAGES FOR PERSONAL-AREA.

TRANSACTION NAME IS ORDER-UPDATE
   USAGE-MODE IS UPDATE FOR HEAD-AREA
   USAGE-MODE IS UPDATE FOR ORDERS-AREA
   USAGE-MODE IS UPDATE FOR INVENTORY-AREA.

TRANSACTION NAME IS PART-UPDATE
   USAGE-MODE IS UPDATE FOR HEAD-AREA
   USAGE-MODE IS UPDATE FOR INVENTORY-AREA.

TRANSACTION NAME IS PART-RETRIEVAL
   USAGE-MODE IS RETRIEVAL FOR HEAD-AREA
   USAGE-MODE IS RETRIEVAL FOR INVENTORY-AREA.

TRANSACTION NAME IS TRUCK-UPDATE
   USAGE-MODE IS UPDATE FOR ORDERS-AREA
   USAGE-MODE IS UPDATE FOR MANUFACTURING-AREA
   CLUSTER 2 PAGES FOR ORDERS-AREA.
   
TRANSACTION NAME IS TRUCK-RETRIEVAL
   USAGE-MODE IS RETRIEVAL FOR MANUFACTURING-AREA
   USAGE-MODE IS RETRIEVAL FOR ORDERS-AREA
   CLUSTER 2 PAGES FOR ORDERS-AREA.
   
TRANSACTION NAME IS HEADER-UPDATE
   USAGE-MODE IS UPDATE FOR HEAD-AREA.
**********************************************************************
*                                                                    *
*                                                                    *
*                    S U B - S C H E M A   D D L                     *
*                                                                    *
*                                                                    *
**********************************************************************

**********************************************************************
*                                                                    *
*  The following two sub-schemas are identical except that one is    *
*  defined for FORTRAN and the other is defined for COBOL.  The      *
*  view that each of these sub-schemas take is the entire data base. *
*  That is, they look at every record and every set defined in the   *
*  schema.  Placing them before application specific sub-schemas     *
*  means that the application sub-schemas can refer to how records   *
*  are defined below the 02 level and we can pretty much ignore the  *
*  redefinition except for very specific needs that might arise.     *
*                                                                    *
**********************************************************************
**********************************************************************
*                                                                    *
*  The following sub-schema is defined for FORTRAN applications and  *
*  it accesses every area, record, and set in the data base.         *
*                                                                    *
**********************************************************************

SUB-SCHEMA NAME IS FORTRAN-System-Programmer-SS
   PRIVACY LOCK IS ACEDB.

AREA SECTION.
   COPY ALL AREAS.

RECORD SECTION.
   01  Child-Rec.
       02 Child-Name.
		INTEGER CRLNAM ( 3), CRFNAM (2)
		EQUIVALENCE	(CRLNAM ( 1), CRNAME ( 1))
		EQUIVALENCE	(CRFNAM ( 1), CRNAME ( 4))
		EQUIVALENCE	(CRMITL     , CRNAME ( 6))
       COPY OTHERS.
   01  Classification-Rec.
   01  Component-Rec.
   01  Cust-Head-Rec.
   01  Customer-Rec.
       02 Cust-Num.
       02 Cust-Name.
       02 Cust-Address.
		INTEGER CSSTRT ( 3), CSCITY ( 3), CSZIP ( 2)
		EQUIVALENCE	(CSSTRT ( 1), CSADDR ( 1))
		EQUIVALENCE	(CSCITY ( 1), CSADDR ( 4))
		EQUIVALENCE	(CSSTAT     , CSADDR ( 7))
		EQUIVALENCE	(CSZIP  ( 1), CSADDR ( 7))
       COPY OTHERS.
   01  Department-Rec.
       02 Dept-Num.
       02 Dept-Name.
       02 Dept-Address.
		INTEGER DPSTRT ( 3), DPCITY ( 3), DPZIP ( 2)
		EQUIVALENCE	(DPINO      , DPADDR ( 1))
		EQUIVALENCE	(DPSTRT ( 1), DPADDR ( 2))
		EQUIVALENCE	(DPCITY ( 1), DPADDR ( 5))
		EQUIVALENCE	(DPSTAT     , DPADDR ( 8))
		EQUIVALENCE	(DPZIP  ( 1), DPADDR ( 9))
       COPY OTHERS.
   01  Employee-Head-Rec.
   01  Employee-Rec.
       02 Emp-Num.
       02 Emp-Name.
		INTEGER EPLNAM ( 3), EPFNAM ( 2)
		EQUIVALENCE	(EPLNAM ( 1), EPNAME ( 1))
		EQUIVALENCE	(EPFNAM ( 1), EPNAME ( 4))
		EQUIVALENCE	(EPMITL     , EPNAME ( 6))
       02 Emp-Address.
		INTEGER EPSTRT ( 3), EPCITY ( 3), EPZIP ( 2)
		EQUIVALENCE	(EPSTRT ( 1), EPADDR ( 1))
		EQUIVALENCE	(EPAPT      , EPADDR ( 4))
		EQUIVALENCE	(EPCITY ( 1), EPADDR ( 5))
		EQUIVALENCE	(EPSTAT     , EPADDR ( 8))
		EQUIVALENCE	(EPZIP  ( 1), EPADDR ( 9))
       COPY OTHERS.
   01  Item-Rec.
   01  Job-Ticket-Rec.
   01  Location-Part-Rec.
   01  Manager-Link-Rec.
   01  Number-of-Last-Order-Rec.
   01  Order-Rec.
   01  Part-Head-Rec.
   01  Part-Rec.
   01  Pay-Rec.
   01  Purchase-Order-Rec.
   01  Purchase-Order-Head-Rec.
   01  Quote-Rec.
   01  Req-for-Quote-Rec.
   01  Spouse-Rec.
       02 Spouse-Name.
		INTEGER SRLNAM ( 3), SRFNAM ( 2)
		EQUIVALENCE	(SRLNAM ( 1), SRNAME ( 1))
		EQUIVALENCE	(SRFNAM ( 1), SRNAME ( 4))
		EQUIVALENCE	(SRMITL     , SRNAME ( 6))
       COPY OTHERS.
   01  Temp-Top-Rec.
   01  Temp-Bottom1-Rec.
   01  Temp-Bottom2-Rec.
   01  Truck-Rec.
   01  Vendor-Rec.
       02 Vendor-Name.
       02 Vendor-Num.
       02 Vendor-Address.
		INTEGER VNDEPT ( 3), VNSTRT ( 3), VNCITY ( 3), VNZIP ( 2)
		EQUIVALENCE	(VNDEPT ( 1), VNADDR ( 1))
		EQUIVALENCE	(VNSTRT ( 1), VNADDR ( 4))
		EQUIVALENCE	(VNCITY ( 1), VNADDR ( 7))
		EQUIVALENCE	(VNSTAT     , VNADDR (10))
		EQUIVALENCE	(VNZIP  ( 1), VNADDR (11))
	COPY OTHERS.
   01  Work-Order-Head-Rec.
   01  Work-Order-Rec.
   01  Work-Item-Rec.
   01  Year-to-Date-Rec.

SET SECTION.
   COPY ALL SETS.

TRANSACTION SECTION.
   COPY ALL TRANSACTIONS.
**********************************************************************
*                                                                    *
*  This is the COBOL equivalent to the preceding sub-schema.         *
*                                                                    *
**********************************************************************

SUB-SCHEMA NAME IS COBSYS
   PRIVACY LOCK IS ACEDB.

AREA SECTION.
   COPY ALL AREAS.

RECORD SECTION.
   01  Child-Rec.
       02  Child-Name.
           03  Last-Name		PIC  X(15)	USAGE DISPLAY-7. 
           03  First-Name		PIC  X(10)	USAGE DISPLAY-7. 
           03  Middle-Initial		PIC  X(01)	USAGE DISPLAY-7.
       COPY OTHERS.
   01  Classification-Rec.
   01  Component-Rec.
   01  Cust-Head-Rec.
   01  Customer-Rec.
       02  Cust-Num.
       02  Cust-Name.
       02  Cust-Address.
           03  Cust-Street		PIC  X(15)	USAGE DISPLAY-7.
           03  Cust-City		PIC  X(15)	USAGE DISPLAY-7. 
           03  Cust-State		PIC  X(05)	USAGE DISPLAY-7. 
           03  Cust-Zip			PIC  9(05)	USAGE DISPLAY-7. 

       COPY OTHERS.
   01  Department-Rec.
       02 Dept-Num.
       02 Dept-Name.
       02 Dept-Address.
           03  Dept-Internal-No		PIC  X(05)	USAGE DISPLAY-7. 
           03  Dept-Street		PIC  X(15)	USAGE DISPLAY-7.
           03  Dept-City		PIC  X(15)	USAGE DISPLAY-7. 
           03  Dept-State		PIC  X(05)	USAGE DISPLAY-7. 
           03  Dept-Zip			PIC  9(05)	USAGE DISPLAY-7. 
       02 Dept-Phone.
   01  Employee-Rec.
       02  Emp-Num.
       02  Emp-Name.
           03  Emp-Last-Name		PIC  X(15)	USAGE DISPLAY-7. 
           03  Emp-First-Name		PIC  X(10)	USAGE DISPLAY-7. 
           03  Emp-Middle-Init		PIC  x(01)	USAGE DISPLAY-7.
	   03  Emp-Excess		PIC  X(04)	USAGE DISPLAY-7.
       02  Emp-Address.
           03  Emp-Street		PIC  X(15)	USAGE DISPLAY-7.
           03  Emp-RFD-Apt		PIC  X(05)	USAGE DISPLAY-7. 
           03  Emp-City			PIC  X(15)	USAGE DISPLAY-7. 
           03  Emp-State		PIC  X(05)	USAGE DISPLAY-7. 
           03  Emp-Zip			PIC  9(05)	USAGE DISPLAY-7. 
       COPY OTHERS.
   01  Employee-Head-Rec.
   01  Item-Rec.
   01  Job-Ticket-Rec.
   01  Location-Part-Rec.
   01  Manager-Link-Rec.
   01  Number-of-Last-Order-Rec.
   01  Order-Rec.
   01  Part-Head-Rec.
   01  Part-Rec.
   01  Pay-Rec.
   01  Purchase-Order-Rec.
   01  Purchase-Order-Head-Rec.
   01  Quote-Rec.
   01  Req-for-Quote-Rec.
   01  Spouse-Rec.
       02 Spouse-Name.
           03  Last-Name		PIC  X(15)	USAGE DISPLAY-7. 
           03  First-Name		PIC  X(10)	USAGE DISPLAY-7. 
	   03  Souse-Excess		PIC  X(04)	USAGE DISPLAY-7.
           03  Middle-Initial		PIC  X(01)	USAGE DISPLAY-7.
       COPY OTHERS.
   01  Temp-Top-Rec.
   01  Temp-Bottom1-Rec.
   01  Temp-Bottom2-Rec.
   01  Truck-Rec.
   01  Vendor-Rec.
       02 Vendor-Name.
       02 Vendor-Num.
       02 Vendor-Address.
           03  Dept			PIC  X(15)	USAGE DISPLAY-7. 
           03  Street			PIC  X(15)	USAGE DISPLAY-7. 
           03  City			PIC  X(15)	USAGE DISPLAY-7. 
           03  State			PIC  X(05)	USAGE DISPLAY-7. 
           03  Zip			PIC  9(10)	USAGE DISPLAY-7. 
       02 Vendor-Unpaid-Ttl.
   01  Work-Order-Head-Rec.
   01  Work-Order-Rec.
   01  Work-Item-Rec.
   01  Year-to-Date-Rec.

SET SECTION.
   COPY ALL SETS.
TRANSACTION SECTION.
   COPY ALL TRANSACTIONS.
SUB-SCHEMA NAME IS COBOL-System-Programmer-SS
   PRIVACY LOCK IS ACEDB.

AREA SECTION.
   COPY TEMPORARY HEAD-AREA,INDEX-BLOCK-AREA,INVENTORY-AREA.
   COPY TEMPORARY MANUFACTURING-AREA,ORDERS-AREA,PERSONNEL-AREA.
   COPY TEMPORARY PERSONAL-AREA,TEMPORARY-AREA.


RECORD SECTION.
   01  Child-Rec.
       02  Child-Name.
           03  Last-Name		PIC  X(15)	USAGE DISPLAY-7. 
           03  First-Name		PIC  X(10)	USAGE DISPLAY-7. 
           03  Middle-Initial		PIC  X(01)	USAGE DISPLAY-7.
       COPY OTHERS.
   01  Classification-Rec.
   01  Component-Rec.
   01  Cust-Head-Rec.
   01  Customer-Rec.
       02  Cust-Num.
       02  Cust-Name.
       02  Cust-Address.
           03  Cust-Street		PIC  X(15)	USAGE DISPLAY-7.
           03  Cust-City		PIC  X(15)	USAGE DISPLAY-7. 
           03  Cust-State		PIC  X(05)	USAGE DISPLAY-7. 
           03  Cust-Zip			PIC  9(05)	USAGE DISPLAY-7. 
       COPY OTHERS.
   01  Department-Rec.
       02 Dept-Num.
       02 Dept-Name.
       02 Dept-Address.
           03  Dept-Internal-No		PIC  X(05)	USAGE DISPLAY-7. 
           03  Dept-Street		PIC  X(15)	USAGE DISPLAY-7.
           03  Dept-City		PIC  X(15)	USAGE DISPLAY-7. 
           03  Dept-State		PIC  X(05)	USAGE DISPLAY-7. 
           03  Dept-Zip			PIC  9(05)	USAGE DISPLAY-7. 
       02 Dept-Phone.
   01  Employee-Rec.
       02  Emp-Num.
       02  Emp-Name.
           03  Emp-Last-Name		PIC  X(15)	USAGE DISPLAY-7. 
           03  Emp-First-Name		PIC  X(10)	USAGE DISPLAY-7. 
           03  Emp-Middle-Init		PIC  x(01)	USAGE DISPLAY-7.
	   03  Emp-Excess		PIC  X(04)	USAGE DISPLAY-7.
       02  Emp-Address.
           03  Emp-Street		PIC  X(15)	USAGE DISPLAY-7.
           03  Emp-RFD-Apt		PIC  X(05)	USAGE DISPLAY-7. 
           03  Emp-City			PIC  X(15)	USAGE DISPLAY-7. 
           03  Emp-State		PIC  X(05)	USAGE DISPLAY-7. 
           03  Emp-Zip			PIC  9(05)	USAGE DISPLAY-7. 
       COPY OTHERS.
   01  Employee-Head-Rec.
   01  Item-Rec.
   01  Job-Ticket-Rec.
   01  Location-Part-Rec.
   01  Manager-Link-Rec.
   01  Number-of-Last-Order-Rec.
   01  Order-Rec.
   01  Part-Head-Rec.
   01  Part-Rec.
   01  Pay-Rec.
   01  Purchase-Order-Rec.
   01  Purchase-Order-Head-Rec.
   01  Quote-Rec.
   01  Req-for-Quote-Rec.
   01  Spouse-Rec.
       02 Spouse-Name.
           03  Last-Name		PIC  X(15)	USAGE DISPLAY-7. 
           03  First-Name		PIC  X(10)	USAGE DISPLAY-7. 
           03  Middle-Initial		PIC  X(01)	USAGE DISPLAY-7.
   	   03  Spouse-Excess		PIC  X(04)	USAGE DISPLAY-7.
       COPY OTHERS.
   01  Temp-Top-Rec.
   01  Temp-Bottom1-Rec.
   01  Temp-Bottom2-Rec.
   01  Truck-Rec.
   01  Vendor-Rec.
       02 Vendor-Name.
       02 Vendor-Num.
       02 Vendor-Address.
           03  Dept			PIC  X(15)	USAGE DISPLAY-7. 
           03  Street			PIC  X(15)	USAGE DISPLAY-7. 
           03  City			PIC  X(15)	USAGE DISPLAY-7. 
           03  State			PIC  X(05)	USAGE DISPLAY-7. 
           03  Zip			PIC  9(10)	USAGE DISPLAY-7. 
       02 Vendor-Unpaid-Ttl.
   01  Work-Order-Head-Rec.
   01  Work-Order-Rec.
   01  Work-Item-Rec.
   01  Year-to-Date-Rec.

SET SECTION.
   COPY ALL SETS.

TRANSACTION SECTION.
   COPY ALL TRANSACTIONS.
SUB-SCHEMA NAME IS Inventory-SS
   PRIVACY LOCK IS Secrt.

AREA SECTION.
   COPY Inventory-Area, Orders-Area, Head-Area, Index-Block-Area.

RECORD SECTION.
   01  Part-Head-Rec.
   01  Part-Rec.
   01  Component-Rec.
   01  Vendor-Rec.
   01  Purchase-Order-Head-Rec.
   01  Req-for-Quote-Rec.
   01  Purchase-Order-Rec.
   01  Quote-Rec.
   01  Item-Rec.

SET SECTION.
   COPY Part-Head-Sys,
        Part-Head,
        Vendor-Part,
        Vendor-Quote,
        Vendor-Open,
        Vendor-Paid,
        Purchase-Order-Sys,
        Purchase-Order-Head,
        Purchase-Quote,
        Request-Quote,
        Price-Quote,
        Part-Uses,
        Part-Used-On,
        Part-Item.
TRANSACTION SECTION.
   COPY ALL TRANSACTIONS.
SUB-SCHEMA NAME IS Order-SS
   PRIVACY LOCK IS Secrt.

AREA SECTION.
   COPY Head-Area, Index-Block-Area, Manufacturing-Area,
        Inventory-Area, Orders-Area.

RECORD SECTION.
   01  Department-Rec.
   01  Cust-Head-Rec.
   01  Customer-Rec.
   01  Order-Rec.
   01  Truck-Rec.
   01  Item-Rec.
   01  Work-Order-Head-Rec.
   01  Work-Order-Rec.
   01  Work-Item-Rec.
   01  Job-Ticket-Rec.
   01  Part-Head-Rec.
   01  Part-Rec.
   01  Component-Rec.

SET SECTION.
   COPY Sales,
        Truck,
        Dept-Work-Item,
        Cust-Head-Sys,
        Cust-Head,
        Cust-Ord,
        Ord-Item,
        Shipping,
        Work-Order-Sys,
        Work-Order-Head,
        Complete-WO,
        Active-WO,
        Work-Item,
        Task,
        Part-Item,
        Part-Head-Sys,
        Part-Head,
        Part-Uses,
        Part-Used-On.
TRANSACTION SECTION.
   COPY ALL TRANSACTIONS.
SUB-SCHEMA NAME IS Manufacturing-SS
   PRIVACY LOCK IS Secrt.

AREA SECTION.
   COPY Head-Area, Index-Block-Area, Inventory-Area,
        Manufacturing-Area, Orders-Area, Personnel-Area.

RECORD SECTION.
   01  Department-Rec.
   01  Item-Rec.
   01  Work-Order-Head-Rec.
   01  Work-Order-Rec.
   01  Work-Item-Rec.
   01  Job-Ticket-Rec.
   01  Employee-Head-Rec.
   01  Employee-Rec.
   01  Classification-Rec.
   01  Part-Head-Rec.
   01  Part-Rec.
   01  Component-Rec.

SET SECTION.
   COPY Dept-Work-Item,
        Complete-WO,
        Active-WO,
        Work-Item,
        Task,
        Time,
        Class-Employee,
        Employee-Head-Sys,
        Employee-Head,
        Part-Item,
        Part-Head-Sys,
        Part-Uses,
        Part-Used-On.
TRANSACTION SECTION.
   COPY ALL TRANSACTIONS.
SUB-SCHEMA NAME IS Personnel-SS
   PRIVACY LOCK IS Secrt.

AREA SECTION.
   COPY Head-Area, Index-Block-Area, Manufacturing-Area,
        Personnel-Area.

RECORD SECTION.
  01  Classification-Rec.
  01  Department-Rec.
  01  Employee-Head-Rec.
  01  Employee-Rec.
  01  Manager-Link-Rec.
  01  Year-to-Date-Rec.
  01  Pay-Rec.
  01  Spouse-Rec.
  01  Child-Rec.
  01  Job-Ticket-Rec.

SET SECTION.
  COPY Employees,
       Employee-Head-Sys,
       Employee-Head,
       Manages,
       Managed-By,
       Year-Day,
       Week-Pay,
       Family,
       Time,
       Class-Employee.
TRANSACTION SECTION.
   COPY ALL TRANSACTIONS.
SUB-SCHEMA NAME IS DEBUGGING-SS
   PRIVACY LOCK IS ACEDB.

AREA SECTION.
   COPY TEMPORARY Manufacturing-Area, Orders-Area, Inventory-Area,
                  Personnel-Area, Index-Block-Area, Head-Area.

RECORD SECTION.
   COPY ALL RECORDS.

SET SECTION.
   COPY ALL SETS.

TRANSACTION SECTION.
   COPY ALL TRANSACTIONS.

END-SCHEMA.