Technical data

Example 7–3 PARTSS1-PROGRAM Compiler Listing (Alpha, I64)
PARTSS1-PROGRAM Source Listing 18-JUN-2004 08:20:37 HP COBOL V2.8 Page 1
0 Source Listing 18-JUN-2004 08:17:19 DEVICE:[COBOL.EXAMPLES]PARTSS1.COB;1
1 IDENTIFICATION DIVISION.
2 PROGRAM-ID. PARTSS1-PROGRAM.
3
4 DATA DIVISION.
5 SUB-SCHEMA SECTION.
6 DB PARTSS5 WITHIN PARTS FOR "DBM$IVP_OUTPUT:DBMPARTS".
7
8 PROCEDURE DIVISION.
9 END PROGRAM PARTSS1-PROGRAM.
PARTSS1-PROGRAM Source Listing 18-JUN-2004 08:20:37 HP COBOL V2.8 Page 2
0 Program Section Summary 18-JUN-2004 08:17:19 DEVICE:[COBOL.EXAMPLES]PARTSS1.COB;1
PROGRAM SECTION INDEX
Index Name Bytes Alignment Attributes
----- ---------------- ---------- --------- -------------------------------------------------------------
11 DBM$UWA_B 576 OCTA 4 PIC OVR REL GBL SHR NOEXE RD WRT NOVEC
12 DBM$SSC_B 48 OCTA 4 PIC CON REL GBL NOSHR NOEXE RD NOWRT NOVEC
DIAGNOSTICS SUMMARY
Informationals 1 (suppressed)
----------------------
Total 1
PARTSS1_PROGRAM\PARTSS1_PROGRAM Source Listing 18-JUN-2004 08:20:37 HP COBOL V2.8 Page 3
0 Data Names in Alphabetic Order 18-JUN-2004 08:17:19 DEVICE:[COBOL.EXAMPLES]PARTSS1.COB;1
Line Level Name Location Size Bytes Usage Category Subs Attribute
----- ----- ------------- ------------- ---------- ---------- -------- -------- ---- ---------
6 01 CATEGORY 11 000000C8 23 23 DISPLAY Group Glo
6 02 CLASS_CODE 11 000000C8 2 2 DISPLAY AN Glo
6 02 CLASS_DESC 11 000000CA 20 20 DISPLAY AN Glo
6 02 CLASS_STATUS 11 000000DE 1 1 DISPLAY AN Glo
6 02 COMP_MEASURE 11 000000F0 1 1 DISPLAY AN Glo
6 02 COMP_OWNER_PART 11 000000E8 8 8 DISPLAY AN Glo
6 02 COMP_QUANTITY 11 000000F1 5 3 COMP-3 N Glo
6 02 COMP_SUB_PART 11 000000E0 8 8 DISPLAY AN Glo
6 01 COMPONENT 11 000000E0 20 20 DISPLAY Group Glo
6 01 DB-CONDITION 11 0000003C 9 4 COMP N Glo
6 01 DB-CURRENT-RECORD-ID
11 00000000 4 2 COMP N Glo
6 01 DB-CURRENT-RECORD-NAME
11 00000019 31 31 DISPLAY AN Glo
6 01 DB-KEY 11 0000007A 18 8 COMP N Glo
6 01 DB-UWA 11 00000000 108 108 DISPLAY AN Glo
6 02 EMP_FIRST_NAME 11 0000010F 10 10 DISPLAY AN Glo
6 02 EMP_ID 11 000000F8 5 3 COMP-3 N Glo
6 02 EMP_LAST_NAME 11 000000FB 20 20 DISPLAY AN Glo
6 02 EMP_LOC 11 00000120 5 5 DISPLAY AN Glo
6 02 EMP_PHONE [phone] DISPLAY AN Glo
6 01 EMPLOYEE 11 000000F8 45 45 DISPLAY Group Glo
6 02 GROUP_NAME 11 00000128 20 20 DISPLAY AN Glo
6 01 PART 11 00000140 71 71 DISPLAY Group Glo
6 02 PART_COST 11 00000180 9 5 COMP-3 N Glo
6 02 PART_DESC 11 00000148 50 50 DISPLAY AN Glo
6 02 PART_ID 11 00000140 8 8 DISPLAY AN Glo
6 02 PART_PRICE 11 0000017B 9 5 COMP-3 N Glo
6 02 PART_STATUS 11 0000017A 1 1 DISPLAY AN Glo
6 02 PART_SUPPORT 11 00000185 2 2 DISPLAY AN Glo
6 01 PR_QUOTE 11 00000188 26 26 DISPLAY Group Glo
6 02 QUOTE_DATE 11 0000018F 6 6 DISPLAY AN Glo
(continued on next page)
Debugging and Testing HP COBOL DML Programs 7–11