PH71699: 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 V6.5       *
  *                 compiler who are compiling with the SYSADATA *
  *                 option and later run an in-house developed   *
  *                 application to verify that the RDWs for the  *
  *                 RECFM=VB SYSADATA data set records contain   *
  *                 zeros in bytes 3-4 (ZZ bytes).               *
  ****************************************************************
  * PROBLEM DESCRIPTION: Although bytes 3-4 of the record        *
  *                      descriptor words for a RECFM=VB data    *
  *                      set are supposed to contain zeros, this *
  *                      problem does not prevent the compiler   *
  *                      user from processing the SYSADATA data  *
  *                      set. The SYSADATA header information is *
  *                      still 100% accurate, and the data       *
  *                      contained in the data set records is    *
  *                      still correct.                          *
  ****************************************************************
  * RECOMMENDATION: Apply the IBM provided PTF                   *
  ****************************************************************
  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.
  

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:

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

  UO08610 UO08611 UO08612 UO08613 PH72491

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 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

• R650 PSY UO08610

     UP26/07/28 P F607

• R651 PSY UO08611

     UP26/07/28 P F607

• R652 PSY UO08612

     UP26/07/28 P F607

• R65H PSY UO08613

     UP26/07/28 P F607

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.