PI77291: FILE STATUS 24 ON RRDS WITH RELATIVE KEY GREATER THAN 10

Obtain the fix for this APAR.

APAR status

• Closed as program error.

Error description

• When doing a WRITE to a relative record data set (RRDS) defined
  with a Relative Key, if the Relative Key is greater than 10
  bytes, the WRITE receives files status 24.  If the key is
  defined as 10 bytes or less, then the WRITE received file
  status 00.
  

Local fix

• Define relative key as 10 bytes or less
  

Problem summary

• ****************************************************************
  * USERS AFFECTED: Enterprise COBOL V5+ users that are          *
  *                 compiling and running programs that contain  *
  *                 I/O operations on a VSAM RRDS file with a    *
  *                 zoned decimal (numeric DISPLAY) relative     *
  *                 key whose size is greater than 10 digits.    *
  *                                                              *
  ****************************************************************
  * PROBLEM DESCRIPTION: Incorrect FILE STATUS at runtime: When  *
  *                      a COBOL program assigns a value to the  *
  *                      zoned relative key of a VSAM RRDS that  *
  *                      does not exceed the size of the         *
  *                      relative key, the READ or WRITE         *
  *                      operation should return a successful    *
  *                      file status 00 and not a failing file   *
  *                      status of 23 or 24. The behavior of     *
  *                      Enterprise COBOL V5+ should match V4    *
  *                      behavior.                               *
  *                                                              *
  ****************************************************************
  * RECOMMENDATION: Apply the provided PTF.                      *
  *                                                              *
  ****************************************************************
  The error handling logic incorrectly returned file status 24
  for WRITE or filestatus 23 for READ on a VSAM RRDS file, when
  the size of the zoned relative key was greater than 10 digits.
  

Problem conclusion

• The error handling logic discussed in the Problem Summary has
  been corrected.
  

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.