PH68282: U4088 RC3EC RUNNING OUT OF HEAP STORAGE FOR AMODE64

Obtain the fix for this APAR.

APAR status

• Closed as program error.

Error description

• Heap storage is filled with hundreds of thousands of 30 byte
  segments that contain eyecatchers including DLLHADLL and
  IGZXCA31.  The application consists of an AMODE(31) COBOL
  program dynamically calling AMODE(64) COBOL program.
  

Local fix

Problem summary

• ****************************************************************
  * USERS AFFECTED: Users of Enterprise COBOL 6.4 and later      *
  *                 releases running programs which implement    *
  *                 dynamic calls between AMODE 31 and           *
  *                 AMODE 64 COBOL programs or vice versa        *
  *                 (ie. AMODE 64Calling AMODE 31 COBOL          *
  *                 programs).                                   *
  ****************************************************************
  * PROBLEM DESCRIPTION: When transferring control from an       *
  *                      AMODE64 (or 31) program to a non        *
  *                      same AMODE program, there is the        *
  *                      possibility of a memory leak resulting  *
  *                      in an out of storage condition. This    *
  *                      problem may demonstrate itself as a     *
  *                      SYSTEM completion code 878 (not         *
  *                      enough virtual storage) or other abend  *
  *                      such as U4088 (storage condition).      *
  ****************************************************************
  * RECOMMENDATION: Install the provided PTF.                    *
  ****************************************************************
  When calling between different COBOL AMODE programs, a
  select number of COBOL statements are shared. An example is
  the DISPLAY statement. To coordinate and synchronize the
  output a call back to the AMODE 31 environment is needed to
  share the output device. The mechanism to make this call could
  cause an out of storage condition.
  
  COB0604T/K COB0605T/K
  

Problem conclusion

• The COBOL Runtime logic has been fixed. We now track the shared
  functions and avoid repetitive invocations of nonessential
  services to optimize the call strategy.
  

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:

  UO05476 UO05478 UO05479

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

• R7D0 PSY UO05476

     UP25/11/01 P F510

• R7E0 PSY UO05478

     UP25/11/01 P F510

• R7F0 PSY UO05479

     UP25/11/01 P F510

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.