PH57918: WHEN CEEPIPI ADD_ENTRY IS USED TO ADD A COBOL PROGRAM USING AN ENTRY POINT OBTAINED BY ASM LOAD, IGZ0099C MAY BE EMITTED

Obtain the fix for this APAR.

APAR status

• Closed as program error.

Error description

• Normally, a basic program overlay can result in the error
  message:
  
  IGZ0099C Internal error CLLE-GPCB was detected in module
  IGZCEV19.
  which then requires the programmer to fix the program code.
  
  However, when CEEPIPI ADD_ENTRY is used to add a COBOL program,
  using an entry point previously obtained by an assembler ASM
  LOAD, an unexpected IGZ0099C error message may be emitted.  This
  APAR corrects that specific problem.
  

Local fix

• Do not use ASM LOAD to obtain the COBOL program entry point for
  CEEPIPI ADD_ENTRY.  Instead, load the COBOL program using
  CEEPIPI ADD_ENTRY with a program name.
  

Problem summary

• ****************************************************************
  * USERS AFFECTED: Users of Enterprise COBOL 5 and later        *
  *                 releases running programs which use          *
  *                 ASM LOAD and CEEPIPI interface.              *
  ****************************************************************
  * PROBLEM DESCRIPTION: The following IGZ0099C message          *
  *                      may unexpectedly be emitted             *
  *                      during an application termination.      *
  *                                                              *
  *                      IGZ0099C Internal error CLLE-GPCB was   *
  *                      detected in module IGZCEV19.            *
  *                                                              *
  *                      This problem does not occur when        *
  *                      the same COBOL programs are compiled    *
  *                      with COBOL 4.2 or prior releases.       *
  *                                                              *
  *                      When a dump is taken, the following     *
  *                      call trace is found:                    *
  *                                                              *
  *                      CEEPIPI  E+853C                         *
  *                      CEEZDSEX E+41E                          *
  *                      IGZCEV19 E+5C4                          *
  *                      IGZXCMSG E+10D0                         *
  *                      ...                                     *
  *                                                              *
  *                      CEEZDSEX originates a call to IGZCEV19  *
  *                      which triggers the IGZ0099C at IGZXCMSG *
  ****************************************************************
  * RECOMMENDATION: Install the provided PTF.                    *
  ****************************************************************
  The following scenario may result in the IGZ0099C message
  during an environment termination at 6).
  
  1. A COBOL program is loaded and its entry point(EP) address
  is obtained by ASM LOAD
  2. A new run-time environment is created (CEEPIPI init_sub)
  3. A new CEEPIPI entry is added to the PreInit table
  using the EP obtained by the ASM LOAD (CEEPIPI add_entry)
  4. The COBOL program are called (CEEPIPI call_sub)
  5. The COBOL entry is deleted (CEEPIPI delete_entry)
  6. The run-time environment is terminated (CEEPIPI term)
  
  COB0501T/K COB0502T/K COB0601T/K COB0602T/K COB0603T/K
  COB0604T/K
  

Problem conclusion

• The COBOL Runtime logic has been fixed.
  
  During CEEPIPI delete_entry, COBOL Runtime nulls out addresses
  pointing to writable static area (WSA) which is to be freed.
  

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:

  UI94484 UI94486 UI94487

Modules/Macros

• IGZCEV4  IGZCJNI2 IGZLLIBV IGZXAPI  IGZXCA31 IGZXCDA  IGZXD24
  IGZXDMR  IGZXJNI2 IGZXLPIO IGZXLPKA IGZXLPKB IGZXLPKC IGZXLPKD
  IGZXLPKE IGZXLPKF IGZXLPKG IGZXPK2
  

Fix information

• Fixed component name

  LE ENT COBOL LI

• Fixed component ID

  568819812

Applicable component levels

• R7C0 PSY UI94484

     UP23/11/22 P F311

• R7D0 PSY UI94486

     UP23/11/22 P F311

• R7E0 PSY UI94487

     UP23/11/22 P F311

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.