PH61233: Process termination may fail with a U4036-6 due to an 0C4 freeing process level control blocks for AMODE64

Obtain the fix for this APAR.

APAR status

• Closed as program error.

Error description

• In AMODE3164 mode with multiple languages having been active,
  COBOL 64-bit process termination may fail U4036-6 (ESPIE exit
  routine for AMODE 24 or 31 applications received control for a
  program check that occurred while the addressing mode was
  64-bit) due to an underlying abend0c4 because the 64-bit process
  control block has already been freed as part of enclave
  termination.
  

Local fix

Problem summary

• ****************************************************************
  * USERS AFFECTED: Users of Enterprise COBOL 6.3 and later      *
  *                 releases using AMODE 64 COBOL programs       *
  *                 in interlanguage communication (ILC)         *
  *                 applications.                                *
  ****************************************************************
  * PROBLEM DESCRIPTION: AMODE 64 COBOL process termination      *
  *                      might fail during 'freestg'             *
  *                      (load module CELQV004) and consequently *
  *                      abend with U4036.                       *
  *                                                              *
  *                      When a DUMP is taken, the traceback     *
  *                      shows:                                  *
  *                      ...                                     *
  *                      CELQLIB  qtrpr                          *
  *                      CELQV004 CELQEVTH                       *
  *                      CELQV004 freestg  E+128                 *
  *                      CELQLIB  CELQVFQT                       *
  *                      ...                                     *
  ****************************************************************
  * RECOMMENDATION: Install the provided PTF.                    *
  ****************************************************************
  During the COBOL process termination (Event 21),  COBOL Runtime
  inadvertently freed internal COBOL process control blocks
  which was already freed as part of enclave termination
  (Event 19) in interlanguage communication (ILC) applications.
  This led to U4036 abend.
  
  COB0603T/K COB0604T/K
  

Problem conclusion

• COBOL Runtime has been corrected to maintain the lifetime of
  the internal COBOL process control blocks accordingly.
  

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 UI97354

     UP24/06/27 P F406

• R7D0 PSY UI97355

     UP24/06/27 P F406

• R7E0 PSY UI97362

     UP24/06/27 P F406

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.