PI75892: ABENDS138/ABENDS05C when attempting to write a message from an I/O error exit and the LE message file is not yet allocated

Obtain the fix for this APAR.

APAR status

• Closed as program error.

Error description

• When the COBOL run-time tries to issue a message from an I/O
  error exit, and the LE MSGFILE() is not yet allocated, the
  dynamic allocation for the MSGFILE() fails because the TIOT
  (task I/O table) is already enqueued by the failing I/O
  operation, leading to a abend138 or abend05C.
  
  With MSGFILE() already allocated before the I/O error, the
  informational message IGZ0034W is issued prior to the
  terminating CEE3250C (for example):
  
      IGZ0034W The file with system-name {ddname} could not be
          extended.  Secondary extents were not specified or were
          not available.  The last WRITE was at offset {offset}
          program {program-name}.
      CEE3250C The system or user abend SD37 R=00000004 was
          issued. From  compile unit {program-name} at entry point
          {entry-point} at  compile unit offset {offset} at entry
          offset {offset}  at address {address}.
  
  With MSGFILE not already allocated, attempting the IGZ0034W
  fails S138 RSN024C0406 or S05C RSN703.
  
  This is the COBOL v5+ run-time equivalent of legacy run-time
  PQ56167.
  

Local fix

• Provide a DD for the LE MSGFILE(), typically SYSOUT.
  

Problem summary

• ****************************************************************
  * USERS AFFECTED: Enterprise COBOL V5+ users running programs  *
  *                 that use QSAM I/O and get an out-of-space    *
  *                 error condition.                             *
  *                                                              *
  ****************************************************************
  * PROBLEM DESCRIPTION: Runtime ABEND: When the QSAM File I/O   *
  *                      ended with an out-of-space error        *
  *                      condition (ABEND D37), if the MSGFILE   *
  *                      DD is not already allocated, the        *
  *                      IGZ0034W message is missing and LE      *
  *                      ABEND while trying to dynamically       *
  *                      allocate the MSGFILE.                   *
  *                                                              *
  ****************************************************************
  * RECOMMENDATION: Apply the provided PTF.                      *
  *                                                              *
  ****************************************************************
  Check that MSGFILE DD is allocated prior to calling the LE
  message service to issue the IGZ0034 message.
  

Problem conclusion

• The error handling logic in QSAM I/O has been corrected to
  check MSGFILE DD is allocated prior to issue of IGZ0034 message.
  

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:

Modules/Macros

• IGZXLPKA
  

Fix information

• Fixed component name

  LE ENT COBOL LI

• Fixed component ID

  568819812

Applicable component levels

• R7A0 PSY UI45690

     UP17/03/31 P F703

• R790 PSY UI45691

     UP17/03/31 P F703

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.