PH54857: S0C4 MAY OCCUR ON CLOSE OF QSAM FILE AFTER B37 ABEND ISSUED ON WRITE FOR AMOD64

Obtain the fix for this APAR.

APAR status

• Closed as program error.

Error description

• A COBOL 6.x program receives a B37 abend on a WRITE statement,
  writing past the end of volume.  After control returns to the
  COBOL program, which issues a CLOSE statement of the file, a
  s0c4 exception may occur in s0c4 in IGZXQCLS x'A4E'.
  

Local fix

• N/A
  

Problem summary

• ****************************************************************
  * USERS AFFECTED: Users of Enterprise COBOL 6.3 and later      *
  *                 releases running AMODE64 programs which      *
  *                 use QSAM files and get an out of space       *
  *                 abend (e.g., B37 or D37).                    *
  ****************************************************************
  * PROBLEM DESCRIPTION: When closing a QSAM file when the Data  *
  *                      Management buffers are full, the out    *
  *                      of space abend may result in a          *
  *                      subsequent 0C4 abend in IGZXQCLS        *
  *                      within the COBOL Runtime while          *
  *                      executing the CLOSE statement in the    *
  *                      COBOL application.                      *
  ****************************************************************
  * RECOMMENDATION: Install the provided PTF.                    *
  ****************************************************************
  When the Data Management routines issues the B37 or D37 out of
  space abend for a QSAM file that is full, the DCB was
  closed by Data Management and an abend resulted when COBOL
  tried to update a field in the DCB within the COBOL Runtime.
  This would result in an  ABEND0C4 in IGZXQCLS within the
  COBOL Runtime.
  
  COB0603T/K COB0604T/K
  

Problem conclusion

• The COBOL Runtime close processing logic was corrected to
  bypass the update to the DCB if the file is closed by
  Data Management.
  

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:

  UI92337 UI92338

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

• R7C0 PSY UI92337

     UP23/06/28 P F306

• R7D0 PSY UI92338

     UP23/06/28 P F306

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.