PH51891: S0C4 MAY OCCUR ON CLOSE OF QSAM FILE AFTER B37 ABEND ISSUED ON WRITE

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

Problem summary

• ****************************************************************
  * USERS AFFECTED: Users of Enterprise COBOL 5 and later        *
  *                 releases running 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.
  
  COB0501T/K COB0502T/K COB0601T/K COB0602T/K 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:

  UI91010 UI91011

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 UP

     C

• R7D0 PSY UP

     C