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 3
Procedure Names in Alphabetic Order 31-May-2004 14:03:05 [SYSTEST.DBM]PARTSS1-PROGRAM.COB;3 (1)
Line Name Location Type
2 PARTSS1-PROGRAM 0 00000000 Program
PARTSS1-PROGRAM 31-May-2004 14:08:50 Compaq COBOL V5.7-63 Page 4
References 31-May-2004 14:03:05 [SYSTEST.DBM]PARTSS1-PROGRAM.COB;3 (1)
DBM$_NOT_BOUND
PARTSS1-PROGRAM 31-May-2004 14:08:50 Compaq COBOL V5.7-63 Page 5
Sub-schema Map 31-May-2004 14:03:05 [SYSTEST.DBM]PARTSS1-PROGRAM.COB;3 (1)
* SYS$COMMON:[SYSTEST.DBM.CDDPLUS1]PARTS.DBM$SUBSCHEMAS.PARTSS5
*
* Subschema version number: 31-MAY-2004 14:06:24.23
*
SUBSCHEMA NAME PARTSS5 FOR CDDPLUS1]PARTS SCHEMA
REALM BUY
REALM MAKE
REALM MARKET
REALM PERSONNEL
* Within areas: BUY
* MAKE
* Owner of sets: CATEGORY_PART
* Member of sets: ALL_CATEGORIES
*
01 CATEGORY.
02 CLASS_CODE PIC X(2).
02 CLASS_DESC PIC X(20).
02 CLASS_STATUS PIC X.
* Within areas: MAKE
* Member of sets: PART_USES
* PART_USED_ON
*
01 COMPONENT.
02 COMP_SUB_PART PIC X(8).
02 COMP_OWNER_PART PIC X(8).
02 COMP_MEASURE PIC X.
02 COMP_QUANTITY PIC S9(3)V9(2) COMP-3.
* Within areas: PERSONNEL
* Owner of sets: MANAGES
* RESPONSIBLE_FOR
* Member of sets: ALL_EMPLOYEES
* CONSISTS_OF
*
01 EMPLOYEE.
02 EMP_ID PIC S9(5) COMP-3.
02 EMP_LAST_NAME PIC X(20).
02 EMP_FIRST_NAME PIC X(10).
02 EMP_PHONE PIC X(7).
02 EMP_LOC PIC X(5).
* Within areas: PERSONNEL
* Owner of sets: CONSISTS_OF
* Member of sets: MANAGES
*
01 WK_GROUP.
02 GROUP_NAME PIC X(20).
* Within areas: BUY
* MAKE
* Owner of sets: PART_USES
(continued on next page)
7–16 Debugging and Testing HP COBOL DML Programs