PQ29656: COBOL APPLICATION PROGRAM RECEIVES FILE STATUS 48 SK48 ON WRITE STATEMENT WHEN VSAM KSDS VALIDLY OPEN IN I-O MODE WITH LE/OS390

Obtain the fix for this APAR.

APAR status

• Closed as program error.

Error description

• A COBOL OS390 program running with LE/OS390 opens a VSAM KSDS
  (with alternate index (AIX)) in I-O mode. File status 48 is
  received on a WRITE statement. File status 48 (SK48 FS48)
  is invalid in this context.
  Ref: COBOL OS390  Language Reference SC26-9046 Status key table
  in Part 6 Procedure Division.
  

Local fix

Problem summary

• ****************************************************************
  * USERS AFFECTED: All COBOL users of VSAM files running under  *
  *                 Language Environment for MVS, OS/390 and VM. *
  *                                                              *
  ****************************************************************
  * PROBLEM DESCRIPTION: If COBOL program issues a WRITE for a   *
  *                      VSAM KSDS file which was OPEN I-O and   *
  *                      fails due to incorrect record length,   *
  *                      file status 44 (SK44 FS44) should be    *
  *                      generated. User incorrectly receives    *
  *                      file status 48 (SK48 FS48).             *
  *                                                              *
  ****************************************************************
  * RECOMMENDATION:                                              *
  ****************************************************************
  If a VSAM file is OPEN I-O and a WRITE statement is issued for
  a record with incorrect length, VSAM returns RC=08 and feedback
  code is 108(x'C6') which should generate File Status 44 return
  (SK44 FS44).  But the user incorrectly receives File Status 48
  (SK48 FS48) due to an incorrect test for OPEN I-O.
  

Problem conclusion

• IGZEVIO has been updated to return correct file status value
  for incorrect record length while issuing WRITE with OPEN I-O.
  

Temporary fix

Comments

APAR Information

• APAR is sysrouted FROM one or more of the following:

  PQ29574

• APAR is sysrouted TO one or more of the following:

  UQ33920 UQ33921 UQ33922 UQ33923 UQ33924 UQ33925 UQ33926 UQ33927
  UQ33928 UQ33929

Modules/Macros

•    IGZEVIO
  

Fix information

• Fixed component name

  LE COBOL LIB

• Fixed component ID

  568819802

Applicable component levels

• R52N PSY UQ33929

     UP99/08/25 P 9908

• R520 PSY UQ33928

     UP99/08/26 P F908

• R607 PSY UQ33920

     UP99/08/26 P F908

• R608 PSY UQ33921

     UP99/08/26 P F908

• R62N PSY UQ33926

     UP99/08/25 P 9908

• R620 PSY UQ33925

     UP99/08/26 P F908

• R710 PSY UQ33922

     UP99/08/26 P F908

• R810 PSY UQ33923

     UP99/08/26 P F908

• R82N PSY UQ33927

     UP99/08/25 P 0001

• R910 PSY UQ33924

     UP99/08/26 P F908

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.