PH59281: A dynamic call with the ON EXCEPTION phrase to a subroutine compiled with EXPORTALL fails abendS0C4 in IGZQPRS for AMODE64

Obtain the fix for this APAR.

APAR status

• Closed as program error.

Error description

• A dynamic call with the ON EXCEPTION phrase to a subroutine
  compiled with EXPORTALL will fail 0C4 in IGZQPRS during
  initialization of the subprogram.
  

Local fix

• Compile the subprogram with NOEXPORTALL or omit the ON EXCEPTION
  phrase.
  

Problem summary

• ****************************************************************
  * USERS AFFECTED: Users of Enterprise COBOL 6.3 and later      *
  *                 releases calling other AMODE 64              *
  *                 COBOL programs using CALL ON EXCEPTION.      *
  ****************************************************************
  * PROBLEM DESCRIPTION: A callee AMODE 64 COBOL program         *
  *                      abends with S0C4 at entry IGZQPRS       *
  *                      (Load module CELQV004).                 *
  *                                                              *
  *                      Traceback in CEEDUMP is as follows:     *
  *                      ...                                     *
  *                      IGZQPRS E+x'142' (Exception occurs      *
  *                      here)                                   *
  *                      [COBOL] E+x'72'                         *
  *                      ...                                     *
  *                      CELQINIT E+x'1D3E'                      *
  ****************************************************************
  * RECOMMENDATION: Install the provided PTF.                    *
  ****************************************************************
  When an AMODE 64 COBOL program calls another AMODE 64 COBOL
  program compiled with EXPORTALL using CALL ON EXCEPTION,
  the callee program abends on its entry. When a dump is taken,
  its trackback shows an abend at entry IGZQPRS in module CELQV004
  .
  
  COB0603T/K COB0604T/K
  

Problem conclusion

• COBOL Runtime did not correctly handle a callout through
  CALL ON EXCEPTION. COBOL Runtime has been corrected.
  

Temporary fix

Comments

APAR Information

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

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

Modules/Macros

• CELQSG04 CELQV004 IGZQAPI  IGZQCA64 IGZQCDA  IGZQINPL IGZQJNI2
  

Fix information

• Fixed component name

  LE ENT COBOL LI

• Fixed component ID

  568819812

Applicable component levels

• R7C0 PSY UI96137

     UP24/03/28 P F403

• R7D0 PSY UI96139

     UP24/03/28 P F403

• R7E0 PSY UI96140

     UP24/03/28 P F403

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.