PH57860: ACCESSING VSAM FILES WITH PRIME KEY OF REFERENCE MAY RESULT IN 0C4 ABEND FOR AMODE64

Obtain the fix for this APAR.

APAR status

• Closed as program error.

Error description

• Accessing VSAM files with prime key of reference may result in
  0C4 abend for AMODE64
  

Local fix

Problem summary

• ****************************************************************
  * USERS AFFECTED: Users of Enterprise COBOL 6.3 and later      *
  *                 releases running AMODE64 programs that       *
  *                 alter VSAM files via both the primary        *
  *                 and alternate index file names when both     *
  *                 files are open.                              *
  ****************************************************************
  * PROBLEM DESCRIPTION: Unexpected 0C4 abend in module IGZEVIO  *
  *                      may occur during VSAM file I/O          *
  *                      operation processing and the process    *
  *                      stops.                                  *
  *                                                              *
  *                      The 0C4 may occur after trying to read  *
  *                      from the file via alternate index       *
  *                      right after a delete was done on        *
  *                      the same file via the primary key       *
  *                                                              *
  *                      For example,                            *
  *                                                              *
  *                      There are 2 VSAM files:                 *
  *                      VSAM.PRIMEKEY --> Prime key access      *
  *                      VSAM.ALTINDEX                           *
  *                      --> Alternate index file created        *
  *                           from VSAM.PRIMEKEY but             *
  *                           accessed with a prime key          *
  *                           defined with RECORD KEY clause.    *
  *                                                              *
  *                      Then the following sequence of actions  *
  *                      happen:                                 *
  *                                                              *
  *                      1. Obtain a record REC1 from            *
  *                      VSAM.PRIMEKEY                           *
  *                      2. Delete REC1 from VSAM.PRIMEKEY       *
  *                      3. Move REC1 to VSAM.ALTINDEX           *
  *                      4. Read REC1 from VSAM.ALTINDEX         *
  *                         using prime key                      *
  *                      5. After several reads of               *
  *                      VSAM.ALTINDEX,                          *
  *                         an 0C4 abend in IGZEVIO may occur.   *
  ****************************************************************
  * RECOMMENDATION: Install the provided PTF.                    *
  ****************************************************************
  The logic for VSAM file I/O operation processing in
  the COBOL Runtime contained incorrect logic that went into
  alternate key processing under certain condition when the
  alternate index VSAM file was being accessed using a prime key
  and reading of records that do not exist occur.
  
  COB0603T/K COB0604T/K
  

Problem conclusion

• The COBOL runtime logic has been corrected to use the
  prime key processing logic when a VSAM file is accessed using a
  prime key regardless of whether it's an alternate index or
  non-alternate index file.
  

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:

  UI95647 UI95648 UI95649

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 UI95647

     UP24/02/24 P F402

• R7D0 PSY UI95648

     UP24/02/24 P F402

• R7E0 PSY UI95649

     UP24/02/24 P F402

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.