PH72491: Non-zero values found in bytes 3-4 (ZZ bytes) of the record descriptor words (RDW) for records stored in the SYSADATA data set g

Obtain the fix for this APAR.

APAR status

• Closed as program error.

Error description

• Enterprise COBOL V6.5 generates SYSADATA as RECFM=VB, but some
  records have non-zero RDW (Record Descriptor Word) bytes 3-4 (ZZ
  
  Bytes), where VB records are expected to have zeroes. The
  SYSADATA header and records after the RDW is valid and intact.
  This does not affect the content or use of SYSADATA files
  outside of any third party applications which verify the RDW is
  correct.
  

Local fix

• Apply the IBM provided PTF
  

Problem summary

• ****************************************************************
  * USERS AFFECTED: All users of the Enterprise COBOL 6.4        *
  *                 compiler who are compiling with the          *
  *                 SYSADATA option, and after compiling,        *
  *                 inspect bytes 3 and 4 of the 4-byte Record   *
  *                 Descriptor Word (RDW) fields of the          *
  *                 SYSADATA data set.                           *
  ****************************************************************
  * PROBLEM DESCRIPTION: Bytes 3 and 4 of the RDW may be         *
  *                      non-zero. This problem does not         *
  *                      prevent the compiler user from using    *
  *                      or processing the SYSADATA data set.    *
  *                      The SYSADATA header information         *
  *                      remains accurate and the data           *
  *                      contained in the data set records is    *
  *                      unaffected.                             *
  ****************************************************************
  * RECOMMENDATION: Apply the IBM provided PTF                   *
  ****************************************************************
  Enterprise COBOL 6.5 generates SYSADATA as RECFM=VB, but some
  records have non-zero RDW (Record Descriptor Word) bytes 3-4 (ZZ
  Bytes), where VB records are expected to have zeroes. The
  SYSADATA header and records after the RDW is valid and intact.
  This does not affect the content or use of SYSADATA files
  outside of any third party applications which verify the RDW is
  correct.
  

Problem conclusion

• The Record Descriptor Word for the RECFM=VB SYSADATA data set
  was stored in two variables, one for bytes 1-2 of the RDW
  containing the actual length of the variable length record, and
  a second variable for bytes 3-4 which was not required but was
  also not initialized. The compiler has been updated so that
  bytes 3-4 of the RDW is always initialized to zero, before the
  record is written to the SYSADATA data set.
  

Temporary fix

Comments

APAR Information

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

  PH71699

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

  UO08817 UO08818 UO08819 UO08820

Modules/Macros

• IGY8RWTU IGYCASMB IGYCCBE  IGYCCCRT IGYCCICS IGYCCSRV IGYCDGEN
  IGYCDIAG IGYCDMAP IGYCEN$0 IGYCEN$1 IGYCEN$2 IGYCEN$3 IGYCEN$4
  IGYCEN$5 IGYCEN$8 IGYCEN$D IGYCEN$R IGYCFGEN IGYCFREE IGYCINIT
  IGYCJA$0 IGYCJA$1 IGYCJA$2 IGYCJA$3 IGYCJA$4 IGYCJA$5 IGYCJA$8
  IGYCJA$D IGYCJA$R IGYCJBLD IGYCJGEN IGYCLIBR IGYCLSTR IGYCLVL0
  IGYCLVL1 IGYCLVL2 IGYCLVL3 IGYCLVL8 IGYCMALL IGYCOB2  IGYCOB2E
  IGYCOPI  IGYCOSCN IGYCPGEN IGYCRCTL IGYCRDPR IGYCRDSC IGYCREAL
  IGYCRWT  IGYCSCAN IGYCSIMD IGYCUE$0 IGYCUE$1 IGYCUE$2 IGYCUE$3
  IGYCUE$4 IGYCUE$5 IGYCUE$8 IGYCUE$D IGYCUE$R IGYCXREF IGYDRV
  IGYEQCWI IGYMSGE  IGYMSGK  IGYMSGT  IGYQCBE  IGYQSPLT IGYZQEN6
  IGYZQENU IGYZQJP6 IGYZQJPN
  

Fix information

• Fixed component name

  ENT COBOL FOR Z

• Fixed component ID

  5655EC600

Applicable component levels

• R640 PSY UO08817

     UP26/08/29 P F608

• R641 PSY UO08818

     UP26/08/29 P F608

• R642 PSY UO08819

     UP26/08/29 P F608

• R64H PSY UO08820

     UP26/08/29 P F608

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.