PI59277: SC03 ABEND WHEN USING COBOL V5

Obtain the fix for this APAR.

APAR status

• Closed as program error.

Error description

• For a VSAM file opened as I-O, an sc03 abend is received. The
  file does receive non-zero File Status codes on the OPEN, READ
  NEXT, and CLOSE - all of which are expected.
  

Local fix

• Open the file as Input.
  

Problem summary

• ****************************************************************
  * USERS AFFECTED: Enterprise COBOL V5+ users running progrmas  *
  *                 that have OPEN statements for indexed VSAM   *
  *                 files with alternate indexes, where the      *
  *                 OPEN actually failed.                        *
  *                                                              *
  ****************************************************************
  * PROBLEM DESCRIPTION: ABEND at program termination.  An SC03  *
  *                      ABEND is issued at program termination  *
  *                      when a COBOL program OPENs an indexed   *
  *                      VSAM file with alternate indexes in     *
  *                      I-O mode and the OPEN was unsuccessful  *
  *                      (user filestatus is greater than 10     *
  *                      and not 97).                            *
  *                                                              *
  ****************************************************************
  * RECOMMENDATION: Apply the provided PTF.                      *
  ****************************************************************
  The error handling logic in the OPEN routine did not close all
  alternate indexes ACBs when the OPEN was unsuccessful. During
  program termination, DFSMS detected some ACBs were still in
  OPEN state and issued an ABEND SC03.
  

Problem conclusion

• The error handling logic has been corrected to close all the
  ACBs when an unsuccessful OPEN occurs, thus preventing the SC03
  abend at termination.  This APAR also fixes an S0C4 abend that
  occurs when trying to OPEN an indexed file with alternate
  indexes that failed to open successfully.
  

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 UI37309

     UP16/04/29 P F604

• R780 PSY UI37310

     UP16/04/29 P F604

• R790 PSY UI37311

     UP16/04/29 P F604

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.