PI94333: Due to bad R15 values in run-time library save areas, CEEDUMP format errors and/or DFHAP1301 corruption of control blocks

Obtain the fix for this APAR.

APAR status

• Closed as program error.

Error description

• For performance reasons, the run-time library's dynamic and
  function-pointer call support routines use somewhat non-standard
  function prologs. In a couple of instances, an incorrect value
  for R15 is being stored in the support routine's stack frame
  (save area). Although this has has no noticeable effect during
  normal execution, CEEDUMP processing does depend on R15 being
  correct, and consequences are:
  
      DFHAP1301 LANGUAGE ENVIRONMENT HAS DETECTED A CORRUPTION OF
          ITS CONTROL BLOCKS.
  
  and/or formatting errors like the following in the CEEDUMP
  traceback (editted to fit):
  
      Traceback:
        DSA   Entry       E  Offset  Statement   Status
  
         7    SPR06460    +0000076A  1507        Call
         8                        Call         ...................
                          +000001A6              Call
                                                 Call
         9    SPR13110    +00002CC0              Call
  

Local fix

Problem summary

• ****************************************************************
  * USERS AFFECTED: Users of Enterprise COBOL V5.1 and later     *
  *                 releases compiling and running programs      *
  *                 that use PROCEDURE-POINTER or                *
  *                 FUNCTION-POINTER, and they ABEND and         *
  *                 produce CEEDUMP.                             *
  *                                                              *
  ****************************************************************
  * PROBLEM DESCRIPTION: Runtime message DFHAP1301 under CICS,   *
  *                      or a truncated CEEDUMP under batch.     *
  *                                                              *
  ****************************************************************
  * RECOMMENDATION: Apply the provided PTF.                      *
  *                                                              *
  ****************************************************************
  An invalid storage access in the COBOL runtime while producing
  a CEEDUMP.
  

Problem conclusion

• The secondary ABEND in the COBOL runtime when producing CEEDUMP
  due to PROCEDURE-POINTER or FUNCTION-POINTER processing 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:

  PI95109

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.