IBM Support

PI26944: INCREASED REGION REQUIRED USING SSRANGE AND TABLE ELEMENT SUBSCRIPTED USING ALL CONSTANT SUBSCRIPTS.

A fix is available

Subscribe

You can track all active APARs for this component.

 

APAR status

  • Closed as program error.

Error description

  • Code containing non ODO table element subscripted using all
    constant subscripts is compiled with SSRANGE. The compiler
    diagnoses out of range subscripts at compile time and is also
    generating code to do the checking at runtime. This leads to an
    increase in Region requirements during compile.
    

Local fix

  • Use NOSSRANGE.
    

Problem summary

  • ****************************************************************
    * USERS AFFECTED: Users of Enterprise COBOL release 5.1 using: *
    *                 1. The SSRANGE compiler option.              *
    *                 2. A SORT statement that refers to an SD     *
    *                    file that has a variable-length record    *
    *                    and has the same record area as an FD     *
    *                    file and the program is compiled with     *
    *                    the DATA(24) compiler option.             *
    *                                                              *
    ****************************************************************
    * PROBLEM DESCRIPTION: 1. When compiling with the SSRANGE      *
    *                         compiler option the compiler         *
    *                         diagnoses literal subscript that are *
    *                         out of range, but also generates     *
    *                         code to do the same check at run     *
    *                         time.                                *
    *                      2. When compiling using DATA(24)        *
    *                         option, a SORT statement that has a  *
    *                         variable-length record and has the   *
    *                         same record area as an FD, returns   *
    *                         a sorted record that has an extra    *
    *                         two characters at the beginning of   *
    *                         the record.                          *
    *                                                              *
    ****************************************************************
    * RECOMMENDATION: Apply the provided PTF.                      *
    *                                                              *
    ****************************************************************
    1. When a table reference has literal subscripts, the compiler
       should do the SSRANGE check at compile time only and should
       not generate any code to do the check at run time.
    2. When compiling a program with DATA(24) option, the compiler
       initialized incorrectly the base locator of the same record
       area of a variable-length SD file and an FD file.
    

Problem conclusion

  • 1. The compiler was modified to eliminate the generation of the
       SSRANGE run-time check code for literal subscripts of tables
       that are defined without OCCURS DEPENDING ON.
    2. The compiler was modified to initialize correctly the base
       locator of the same record area of the SD and the FD when
       compiling with DATA(24).
    

Temporary fix

Comments

APAR Information

  • APAR number

    PI26944

  • Reported component name

    ENT COBOL FOR Z

  • Reported component ID

    5655W3200

  • Reported release

    510

  • Status

    CLOSED PER

  • PE

    NoPE

  • HIPER

    NoHIPER

  • Special Attention

    NoSpecatt / Xsystem

  • Submitted date

    2014-10-02

  • Closed date

    2014-11-17

  • Last modified date

    2015-01-02

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

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

Modules/Macros

  •    IGYPSBSC IGYPSRVE IGYPTMGT
    

Fix information

  • Fixed component name

    ENT COBOL FOR Z

  • Fixed component ID

    5655W3200

Applicable component levels

  • R510 PSY UI23730

       UP14/12/13 P F412

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"},"Platform":[{"code":"PF025","label":"Platform Independent"}],"Line of Business":{"code":"LOB17","label":"Mainframe TPS"}}]

Document Information

Modified date:
30 April 2020