# Compaq COBOL
DBMS Database Programming Manual

Previous | Contents | Index

## 7.3.2 Listings on VAX

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