|
HP OpenVMS Systems Documentation |
|
HP COBOL
|
| Previous | Contents | Index |
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 11 0000016B 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
Line Name Location Type
----- ---------- ------------- -------------------------------------------------------------------------
2 PARTSS3-PROGRAM ** Program
PARTSS3_PROGRAM\PARTSS3_PROGRAM Source Listing 18-JUN-2004 08:33:40 HP COBOL V2.8 Page 5
0 Compilation Summary 18-JUN-2004 08:30:39 DEVICE:[COBOL.EXAMPLES]PARTSSE.COB;1
COMMAND QUALIFIERS
COBOL
/NOALIGNMENT /GRANULARITY = QUAD
/NOANALYSIS_DATA /NOINCLUDE
/NOANSI_FORMAT /LIST
/ARCHITECTURE = GENERIC /NOMACHINE_CODE
/ARITHMETIC = NATIVE /MAP = ALPHABETICAL
/NOAUDIT /MATH_INTERMEDIATE = FLOAT
/CHECK = (NOPERFORM, NOBOUNDS, NODECIMAL, NODUPLICATE_KEYS) /NATIONALITY = US
/NOCONDITIONALS /NOOBJECT
/NOCONVERT = LEADING_BLANKS /OPTIMIZE = (LEVEL=4,TUNE=GENERIC)
/NOCOPY_LIST /RESERVED_WORDS = (XOPEN,
NOFOREIGN_EXTENSIONS, NO200X)
/NOCROSS_REFERENCE /NOSEPARATE_COMPILATION
/DEBUG = (NOSYMBOLS, TRACEBACK) /NOSEQUENCE_CHECK
/NODEPENDENCY_DATA /STANDARD = (NOXOPEN, NOSYNTAX,
NOV3, 85, NOMIA)
/NODIAGNOSTICS /NOTIE
/NODISPLAY_FORMATTED /NOTRUNCATE
/NOFIPS /VFC
/NOFLAGGER /WARNINGS = (NOINFORMATION, OTHER)
/FLOAT = D_FLOAT
COMPILATION STATISTICS
CPU time: 1.59 seconds
Elapsed time: 7.63 seconds
Pagefaults: 1053
I/O Count: 340
Source lines: 9
339 lines per CPU minute. <>
|
This section shows two compiler listing examples on OpenVMS VAX.
PARTSS1 Program Map Listing (VAX)
The HP COBOL for OpenVMS VAX (formerly Compaq COBOL) compiler produces listings that are different in some respects from those produced by HP COBOL for OpenVMS Alpha. Following are examples of VAX listings.
PARTSS1-PROGRAM in Example 7-5 includes the HP COBOL for OpenVMS VAX subschema map of the PARTSS1 subschema.
| 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 7 000000F9 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 7 0000020B 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
PARTSS1-PROGRAM 31-May-2004 14:08:50 Compaq COBOL V5.7-63 Page 3
Procedure Names in Alphabetic Order 31-May-2004 14:03:05 [SYSTEST.DBM]PARTSS1-PROGRAM.COB;3 (1)
Line Name Location Type
2 PARTSS1-PROGRAM 0 00000000 Program
PARTSS1-PROGRAM 31-May-2004 14:08:50 Compaq COBOL V5.7-63 Page 4
References 31-May-2004 14:03:05 [SYSTEST.DBM]PARTSS1-PROGRAM.COB;3 (1)
DBM$_NOT_BOUND
PARTSS1-PROGRAM 31-May-2004 14:08:50 Compaq COBOL V5.7-63 Page 5
Sub-schema Map 31-May-2004 14:03:05 [SYSTEST.DBM]PARTSS1-PROGRAM.COB;3 (1)
* SYS$COMMON:[SYSTEST.DBM.CDDPLUS1]PARTS.DBM$SUBSCHEMAS.PARTSS5
*
* Subschema version number: 31-MAY-2004 14:06:24.23
*
SUBSCHEMA NAME PARTSS5 FOR CDDPLUS1]PARTS SCHEMA
REALM BUY
REALM MAKE
REALM MARKET
REALM PERSONNEL
* Within areas: BUY
* MAKE
* Owner of sets: CATEGORY_PART
* Member of sets: ALL_CATEGORIES
*
01 CATEGORY.
02 CLASS_CODE PIC X(2).
02 CLASS_DESC PIC X(20).
02 CLASS_STATUS PIC X.
* Within areas: MAKE
* Member of sets: PART_USES
* PART_USED_ON
*
01 COMPONENT.
02 COMP_SUB_PART PIC X(8).
02 COMP_OWNER_PART PIC X(8).
02 COMP_MEASURE PIC X.
02 COMP_QUANTITY PIC S9(3)V9(2) COMP-3.
* Within areas: PERSONNEL
* Owner of sets: MANAGES
* RESPONSIBLE_FOR
* Member of sets: ALL_EMPLOYEES
* CONSISTS_OF
*
01 EMPLOYEE.
02 EMP_ID PIC S9(5) COMP-3.
02 EMP_LAST_NAME PIC X(20).
02 EMP_FIRST_NAME PIC X(10).
02 EMP_PHONE PIC X(7).
02 EMP_LOC PIC X(5).
* Within areas: PERSONNEL
* Owner of sets: CONSISTS_OF
* Member of sets: MANAGES
*
01 WK_GROUP.
02 GROUP_NAME PIC X(20).
* Within areas: BUY
* MAKE
* Owner of sets: PART_USES
PARTSS1-PROGRAM 31-May-2004 14:08:50 Compaq COBOL V5.7-63 Page 6
Sub-schema Map 31-May-2004 14:03:05 [SYSTEST.DBM]PARTSS1-PROGRAM.COB;3 (1)
* PART_INFO
* PART_USED_ON
* Member of sets: ALL_PARTS
* ALL_PARTS_ACTIVE
* CATEGORY_PART
* RESPONSIBLE_FOR
*
01 PART.
02 PART_ID PIC X(8).
02 PART_DESC PIC X(50).
02 PART_STATUS PIC X.
02 PART_PRICE PIC S9(6)V9(3) COMP-3.
02 PART_COST PIC S9(6)V9(3) COMP-3.
02 PART_SUPPORT PIC X(2).
* Within areas: MARKET
* Member of sets: PART_INFO
*
01 PR_QUOTE.
02 QUOTE_ID PIC X(7).
02 QUOTE_DATE PIC X(6).
02 QUOTE_MIN_ORDER PIC S9(5) COMP-3.
02 QUOTE_UNIT_PRIC PIC S9(6)V9(3) COMP-3.
02 QUOTE_QTY_PRICE PIC S9(6)V9(3) COMP-3.
* Within areas: MARKET
* Member of sets: PART_INFO
* VENDOR_SUPPLY
*
01 SUPPLY.
02 SUP_RATING PIC X.
02 SUP_TYPE PIC X(4).
02 SUP_LAG_TIME PIC X(10).
* Within areas: MARKET
* Owner of sets: VENDOR_SUPPLY
* Member of sets: ALL_VENDORS
*
01 VENDOR.
02 VEND_ID PIC X(8).
02 VEND_NAME PIC X(40).
02 VEND_CONTACT PIC X(30).
02 VEND_ADDRESS PIC X(15) OCCURS 3 TIMES.
02 VEND_PHONE PIC X(10).
SET NAME ALL_CATEGORIES
OWNER SYSTEM
MEMBER CATEGORY
INSERTION AUTOMATIC
RETENTION FIXED
ORDER SYSTEM DEFAULT
SET NAME ALL_EMPLOYEES
OWNER SYSTEM
MEMBER EMPLOYEE
INSERTION AUTOMATIC
RETENTION FIXED
PARTSS1-PROGRAM 31-May-2004 14:08:50 Compaq COBOL V5.7-63 Page 7
Sub-schema Map 31-May-2004 14:03:05 [SYSTEST.DBM]PARTSS1-PROGRAM.COB;3 (1)
ORDER SYSTEM DEFAULT
SET NAME ALL_PARTS
OWNER SYSTEM
MEMBER PART
INSERTION AUTOMATIC
RETENTION FIXED
ORDER SYSTEM DEFAULT
SET NAME ALL_PARTS_ACTIVE
OWNER SYSTEM
MEMBER PART
INSERTION AUTOMATIC
RETENTION OPTIONAL
ORDER SYSTEM DEFAULT
SET NAME ALL_VENDORS
OWNER SYSTEM
MEMBER VENDOR
INSERTION AUTOMATIC
RETENTION FIXED
ORDER SORTED
SET NAME CATEGORY_PART
OWNER CATEGORY
MEMBER PART
INSERTION AUTOMATIC
RETENTION MANDATORY
ORDER SORTED
SET NAME CONSISTS_OF
OWNER WK_GROUP
MEMBER EMPLOYEE
INSERTION MANUAL
RETENTION OPTIONAL
ORDER SORTED
SET NAME MANAGES
OWNER EMPLOYEE
MEMBER WK_GROUP
INSERTION AUTOMATIC
RETENTION OPTIONAL
ORDER NEXT
SET NAME PART_USES
OWNER PART
MEMBER COMPONENT
INSERTION AUTOMATIC
RETENTION FIXED
ORDER NEXT
SET NAME PART_INFO
OWNER PART
MEMBER PR_QUOTE
INSERTION AUTOMATIC
RETENTION FIXED
ORDER NEXT
PARTSS1-PROGRAM 31-May-2004 14:08:50 Compaq COBOL V5.7-63 Page 8
Sub-schema Map 31-May-2004 14:03:05 [SYSTEST.DBM]PARTSS1-PROGRAM.COB;3 (1)
MEMBER SUPPLY
INSERTION AUTOMATIC
RETENTION FIXED
ORDER NEXT
SET NAME PART_USED_ON
OWNER PART
MEMBER COMPONENT
INSERTION AUTOMATIC
RETENTION FIXED
ORDER NEXT
SET NAME RESPONSIBLE_FOR
OWNER EMPLOYEE
MEMBER PART
INSERTION MANUAL
RETENTION OPTIONAL
ORDER NEXT
SET NAME VENDOR_SUPPLY
OWNER VENDOR
MEMBER SUPPLY
INSERTION AUTOMATIC
RETENTION FIXED
ORDER NEXT
PARTSS1-PROGRAM 31-May-2004 14:08:50 Compaq COBOL V5.7-63 Page 9
Compilation Summary 31-May-2004 14:03:05 [SYSTEST.DBM]PARTSS1-PROGRAM.COB;3 (1)
PROGRAM SECTIONS
Name Bytes Attributes
0 $CODE 6 PIC CON REL LCL SHR EXE RD NOWRT Align(2)
3 COB$NAMES_____2 24 PIC CON REL LCL SHR NOEXE RD NOWRT Align(2)
4 COB$NAMES_____4 16 PIC CON REL LCL SHR NOEXE RD NOWRT Align(2)
5 DBM$SSC_B 28 PIC CON REL GBL NOSHR NOEXE RD NOWRT Align(2)
7 DBM$UWA_B 533 PIC OVR REL GBL SHR NOEXE RD WRT Align(2)
DIAGNOSTICS
Informational: 1 (suppressed by command qualifier)
COMMAND QUALIFIERS
COBOL /LIST/MAP PARTSS1-PROGRAM.COB
/NOCOPY_LIST /NOMACHINE_CODE /NOCROSS_REFERENCE
/NOANSI_FORMAT /NOSEQUENCE_CHECK /MAP=ALPHABETICAL
/NOTRUNCATE /NOAUDIT /NOCONDITIONALS
/CHECK=(NOPERFORM,NOBOUNDS,NODUPLICATE_KEYS) /DEBUG=(NOSYMBOLS,TRACEBACK)
/WARNINGS=(NOSTANDARD,OTHER,NOINFORMATION) /NODEPENDENCY_DATA
/STANDARD=(NOSYNTAX,NOPDP11,NOV3,85,NOALPHA_AXP) /NOFIPS
/LIST /OBJECT /NODIAGNOSTICS /NOFLAGGER /NOANALYSIS_DATA
/INSTRUCTION_SET=DECIMAL_STRING /DESIGN=(NOPLACEHOLDERS,NOCOMMENTS)
/NATIONALITY=US
STATISTICS
Run Time: 2.16 seconds
Elapsed Time: 5.29 seconds
Page Faults: 14236
Dynamic Memory: 9695 pages
|
| Previous | Next | Contents | Index |