Download CDML 2.2 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
0
1
2
3
4
5
6
7
8
9
Source Listing
Source Listing
18-JUN-2004 08:33:40 HP COBOL V2.8
Page 1
18-JUN-2004 08:30:39 DEVICE:[COBOL.EXAMPLES]PARTSSE.COB;1
IDENTIFICATION DIVISION.
PROGRAM-ID. PARTSS3-PROGRAM.
DATA DIVISION.
SUB-SCHEMA SECTION.
DB
PARTSS3 WITHIN PARTS FOR "DBM$IVP_OUTPUT:DBMPARTS".
PROCEDURE DIVISION.
END PROGRAM PARTSS3-PROGRAM.
PARTSS3-PROGRAM
0
Source Listing
18-JUN-2004 08:33:40 HP COBOL V2.8
Page 2
Program Section Summary 18-JUN-2004 08:30:39 DEVICE:[COBOL.EXAMPLES]PARTSSE.COB;1
PROGRAM SECTION INDEX
Index
----11
12
Name
Bytes
Alignment Attributes
----------- ---------- --------- ------------------------------------------------------------DBM$UWA_B
376 OCTA
4
PIC
OVR
REL
GBL
SHR NOEXE
RD
WRT NOVEC
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
----6
6
Level
----01
01
6
01
6
6
6
6
6
6
6
6
6
6
6
6
6
6
6
6
6
01
01
01
02
02
02
02
02
02
02
01
02
02
02
02
02
01
Name
Location
-------------- ------------DB-CONDITION
11 0000003C
DB-CURRENT-RECORD-ID
11 00000000
DB-CURRENT-RECORD-NAME
11 00000019
DB-KEY
11 0000007A
DB-UWA
11 00000000
PART
11 000000A0
PART_DESC
11 000000A8
PART_ID
11 000000A0
PART_STATUS
11 000000DA
PART_SUPPORT
11 000000DB
SUP_LAG_TIME
11 000000E5
SUP_RATING
11 000000E0
SUP_TYPE
11 000000E1
SUPPLY
11 000000E0
VEND_ADDRESS
11 0000013E
VEND_CONTACT
11 00000120
VEND_ID
11 000000F0
VEND_NAME
11 000000F8
VEND_PHONE
11 0000016B
VENDOR
11 000000F0
Size
---------9
Bytes
---------4
4
2
31
18
108
61
50
8
1
2
10
1
4
15
15
30
8
40
10
133
31
8
108
61
50
8
1
2
10
1
4
15
15
30
8
40
10
133
Usage
Category
-------- -------COMP
N
Subs
----
Attribute
--------Glo
COMP
N
Glo
DISPLAY
COMP
DISPLAY
DISPLAY
DISPLAY
DISPLAY
DISPLAY
DISPLAY
DISPLAY
DISPLAY
DISPLAY
DISPLAY
DISPLAY
DISPLAY
DISPLAY
DISPLAY
DISPLAY
DISPLAY
AN
N
AN
Group
AN
AN
AN
AN
AN
AN
AN
Group
AN
AN
AN
AN
N
Group
Glo
Glo
Glo
Glo
Glo
Glo
Glo
Glo
Glo
Glo
Glo
Glo
Glo
Glo
Glo
Glo
Glo
Glo
1
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