PI59088: STORAGE OVERLAY ON READ WHEN USING RECORD CONTAINS 0 CHARACTERS

Obtain the fix for this APAR.

APAR status

• Closed as program error.

Error description

• COBOL program does a READ of a fixed length QSAM file defined
  as RECORD CONTAINS 0 CHARACTERS.  This causes an overlay of
  Working Storage.
  

Local fix

• Specify actual length of record on RECORD CONTAINS clause
  

Problem summary

• ****************************************************************
  * USERS AFFECTED: Users of Enterprise COBOL V5.2 compiling     *
  *                 and running programs that contain READ       *
  *                 statements that a QSAM fixed length record   *
  *                 file defined with RECORD CONTAINS 0          *
  *                 CHARACTERS clause.                           *
  *                                                              *
  ****************************************************************
  * PROBLEM DESCRIPTION: Incorrect output: When using a READ     *
  *                      statement to read a QSAM fixed length   *
  *                      record file that is defined with        *
  *                      RECORD CONTAINS 0 CHARACTERS clause,    *
  *                      the compiler generates code that        *
  *                      overwrites the first WORKING- STORAGE   *
  *                      section record.                         *
  *                                                              *
  ****************************************************************
  * RECOMMENDATION: Apply the provided PTF.                      *
  ****************************************************************
  The compiler was allocating a file buffer of 0 length for a
  QSAM fixed length record file that is defined with RECORD
  CONTAINS 0 CHARACTERS clause.  That caused the READ statement
  reading the first record of the file to overwrite the first
  WORKING-STORAGE section record.
  

Problem conclusion

• The compiler was modified so that when a QSAM fixed length
  record file defined with RECORD CONTAINS 0 CHARACTERS clause
  the compiler will allocate a file buffer as big as the file
  record length.
  

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:

  PI61145 PI63297

Modules/Macros

•    IGYCCBE
  

Fix information

• Fixed component name

  ENT COBOL FOR Z

• Fixed component ID

  5655W3200

Applicable component levels

• R520 PSY UI36448

     UP16/03/30 P F603

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.