Technical data

PARTSS3 Program Map Listing (Alpha, I64)
PARTSS3-PROGRAM in Example 7–4 includes the Oracle CODASYL DBMS
data-names of the PARTSS3 subschema.
Example 7–4 PARTSS3-PROGRAM Compiler Listing (Alpha, I64)
PARTSS3-PROGRAM Source Listing 18-JUN-2004 08:33:40 HP COBOL V2.8 Page 1
0 Source Listing 18-JUN-2004 08:30:39 DEVICE:[COBOL.EXAMPLES]PARTSSE.COB;1
1 IDENTIFICATION DIVISION.
2 PROGRAM-ID. PARTSS3-PROGRAM.
3
4 DATA DIVISION.
5 SUB-SCHEMA SECTION.
6 DB PARTSS3 WITHIN PARTS FOR "DBM$IVP_OUTPUT:DBMPARTS".
7
8 PROCEDURE DIVISION.
9 END PROGRAM PARTSS3-PROGRAM.
PARTSS3-PROGRAM Source Listing 18-JUN-2004 08:33:40 HP COBOL V2.8 Page 2
0 Program Section Summary 18-JUN-2004 08:30:39 DEVICE:[COBOL.EXAMPLES]PARTSSE.COB;1
PROGRAM SECTION INDEX
Index Name Bytes Alignment Attributes
----- ----------- ---------- --------- -------------------------------------------------------------
11 DBM$UWA_B 376 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
PARTSS3_PROGRAM\PARTSS3_PROGRAM Source Listing 18-JUN-2004 08:33:40 HP COBOL V2.8 Page 3
0 Data Names in Alphabetic Order 18-JUN-2004 08:30:39 DEVICE:[COBOL.EXAMPLES]PARTSSE.COB;1
Line Level Name Location Size Bytes Usage Category Subs Attribute
----- ----- -------------- ------------- ---------- ---------- -------- -------- ---- ---------
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 01 PART 11 000000A0 61 61 DISPLAY Group Glo
6 02 PART_DESC 11 000000A8 50 50 DISPLAY AN Glo
6 02 PART_ID 11 000000A0 8 8 DISPLAY AN Glo
6 02 PART_STATUS 11 000000DA 1 1 DISPLAY AN Glo
6 02 PART_SUPPORT 11 000000DB 2 2 DISPLAY AN Glo
6 02 SUP_LAG_TIME 11 000000E5 10 10 DISPLAY AN Glo
6 02 SUP_RATING 11 000000E0 1 1 DISPLAY AN Glo
6 02 SUP_TYPE 11 000000E1 4 4 DISPLAY AN Glo
6 01 SUPPLY 11 000000E0 15 15 DISPLAY Group Glo
6 02 VEND_ADDRESS 11 0000013E 15 15 DISPLAY AN 1 Glo
6 02 VEND_CONTACT 11 00000120 30 30 DISPLAY AN Glo
6 02 VEND_ID 11 000000F0 8 8 DISPLAY AN Glo
6 02 VEND_NAME 11 000000F8 40 40 DISPLAY AN Glo
6 02 VEND_PHONE [phone]B 10 10 DISPLAY N Glo
6 01 VENDOR 11 000000F0 133 133 DISPLAY Group Glo
PARTSS3_PROGRAM\PARTSS3_PROGRAM Source Listing 18-JUN-2004 08:33:40 HP COBOL V2.8 Page 4
0 Procedure Names in Alpha Order 18-JUN-2004 08:30:39 DEVICE:[COBOL.EXAMPLES]PARTSSE.COB;1
(continued on next page)
Debugging and Testing HP COBOL DML Programs 7–13