IBM Support

PI95025: In a mixed C/C++, pre-V5+ and v5+ COBOL environment with COBOL CANCELs, v5+ COBOL working-storage may be unintialized

A fix is available

Subscribe

You can track all active APARs for this component.

 

APAR status

  • Closed as program error.

Error description

  • If v5+ code is called from both pre-v5 and v5+ code, and the v5+
    module is CANCELed and then called again, the legacy and v5+
    run-time's control blocks may get out of sync, leading to a
    failure to initialize working-storage for the v5+ module.
    
    This occurs specifically if the v5+ module also requires the
    C/C++ run-time, which may be included due to use of the XML
    PARSE statement using the XMLPARSE(XMLSS) option.
    
    An IMS environment with CANCEL_PGM=Y may make this situation
    much more likely to occur.
    

Local fix

Problem summary

  • ****************************************************************
    * USERS AFFECTED: Enterprise COBOL V5.1 and above users        *
    *                 compiling and running programs that perform  *
    *                 dynamic CALL and CANCEL in a mixed C/C++     *
    *                 and pre-V5+ COBOL rununit.                   *
    *                                                              *
    ****************************************************************
    * PROBLEM DESCRIPTION: Runtime ABEND0C4. When an Enterprise    *
    *                      COBOL V5+ program is being dynamically  *
    *                      called and canceled by both COBOL V5+   *
    *                      and pre-V5+ programs, the WORKING-      *
    *                      STORAGE may not be initialized          *
    *                      properly, which may lead to invalid     *
    *                      storage access that can result in an    *
    *                      0C4 ABEND.                              *
    *                                                              *
    ****************************************************************
    * RECOMMENDATION: Apply the provided PTF.                      *
    *                                                              *
    ****************************************************************
    In a mixed C/C++, pre-V5+ and V5+ COBOL rununit, the COBOL
    dynamic call handler failed to correctly update the internal
    control blocks to reflect the state of the called program.
    

Problem conclusion

  • The COBOL dynamic call handler is corrected to update the
    internal control blocks properly.
    

Temporary fix

Comments

APAR Information

  • APAR number

    PI95025

  • Reported component name

    LE ENT COBOL LI

  • Reported component ID

    568819812

  • Reported release

    7A0

  • Status

    CLOSED PER

  • PE

    NoPE

  • HIPER

    NoHIPER

  • Special Attention

    NoSpecatt / Xsystem

  • Submitted date

    2018-03-12

  • Closed date

    2018-03-14

  • Last modified date

    2018-04-03

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

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

    PI95114

Modules/Macros

  • IGZXLPKA
    

Fix information

  • Fixed component name

    LE ENT COBOL LI

  • Fixed component ID

    568819812

Applicable component levels

  • R7A0 PSY UI54468

       UP18/03/29 P F803

  • R790 PSY UI54469

       UP18/03/28 P F803

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":"BU054","label":"Systems w\/TPS"},"Product":{"code":"SSCVR7X","label":"Runtime"},"Platform":[{"code":"PF025","label":"Platform Independent"}],"Line of Business":{"code":"","label":""}}]

Document Information

Modified date:
14 December 2020