PI32846: CEE3204S OCCURS DUE TO ABEND0C4 IN IGZXFCA3 +X'3E' ON STORE OF REG13 OFF REG11. REG11 CONTAINS ZERO'S.

Obtain the fix for this APAR.

APAR status

• Closed as program error.

Error description

• ABEND0C4 occurs on return from a COBOL Version 5 programs
  dynamic call to a non Version 5 program.  The protection
  exception occurs in IGZXFCA3 when it needs to do a call to LE
  storage management for a stack extension. The LE options set
  may also force a call to LE storage management.
  
   When Reg14 is altered due to the call to LE within IGZXFCA3,
  this leads to a invalid return back to IGZXFCA3 instead of back
  to Version 5 application code.
  

Local fix

• Use STORAGE(,,NONE), possibly increase size specified for STACK
  or use RPTSTG(OFF) if RPTSTG(ON) is specified.
  

Problem summary

• ****************************************************************
  * USERS AFFECTED: Enterprise COBOL V5 users with programs that *
  *                 do dynamic calls to COBOL V4 (and prior      *
  *                 releases) programs using both CALL literal   *
  *                 and CALL identifier statements and run with  *
  *                 the STORAGE option set to other than         *
  *                 STORAGE(NONE,NONE,NONE).                     *
  *                                                              *
  ****************************************************************
  * PROBLEM DESCRIPTION: ABEND 0C4 at runtime if the LE STORAGE  *
  *                      option is used.                         *
  *                                                              *
  ****************************************************************
  * RECOMMENDATION:                                              *
  ****************************************************************
  PROBLEM SUMMARY: The COBOL runtime was trying to do an
  optimization of the dynamic CALLs, but got into a problem with
  an internal program control block if the program is called by
  both CALL by literal and CALL by id.
  An ABEND0C4 occurs in IGZXFCA2 +B2 due to an invalid use of a
  base register. As a result, an invalid address was picked up for
  a routine causing a wild branch.
  

Problem conclusion

• Apply provided service.
  

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

• IGZXLPKA
  

Fix information

• Fixed component name

  LE ENT COBOL LI

• Fixed component ID

  568819812

Applicable component levels

• R780 PSY UI25310

     UP15/02/25 P F502

• R790 PSY UI25311

     UP15/02/25 P F502

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.