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 |