IBM Support

PM03991: Compile error processing basicrecord of dynamic array.

Subscribe

You can track all active APARs for this component.

 

APAR status

  • Closed as program error.

Error description

  • A cobol compile error  results when manipulating a basicrecord c
    ontaining a dynamic array.
    
    The error is reproduced with a simpler testcase, as below.
    
    package tester;
    
    //Put EGL Source File Contents Here
    
    record incident type BasicRecord
        REF_NO int;
        QUERY query[]{MaxLen = 50};
    end
    
    record query type BasicRecord
        SIRA_NO int;
        SQL_TEXT string;
        SQL_TIP char(1);
    end
    
    record statement type sqlRecord{}
        SIRA_NO int;
        SQL_TEXT string;
        SQL_TIP char(1);
    end
    
    program MEHMET type basicProgram{}
    
        function main()
            Incident incident;
            Statements statement[]{maxSize = 500};
            i int = 1;
            Incident.QUERY[i].SQL_TEXT = '***'; // ok
            Incident.QUERY[sysLib.size(Incident.QUERY)].SQL_TEXT = '
    ***';   //err
    
        end
    

Local fix

Problem summary

  • The logic was using the SizeOfExpression's IR directly,
    instead of the expression that it was pointing to. This
    caused the default linkage section template for the record
    to be used, which wasn't generated.
    

Problem conclusion

  • Software updated.
    

Temporary fix

Comments

APAR Information

  • APAR number

    PM03991

  • Reported component name

    RATL COBOL RT Z

  • Reported component ID

    5655R2900

  • Reported release

    601

  • Status

    CLOSED PER

  • PE

    NoPE

  • HIPER

    NoHIPER

  • Special Attention

    NoSpecatt

  • Submitted date

    2009-12-21

  • Closed date

    2010-04-14

  • Last modified date

    2010-04-14

  • 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 COBOL RT Z

  • Fixed component ID

    5655R2900

Applicable component levels

  • R601 PSN

       UP

[{"Business Unit":{"code":"BU058","label":"IBM Infrastructure w\/TPS"},"Product":{"code":"SSN27B","label":"Rational COBOL Runtime for zSeries"},"Component":"","ARM Category":[],"Platform":[{"code":"PF025","label":"Platform Independent"}],"Version":"6.0.1","Edition":"","Line of Business":{"code":"LOB35","label":"Mainframe SW"}},{"Business Unit":{"code":"BU054","label":"Systems w\/TPS"},"Product":{"code":"SG19M","label":"APARs - z\/OS environment"},"Component":"","ARM Category":[],"Platform":[{"code":"PF025","label":"Platform Independent"}],"Version":"6.0.1","Edition":"","Line of Business":{"code":"","label":""}}]

Document Information

Modified date:
14 April 2010