Technical data

Example 7–6 (Cont.) PARTSS3-PROGRAM Compiler Listing (VAX)
PARTSS3-PROGRAM 31-May-2004 12:31:18 Compaq COBOL V5.7-63 Page 2
Data Names in Alphabetic Order 31-May-2004 12:25:37 [SYSTEST.DBM]PARTSS3-PROGRAM.COB;2 (1)
Line Level Name Location Size Bytes Usage Category Subs Attribute
6 01 DB-CONDITION 7 00000028 9 4 COMP N Glo
6 01 DB-CURRENT-RECORD-ID
7 00000000 4 2 COMP N Glo
6 01 DB-CURRENT-RECORD-NAME
7 00000005 31 31 DISPLAY AN Glo
6 01 DB-KEY 7 00000064 18 8 COMP N Glo
6 01 DB-UWA 7 00000000 108 108 DISPLAY AN Glo
6 01 PART 7 00000084 61 61 DISPLAY Group Glo
6 02 PART_DESC 7 0000008C 50 50 DISPLAY AN Glo
6 02 PART_ID 7 00000084 8 8 DISPLAY AN Glo
6 02 PART_STATUS 7 000000BE 1 1 DISPLAY AN Glo
6 02 PART_SUPPORT 7 000000BF 2 2 DISPLAY AN Glo
6 02 SUP_LAG_TIME 7 000000C9 10 10 DISPLAY AN Glo
6 02 SUP_RATING 7 000000C4 1 1 DISPLAY AN Glo
6 02 SUP_TYPE 7 000000C5 4 4 DISPLAY AN Glo
6 01 SUPPLY 7 000000C4 15 15 DISPLAY Group Glo
6 02 VEND_ADDRESS 7 00000122 15 15 DISPLAY AN 1 Glo
6 02 VEND_CONTACT 7 00000104 30 30 DISPLAY AN Glo
6 02 VEND_ID 7 000000D4 8 8 DISPLAY AN Glo
6 02 VEND_NAME 7 000000DC 40 40 DISPLAY AN Glo
6 02 VEND_PHONE [phone]F 10 10 DISPLAY N Glo
6 01 VENDOR 7 000000D4 133 133 DISPLAY Group Glo
PARTSS3-PROGRAM 31-May-2004 12:31:18 Compaq COBOL V5.7-63 Page 3
Procedure Names in Alphabetic Order 31-May-2004 12:25:37 [SYSTEST.DBM]PARTSS3-PROGRAM.COB;2 (1)
Line Name Location Type
2 PARTSS3-PROGRAM 0 00000000 Program
PARTSS3-PROGRAM 31-May-2004 12:31:18 Compaq COBOL V5.7-63 Page 4
External References 31-May-2004 12:25:37 [SYSTEST.DBM]PARTSS3-PROGRAM.COB;2 (1)
DBM$_NOT_BOUND
PARTSS3-PROGRAM 31-May-2004 12:31:18 Compaq COBOL V5.7-63 Page 5
Sub-schema Map 31-May-2004 12:25:37 [SYSTEST.DBM]PARTSS3-PROGRAM.COB;2 (1)
* SYS$COMMON:[SYSTEST.DBM.CDDPLUS1]PARTS.DBM$SUBSCHEMAS.PARTSS3
*
* Subschema version number: 31-MAY-2004 12:28:53.22
*
SUBSCHEMA NAME PARTSS3 FOR CDDPLUS1]PARTS SCHEMA
REALM MARKETS
* Within areas: MARKETS
* Owner of sets: PART_SUPPLY
*
01 PART.
02 PART_ID PIC X(8).
02 PART_DESC PIC X(50).
02 PART_STATUS PIC X.
02 PART_SUPPORT PIC X(2).
* Within areas: MARKETS
* Member of sets: PART_SUPPLY
* VENDOR_SUPPLY
*
01 SUPPLY.
02 SUP_RATING PIC X.
02 SUP_TYPE PIC X(4).
02 SUP_LAG_TIME PIC X(10).
(continued on next page)
7–20 Debugging and Testing HP COBOL DML Programs