| Previous | Contents | Index |
This section shows two compiler listing examples on OpenVMS VAX.
PARTSS1 Program Map Listing (VAX)
The Compaq COBOL for OpenVMS VAX (formerly VAX COBOL or DIGITAL VAX COBOL) compiler produces listings that are different in some respects from those produced by Compaq COBOL for OpenVMS Alpha. Following are examples of VAX listings.
PARTSS1-PROGRAM in Example 7-5 includes the Compaq COBOL for OpenVMS VAX subschema map of the PARTSS1 subschema.
| Example 7-5 PARTSS1-PROGRAM Compiler Listing (VAX) |
|---|
PARTSS1-PROGRAM 31-May-2001 14:08:50 Compaq COBOL V5.7-63 Page 1
Source Listing 31-May-2001 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-2001 14:08:50 Compaq COBOL V5.7-63 Page 2
Data Names in Alphabetic Order 31-May-2001 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-2001 14:08:50 Compaq COBOL V5.7-63 Page 3
Procedure Names in Alphabetic Order 31-May-2001 14:03:05 [SYSTEST.DBM]PARTSS1-PROGRAM.COB;3 (1)
Line Name Location Type
2 PARTSS1-PROGRAM 0 00000000 Program
PARTSS1-PROGRAM 31-May-2001 14:08:50 Compaq COBOL V5.7-63 Page 4
References 31-May-2001 14:03:05 [SYSTEST.DBM]PARTSS1-PROGRAM.COB;3 (1)
DBM$_NOT_BOUND
PARTSS1-PROGRAM 31-May-2001 14:08:50 Compaq COBOL V5.7-63 Page 5
Sub-schema Map 31-May-2001 14:03:05 [SYSTEST.DBM]PARTSS1-PROGRAM.COB;3 (1)
* SYS$COMMON:[SYSTEST.DBM.CDDPLUS1]PARTS.DBM$SUBSCHEMAS.PARTSS5
*
* Subschema version number: 31-MAY-2001 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-2001 14:08:50 Compaq COBOL V5.7-63 Page 6
Sub-schema Map 31-May-2001 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-2001 14:08:50 Compaq COBOL V5.7-63 Page 7
Sub-schema Map 31-May-2001 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-2001 14:08:50 Compaq COBOL V5.7-63 Page 8
Sub-schema Map 31-May-2001 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-2001 14:08:50 Compaq COBOL V5.7-63 Page 9
Compilation Summary 31-May-2001 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
|
PARTSS3 Program Map Listing (VAX)
PARTSS3-PROGRAM in Example 7-6 includes the Compaq COBOL for OpenVMS VAX subschema map of the PARTSS3 subschema.
| Example 7-6 PARTSS3-PROGRAM Compiler Listing (VAX) |
|---|
PARTSS3-PROGRAM 31-May-2001 12:31:18 Compaq COBOL V5.7-63 Page 1
Source Listing 31-May-2001 12:25:37 [SYSTEST.DBM]PARTSS3-PROGRAM.COB;2 (1)
1 IDENTIFICATION DIVISION.
2 PROGRAM-ID. PARTSS3-PROGRAM.
3
4 DATA DIVISION.
5 SUB-SCHEMA SECTION.
6 DB PARTSS3 WITHIN PARTS.
7
8 PROCEDURE DIVISION.
9 END PROGRAM PARTSS3-PROGRAM.
PARTSS3-PROGRAM 31-May-2001 12:31:18 Compaq COBOL V5.7-63 Page 2
Data Names in Alphabetic Order 31-May-2001 12:25:37 [SYSTEST.DBM]PARTSS3-PROGRAM.COB;2 (1)
Line Level Name Location Size Bytes Usage Category Subs Attribute
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 01 PART 7 00000084 61 61 DISPLAY Group Glo
6 02 PART_DESC 7 0000008C 50 50 DISPLAY AN Glo
6 02 PART_ID 7 00000084 8 8 DISPLAY AN Glo
6 02 PART_STATUS 7 000000BE 1 1 DISPLAY AN Glo
6 02 PART_SUPPORT 7 000000BF 2 2 DISPLAY AN Glo
6 02 SUP_LAG_TIME 7 000000C9 10 10 DISPLAY AN Glo
6 02 SUP_RATING 7 000000C4 1 1 DISPLAY AN Glo
6 02 SUP_TYPE 7 000000C5 4 4 DISPLAY AN Glo
6 01 SUPPLY 7 000000C4 15 15 DISPLAY Group Glo
6 02 VEND_ADDRESS 7 00000122 15 15 DISPLAY AN 1 Glo
6 02 VEND_CONTACT 7 00000104 30 30 DISPLAY AN Glo
6 02 VEND_ID 7 000000D4 8 8 DISPLAY AN Glo
6 02 VEND_NAME 7 000000DC 40 40 DISPLAY AN Glo
6 02 VEND_PHONE 7 0000014F 10 10 DISPLAY N Glo
6 01 VENDOR 7 000000D4 133 133 DISPLAY Group Glo
PARTSS3-PROGRAM 31-May-2001 12:31:18 Compaq COBOL V5.7-63 Page 3
Procedure Names in Alphabetic Order 31-May-2001 12:25:37 [SYSTEST.DBM]PARTSS3-PROGRAM.COB;2 (1)
Line Name Location Type
2 PARTSS3-PROGRAM 0 00000000 Program
PARTSS3-PROGRAM 31-May-2001 12:31:18 Compaq COBOL V5.7-63 Page 4
External References 31-May-2001 12:25:37 [SYSTEST.DBM]PARTSS3-PROGRAM.COB;2 (1)
DBM$_NOT_BOUND
PARTSS3-PROGRAM 31-May-2001 12:31:18 Compaq COBOL V5.7-63 Page 5
Sub-schema Map 31-May-2001 12:25:37 [SYSTEST.DBM]PARTSS3-PROGRAM.COB;2 (1)
* SYS$COMMON:[SYSTEST.DBM.CDDPLUS1]PARTS.DBM$SUBSCHEMAS.PARTSS3
*
* Subschema version number: 31-MAY-2001 12:28:53.22
*
SUBSCHEMA NAME PARTSS3 FOR CDDPLUS1]PARTS SCHEMA
REALM MARKETS
* Within areas: MARKETS
* Owner of sets: PART_SUPPLY
*
01 PART.
02 PART_ID PIC X(8).
02 PART_DESC PIC X(50).
02 PART_STATUS PIC X.
02 PART_SUPPORT PIC X(2).
* Within areas: MARKETS
* Member of sets: PART_SUPPLY
* VENDOR_SUPPLY
*
01 SUPPLY.
02 SUP_RATING PIC X.
02 SUP_TYPE PIC X(4).
02 SUP_LAG_TIME PIC X(10).
* Within areas: MARKETS
* Owner of sets: VENDOR_SUPPLY
*
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 9(10).
SET NAME PART_SUPPLY
OWNER PART
MEMBER SUPPLY
INSERTION AUTOMATIC
RETENTION FIXED
ORDER NEXT
SET NAME VENDOR_SUPPLY
OWNER VENDOR
MEMBER SUPPLY
INSERTION AUTOMATIC
RETENTION FIXED
ORDER NEXT
PARTSS3-PROGRAM 31-May-2001 12:31:18 Compaq COBOL V5.7-63 Page 6
Compilation Summary 31-May-2001 12:25:37 [SYSTEST.DBM]PARTSS3-PROGRAM.COB;2 (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 345 PIC OVR REL GBL SHR NOEXE RD WRT Align(2)
DIAGNOSTICS
Informational: 1 (suppressed by command qualifier)
COMMAND QUALIFIERS
COBOL /LIST/MAP PARTSS3-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: 1.76 seconds
Elapsed Time: 4.23 seconds
Page Faults: 13713
Dynamic Memory: 8790 pages <>
|
| Previous | Next | Contents | Index |