Technical data

Example 7–5 (Cont.) PARTSS1-PROGRAM Compiler Listing (VAX)
PARTSS1-PROGRAM 31-May-2004 14:08:50 Compaq COBOL V5.7-63 Page 6
Sub-schema Map 31-May-2004 14:03:05 [SYSTEST.DBM]PARTSS1-PROGRAM.COB;3 (1)
* PART_INFO
* PART_USED_ON
* Member of sets: ALL_PARTS
* ALL_PARTS_ACTIVE
* CATEGORY_PART
* RESPONSIBLE_FOR
*
01 PART.
02 PART_ID PIC X(8).
02 PART_DESC PIC X(50).
02 PART_STATUS PIC X.
02 PART_PRICE PIC S9(6)V9(3) COMP-3.
02 PART_COST PIC S9(6)V9(3) COMP-3.
02 PART_SUPPORT PIC X(2).
* Within areas: MARKET
* Member of sets: PART_INFO
*
01 PR_QUOTE.
02 QUOTE_ID PIC X(7).
02 QUOTE_DATE PIC X(6).
02 QUOTE_MIN_ORDER PIC S9(5) COMP-3.
02 QUOTE_UNIT_PRIC PIC S9(6)V9(3) COMP-3.
02 QUOTE_QTY_PRICE PIC S9(6)V9(3) COMP-3.
* Within areas: MARKET
* Member of sets: PART_INFO
* VENDOR_SUPPLY
*
01 SUPPLY.
02 SUP_RATING PIC X.
02 SUP_TYPE PIC X(4).
02 SUP_LAG_TIME PIC X(10).
* Within areas: MARKET
* Owner of sets: VENDOR_SUPPLY
* Member of sets: ALL_VENDORS
*
01 VENDOR.
02 VEND_ID PIC X(8).
02 VEND_NAME PIC X(40).
02 VEND_CONTACT PIC X(30).
02 VEND_ADDRESS PIC X(15) OCCURS 3 TIMES.
02 VEND_PHONE PIC X(10).
SET NAME ALL_CATEGORIES
OWNER SYSTEM
MEMBER CATEGORY
INSERTION AUTOMATIC
RETENTION FIXED
ORDER SYSTEM DEFAULT
SET NAME ALL_EMPLOYEES
OWNER SYSTEM
MEMBER EMPLOYEE
INSERTION AUTOMATIC
RETENTION FIXED
PARTSS1-PROGRAM 31-May-2004 14:08:50 Compaq COBOL V5.7-63 Page 7
Sub-schema Map 31-May-2004 14:03:05 [SYSTEST.DBM]PARTSS1-PROGRAM.COB;3 (1)
ORDER SYSTEM DEFAULT
SET NAME ALL_PARTS
OWNER SYSTEM
MEMBER PART
INSERTION AUTOMATIC
RETENTION FIXED
ORDER SYSTEM DEFAULT
(continued on next page)
Debugging and Testing HP COBOL DML Programs 7–17