PI85700: The COBOL run-time fails to free SYSIN buffers at enclave termination

Obtain the fix for this APAR.

APAR status

• Closed as program error.

Error description

• For COBOL programs using ACCEPT ... FROM SYSIN, the run-time
  fails to free the buffers allocated for SYSIN when the enclave
  terminates.
  
  This is generally harmless, but if for some reason enclaves are
  repeatedly created and destroyed, the buffer leak can cause an
  out of memory problem below the line.
  

Local fix

Problem summary

• ****************************************************************
  * USERS AFFECTED: Enterprise COBOL V5+ user with program that  *
  *                 ACCEPT from SYSIN, or DISPLAY upon           *
  *                 SYSPUNCH, and the LE Enclave that the COBOL  *
  *                 program is executed is terminated.           *
  *                                                              *
  ****************************************************************
  * PROBLEM DESCRIPTION: Memory leak/Short on storage ABEND:     *
  *                      The DFSMS buffer for the SYSIN or       *
  *                      SYSPUNCH were not released at the LE    *
  *                      Enclave termination processing.  If     *
  *                      such an COBOL program was repeatedly    *
  *                      call via a non LE ASM program, which    *
  *                      would cause LE Enclave to be            *
  *                      initialize and terminate for each       *
  *                      call, a memory leak would occur and     *
  *                      depends on the user program's memory    *
  *                      requirement, may cause a out of memory  *
  *                      condition.                              *
  *                                                              *
  ****************************************************************
  * RECOMMENDATION: Apply the provided PTF.                      *
  *                                                              *
  ****************************************************************
  At LE enclave termination, FREEPOOL is used to release storage
  allocated by DFSMS for ACCEPT from SYSIN, or DISPLAY upon
  SYSPUNCH.
  
  FIXCAT keyword:  COB0501T/K COB0502T/K COB0601T/K COB0602T/K
  

Problem conclusion

• LE enclave termination 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:

  PI86054 UI49627 UI49628

Modules/Macros

• IGZCEV4  IGZLLIBV IGZXAPI  IGZXCDA  IGZXDMR
  IGZXD24  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

• R7A0 PSY UI49627

     UP17/08/25 P F708

• R790 PSY UI49628

     UP17/08/25 P F708

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.