PI57769: WITH OPT(1/2),NUMPROC(NOPFD/MIG), ADD 0 TO DATA VALUE OPTIMIZES AWAY THE ADDITION, INCORRECTLY KEEPING INVALID ZONE BITS

Obtain the fix for this APAR.

APAR status

• Closed as program error.

Error description

• When users of Enterprise COBOL V5.x compile programs using
  ZONEDATA(NOPFD) or ZONEDATA(MIG) and OPT(1/2)
  that add 0 to a USAGE DISPLAY data-item containing invalid
  zoned decimal data, the compiler will optimize away the
  addition, which will incorrectly preserve any invalid zone bits
  that may have been present previously in the data value.
  
  With ZONEDATA(NOPFD) & ZONEDATA(MIG), the compiler will be
  fixed to not throw away the addition of a USAGE DISPLAY
  data-item and 0, i.e.
  ADD 0 TO data-item.
  This will cause the invalid zone bits to be corrected to valid
  zone bits as desired.
  
  However, the compiler will still throw away the addition of a
  USAGE DISPLAY data item and 0 when programs are compiled with
  ZONEDATA(PFD), since the zone bits are assumed to be correct
  with ZONEDATA(PFD).
  

Local fix

• Compile at OPT(0).
  

Problem summary

• ****************************************************************
  * USERS AFFECTED: Users of Enterprise COBOL V5.1 compiling     *
  *                 programs using ZONEDATA(NOPFD) or            *
  *                 ZONEDATA(MIG) that add 0 to a USAGE DISPLAY  *
  *                 data item containing invalid zoned decimal   *
  *                 data.                                        *
  *                                                              *
  ****************************************************************
  * PROBLEM DESCRIPTION: The compiler optimizes away the         *
  *                      addition, so any invalid zone bits in   *
  *                      the item are preserved.                 *
  *                                                              *
  ****************************************************************
  * RECOMMENDATION: Apply the provided PTF.                      *
  *                                                              *
  ****************************************************************
  ZONEDATA(MIG) and ZONEDATA(NOPFD) disable known optimizations
  that could preserve invalid zone bits. When they were first
  added, we didn't realize that eliminating an addition of a
  USAGE DISPLAY data item and 0 would preserve invalid zone bits.
  

Problem conclusion

• The compiler was fixed to not eliminate the addition of a USAGE
  DISPLAY data item and 0. The compiler will still eliminate the
  addition of a USAGE DISPLAY data item and 0 when programs are
  compiled with ZONEDATA(PFD).
  

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:

  PI59344 PI63121

Modules/Macros

•    IGYCBE
  

Fix information

• Fixed component name

  ENT COBOL FOR Z

• Fixed component ID

  5655W3200

Applicable component levels

• R510 PSY UI37372

     UP16/04/29 P F604

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.