PI88271: ZONEDATA compiler option to support additional v4 compatibility for invalid data

Obtain the fix for this APAR.

APAR status

• Closed as new function.

Error description

• ZONEDATA(NOPFD) and ZONEDATA(MIG) effects are expanded to MOVE
  statements, comparisons, and computations for USAGE DISPLAY or
  PACKED-DECIMAL data items that could contain invalid data
  (digits, sign code, or zone bits), with actions more compatible
  with earlier compilers.
  

Local fix

Problem summary

• ****************************************************************
  * USERS AFFECTED: Users of Enterprise COBOL V6.1 compiling     *
  *                 and running programs with NUMPROC(NOPFD)     *
  *                 that compare a PACKED-DECIMAL and USAGE      *
  *                 DISPLAY data item to each other, where the   *
  *                 USAGE DISPLAY data item contains an invalid  *
  *                 sign code or invalid digits.                 *
  *                                                              *
  ****************************************************************
  * PROBLEM DESCRIPTION: The compiled program terminates with a  *
  *                      runtime abend (S0C7).                   *
  *                                                              *
  ****************************************************************
  * RECOMMENDATION: Apply the provided PTF.                      *
  *                                                              *
  ****************************************************************
  The compiler was generating an instruction that forced a
  subsequent compare to be a numeric compare, despite
  ZONEDATA(NOPFD) or ZONEDATA(MIG) being specified, while
  Enterprise COBOL V4.2 generated an alphanumeric compare. When
  used with invalid data, the numeric compare caused a runtime
  abend, while the alphanumeric compare used by V4.2 did not.
  

Problem conclusion

Temporary fix

Comments

• The compiler was fixed to generate an alphanumeric compare when
  comparing a PACKED-DECIMAL and USAGE DISPLAY data item when
  compiling with ZONEDATA(NOPFD) or ZONEDATA(MIG). Customers
  whose programs may use invalid USAGE DISPLAY and PACKED-DECIMAL
  data can compile with ZONEDATA(NOPFD) or ZONEDATA(MIG), causing
  the compiler to avoid generating the instruction that causes
  the runtime abend in this scenario. Customers with valid data
  can use ZONEDATA(PFD) in order to get the best performance.
  

APAR Information

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

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

  PI90458 PI90571

Modules/Macros

•    IGYQCBE
  

Fix information

• Fixed component name

  ENT COBOL FOR Z

• Fixed component ID

  5655EC600

Applicable component levels

• R610 PSY UI51349

     UP17/10/30 P F710

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.