IBM Support

PM31736: User's sql statement incorrectly formatted in generated Cobol

Subscribe

You can track all active APARs for this component.

 

APAR status

  • Closed as program error.

Error description

  • In the the egl source file the following sql statement is coded:
    
           select SUBSTR('       ', 1, 7 - LENGTH( TRIM(LEADING
            '0' FROM SUBSTR(DIGITS( COL1 ), 1, 5)) CONCAT
    
             ',' CONCAT
            SUBSTR(DIGITS( COL1 ), 6, 2))) CONCAT TRIM(LEADING '0'
    
            FROM SUBSTR(DIGITS( COL1 ), 1, 5)) CONCAT ',' concat
            SUBSTR(DIGITS( COL1), 6, 2)
            from DBANERJE.T89385 T1
    
    the generated cobol is not formatted correctly. In the returned
    host variable an extra
    blank is introduced.
    

Local fix

Problem summary

  • ****************************************************************
    * USERS AFFECTED:                                              *
    ****************************************************************
    * PROBLEM DESCRIPTION:                                         *
    ****************************************************************
    * RECOMMENDATION:                                              *
    ****************************************************************
    The SQL I/O analyzer was adding a space after a comma in
    parts of the SQL statement, to split up long SQL statements
    in order to fit in a COBOL line. It wasn't taking into
    account if the comma was located inside of a quoted value,
    which erroneously caused the extra space to be added. The
    solution was to ensure this extra space addition, only be
    done outside of quoted strings.
    

Problem conclusion

  • Software updated. Fixtest available.
    

Temporary fix

Comments

APAR Information

  • APAR number

    PM31736

  • Reported component name

    RBD EGL FOR COB

  • Reported component ID

    5724S5001

  • Reported release

    751

  • Status

    CLOSED PER

  • PE

    NoPE

  • HIPER

    NoHIPER

  • Special Attention

    NoSpecatt

  • Submitted date

    2011-02-01

  • Closed date

    2011-05-06

  • Last modified date

    2011-05-06

  • 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

    RBD EGL FOR COB

  • Fixed component ID

    5724S5001

Applicable component levels

  • R751 PSN

       UP

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

Document Information

Modified date:
06 May 2011