IBM Support

PM90417: CMPL DBCS UNDERSCORE AS FIRST CHARACTER OF DATA NAME IS NOT FLAGGED IN ERROR BY ENTERPRISE COBOL 4.2 COMPILER.

A fix is available

Subscribe

You can track all active APARs for this component.

 

APAR status

  • Closed as program error.

Error description

  • The Enterprise COBOL for z/OS V4.2 Language Reference
    (SC23-8528-01) says "The underscore cannot appear as
    the first character" of a user-defined word.  This is on
    page 10 under "User-defined words with DBCS characters"
    in the "Contained characters" paragraphs.
    The DBCS dataname in question would begin with a shift-out
    (X'0E') character followed by X'426D' for the DBCS underscore.
    The COBOL 4.2 compiler does not flag the use of a DBCS
    underscore as 1st character with any error message.
    *
    NOTE:
    This message is produced for an EBCDIC user-defined word
    that begins with an underscore:
    IGYDS0197-E "_" was a name that started with an underscore.
                The name was processed as written.
    

Local fix

  • Modify DBCS datanames so that none begin with the underscore.
    

Problem summary

  • ****************************************************************
    * USERS AFFECTED: Users of Enterprise COBOL V4.2 who use       *
    *                 DBCS user words.                             *
    *                                                              *
    ****************************************************************
    * PROBLEM DESCRIPTION: User-defined DBCS words that begin with *
    *                      a DBCS underscore (_) are not allowed   *
    *                      but the Enterprise COBOL compiler does  *
    *                      not diagnose the error.                 *
    *                                                              *
    ****************************************************************
    * RECOMMENDATION: Apply the provided PTF.                      *
    *                                                              *
    ****************************************************************
    The Enterprise COBOL compiler does not diagnose user-defined
    DBCS words that begin with the underscore character.
    

Problem conclusion

  • The Enterprise COBOL compiler is changed to correctly diagnose,
    as an error, User-defined DBCS words that begin with a DBCS
    underscore (_) character.
    

Temporary fix

Comments

APAR Information

  • APAR number

    PM90417

  • Reported component name

    ENT COBOL FOR Z

  • Reported component ID

    5655S7100

  • Reported release

    420

  • Status

    CLOSED PER

  • PE

    NoPE

  • HIPER

    NoHIPER

  • Special Attention

    NoSpecatt

  • Submitted date

    2013-06-04

  • Closed date

    2013-07-11

  • Last modified date

    2013-08-02

  • APAR is sysrouted FROM one or more of the following:

  • APAR is sysrouted TO one or more of the following:

    UK95751

Modules/Macros

  • IGYSITEM
    

Fix information

  • Fixed component name

    ENT COBOL FOR Z

  • Fixed component ID

    5655S7100

Applicable component levels

  • R420 PSY UK95751

       UP13/07/13 P F307

Fix is available

  • Select the PTF appropriate for your component level. You will be required to sign in. Distribution on physical media is not available in all countries.

[{"Business Unit":{"code":"BU058","label":"IBM Infrastructure w\/TPS"},"Product":{"code":"SS6SG3","label":"Enterprise COBOL for z\/OS"},"Component":"","ARM Category":[],"Platform":[{"code":"PF025","label":"Platform Independent"}],"Version":"4.2","Edition":"","Line of Business":{"code":"LOB17","label":"Mainframe TPS"}}]

Document Information

Modified date:
02 August 2013