Technical data

Example 7–5 PARTSS1-PROGRAM Compiler Listing (VAX)
PARTSS1-PROGRAM 31-May-2004 14:08:50 Compaq COBOL V5.7-63 Page 1
Source Listing 31-May-2004 14:03:05 [SYSTEST.DBM]PARTSS1-PROGRAM.COB;3 (1)
1 IDENTIFICATION DIVISION.
2 PROGRAM-ID. PARTSS1-PROGRAM.
3
4 DATA DIVISION.
5 SUB-SCHEMA SECTION.
6 DB PARTSS5 WITHIN PARTS.
7
8 PROCEDURE DIVISION.
9 END PROGRAM PARTSS1-PROGRAM.
PARTSS1-PROGRAM 31-May-2004 14:08:50 Compaq COBOL V5.7-63 Page 2
Data Names in Alphabetic Order 31-May-2004 14:03:05 [SYSTEST.DBM]PARTSS1-PROGRAM.COB;3 (1)
Line Level Name Location Size Bytes Usage Category Subs Attribute
6 01 CATEGORY 7 000000AC 23 23 DISPLAY Group Glo
6 02 CLASS_CODE 7 000000AC 2 2 DISPLAY AN Glo
6 02 CLASS_DESC 7 000000AE 20 20 DISPLAY AN Glo
6 02 CLASS_STATUS 7 000000C2 1 1 DISPLAY AN Glo
6 02 COMP_MEASURE 7 000000D4 1 1 DISPLAY AN Glo
6 02 COMP_OWNER_PART
7 000000CC 8 8 DISPLAY AN Glo
6 02 COMP_QUANTITY 7 000000D5 5 3 COMP-3 N Glo
6 02 COMP_SUB_PART 7 000000C4 8 8 DISPLAY AN Glo
6 01 COMPONENT 7 000000C4 20 20 DISPLAY Group Glo
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 02 EMP_FIRST_NAME 7 000000EF 10 10 DISPLAY AN Glo
6 02 EMP_ID 7 000000D8 5 3 COMP-3 N Glo
6 02 EMP_LAST_NAME 7 000000DB 20 20 DISPLAY AN Glo
6 02 EMP_LOC 7 00000100 5 5 DISPLAY AN Glo
6 02 EMP_PHONE [phone]F9 7 7 DISPLAY AN Glo
6 01 EMPLOYEE 7 000000D8 45 45 DISPLAY Group Glo
6 02 GROUP_NAME 7 00000108 20 20 DISPLAY AN Glo
6 01 PART 7 0000011C 71 71 DISPLAY Group Glo
6 02 PART_COST 7 0000015C 9 5 COMP-3 N Glo
6 02 PART_DESC 7 00000124 50 50 DISPLAY AN Glo
6 02 PART_ID 7 0000011C 8 8 DISPLAY AN Glo
6 02 PART_PRICE 7 00000157 9 5 COMP-3 N Glo
6 02 PART_STATUS 7 00000156 1 1 DISPLAY AN Glo
6 02 PART_SUPPORT 7 00000161 2 2 DISPLAY AN Glo
6 01 PR_QUOTE 7 00000164 26 26 DISPLAY Group Glo
6 02 QUOTE_DATE 7 0000016B 6 6 DISPLAY AN Glo
6 02 QUOTE_ID 7 00000164 7 7 DISPLAY AN Glo
6 02 QUOTE_MIN_ORDER7 00000171 5 3 COMP-3 N Glo
6 02 QUOTE_QTY_PRICE7 00000179 9 5 COMP-3 N Glo
6 02 QUOTE_UNIT_PRIC7 00000174 9 5 COMP-3 N Glo
6 02 SUP_LAG_TIME 7 00000185 10 10 DISPLAY AN Glo
6 02 SUP_RATING 7 00000180 1 1 DISPLAY AN Glo
6 02 SUP_TYPE 7 00000181 4 4 DISPLAY AN Glo
6 01 SUPPLY 7 00000180 15 15 DISPLAY Group Glo
6 02 VEND_ADDRESS 7 000001DE 15 15 DISPLAY AN 1 Glo
6 02 VEND_CONTACT 7 000001C0 30 30 DISPLAY AN Glo
6 02 VEND_ID 7 00000190 8 8 DISPLAY AN Glo
6 02 VEND_NAME 7 00000198 40 40 DISPLAY AN Glo
6 02 VEND_PHONE [phone]B 10 10 DISPLAY AN Glo
6 01 VENDOR 7 00000190 133 133 DISPLAY Group Glo
6 01 WK_GROUP 7 00000108 20 20 DISPLAY Group Glo
(continued on next page)
Debugging and Testing HP COBOL DML Programs 7–15