IBM Support

PM67247: Move DBCS literal to textform DBCS field causes COBOL compile error

Subscribe

You can track all active APARs for this component.

 

APAR status

  • Closed as program error.

Error description

  • 3377  IGYPS0158-
    
     A nonnumeric or national literal containing
    double-byte characters was found which exceeded the maximum
    literal length or reached end of area 'B' before terminating.  A
    literal delimiter was placed at column 72 of line 3377.
    
    -
    
    Statement in error is:
    
    003377  DISPLAY '* 14: TPCTestFG.Form1.TXN_ID =
    '?@?@?@?@???@???@??
    -
    

Local fix

Problem summary

  • ****************************************************************
    * USERS AFFECTED:                                              *
    ****************************************************************
    * PROBLEM DESCRIPTION:                                         *
    ****************************************************************
    * RECOMMENDATION:                                              *
    ****************************************************************
    When statement trace was used and there was an assignment of
    a longer DBCS literal to a field, the  COBOL source used for
    the statement trace was getting a compiler error due to a
    missing shift in/out character.
    

Problem conclusion

  • The statement trace now moves all DBCS literals from the
    text being generated, but only for the tracing. The program
    will still work the same.
    

Temporary fix

Comments

APAR Information

  • APAR number

    PM67247

  • Reported component name

    RATL BUS DEV

  • Reported component ID

    5724S5000

  • Reported release

    751

  • Status

    CLOSED PER

  • PE

    NoPE

  • HIPER

    NoHIPER

  • Special Attention

    NoSpecatt

  • Submitted date

    2012-06-20

  • Closed date

    2012-10-08

  • Last modified date

    2012-10-08

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

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

Fix information

  • Fixed component name

    RATL BUS DEV

  • Fixed component ID

    5724S5000

Applicable component levels

  • R751 PSN

       UP

[{"Business Unit":{"code":"BU058","label":"IBM Infrastructure w\/TPS"},"Product":{"code":"SSMQ79","label":"Rational Business Developer"},"Platform":[{"code":"PF025","label":"Platform Independent"}],"Version":"7.5.1","Line of Business":{"code":"LOB35","label":"Mainframe SW"}}]

Document Information

Modified date:
06 January 2022