PK72053: COBOL RUNTIME ABEND4038 OCCURS IN CEEVFRST USING DEBUG TOOL WITH AUTOMONITOR ON.

Obtain the fix for this APAR.

APAR status

• Closed as program error.

Error description

• When debugging a COBOL program using the Debug Tool with
  AUTOMONITOR ON, an abend4038 may occur due to an invalid address
  being passed to the Free storage routine.
  Message CEE0810S is issued to indicate a free storage problem.
    CEE0810S The storage address in a free storage (CEEFRST)
    request was not recognized, or heap storage (CEECZST) control
    information was damaged.
  Traceback entries in a CEEDUMP indicate the following series of
  modules leading up to the error: IGZIPRD , IGZISYC , IGZISTO.
  

Local fix

Problem summary

• ****************************************************************
  * USERS AFFECTED: COBOL users running programs with the Debug  *
  *                 Tool with AUTOMONITOR ON.                    *
  *                                                              *
  ****************************************************************
  * PROBLEM DESCRIPTION: While running a COBOL program with the  *
  *                      Debug Tool and AUTOMONITOR ON, an       *
  *                      abend 4038 is encountered due to a      *
  *                      free storage error. Message CEE0810S    *
  *                      is issued and the application is        *
  *                      terminated.                             *
  *                                                              *
  ****************************************************************
  * RECOMMENDATION:                                              *
  ****************************************************************
  Incorrect code was generated in a COBOL runtime routine causing
  an overlay of a storage pointer field.  The overlaid address
  caused an error when it was passed to CEEVFRST in an attempt to
  free the storage.
  

Problem conclusion

• Modify IGZIPRD to avoid the storage overlay.
  

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:

  UK40020

Modules/Macros

•    IGZIPRD  IGZ90INP IGZ90LNK IGZ90LXB IGZ90SYA
  

Fix information

• Fixed component name

  LE COBOL LIB

• Fixed component ID

  568819802

Applicable component levels

• R750 PSY UK40020

     UP08/09/23 P F809

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.