PI90571: 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.2 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

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

Temporary fix

Comments

APAR Information

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

  PI88271

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

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 IGYCLIBH IGYCLIBO IGYCLIBR IGYCLSTR IGYCLVL0
  IGYCLVL1 IGYCLVL2 IGYCLVL3 IGYCLVL8 IGYCMALL IGYCOB2  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  IGYSIDEK IGYZQDRV
  

Fix information

• Fixed component name

  ENT COBOL FOR Z

• Fixed component ID

  5655EC600

Applicable component levels

• R620 PSY UP

     A

• R621 PSY UP

     A

• R622 PSY UI56122

     UP18/06/01 P F805

• R62H PSY UP

     A

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.