Trailing-Edge
-
PDP-10 Archives
-
BB-4148E-BM
-
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.