PH42022: WITH ZONEDATA=MIG SET IN IGYCDOPT, ZONEDATA(NOPFD) INCORRECTLY MAPS TO INVDATA(FNC,CS) INSTEAD OF INVDATA(NOFNC,CS)

Obtain the fix for this APAR.

APAR status

• Closed as program error.

Error description

• When ZONEDATA=MIG set as a default in the IGYCDOPT compiler
  options default module, then if a compile is done using
  ZONEDATA(NOPFD), the compiler incorrectly maps ZONEDATA(NOPFD)
  to INVDATA(FORCENUMCMP,CLEANSIGN) instead of
  INVDATA(NOFORCENUMCMP,CLEANSIGN).
  The problem only occurs when both of these are true:
  1) The default set in IGYCDOPT module is ZONEDATA=MIG.
  2) A compile is done with ZONEDATA(NOPFD) to override the
  default.
  

Local fix

• Replace ZONEDATA(NOPFD) in the compile JCL with the INVDATA
  compiler option (with no suboptions).
  

Problem summary

• ****************************************************************
  * USERS AFFECTED: Users of Enterprise COBOL 6.3 compiling and  *
  *                 running programs where the ZONEDATA=MIG      *
  *                 compiler option is specified in the          *
  *                 installation defaults for the compiler but   *
  *                 is overridden with either the                *
  *                 ZONEDATA(NOPFD)                              *
  *                 or ZONEDATA(PFD) option during compiler      *
  *                 invocation.                                  *
  ****************************************************************
  * PROBLEM DESCRIPTION: Unexpected runtime behavior for         *
  *                      comparisons involving zoned and/or      *
  *                      packed data items containing invalid    *
  *                      data. The comparison is done as if the  *
  *                      deprecated ZONEDATA(MIG) option, or its *
  *                      equivalent INVDATA(FORCENUMCMP,...),    *
  *                      were in effect.                         *
  ****************************************************************
  * RECOMMENDATION: Apply the IBM-provided PTF.                  *
  ****************************************************************
  When mapping the deprecated ZONEDATA(PFD) and ZONEDATA(NOPFD)
  options to INVDATA during options processing, some bits that
  were set during installation defaults processing for ZONEDATA
  were not properly cleared.
  

Problem conclusion

• The compiler was updated so that when the mapping from
  ZONEDATA(PFD) and ZONEDATA(NOPFD) to the new INVDATA option is
  done, bits from the ZONEDATA installation defaults are properly
  cleared, if set.
  

Temporary fix

Comments

APAR Information

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

  PH41801

• 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 IGYCLIBR IGYCLSTR IGYCLVL0 IGYCLVL1 IGYCLVL2
  IGYCLVL3 IGYCLVL8 IGYCMALL 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

• R630 PSY UI78163

     UP21/11/25 P F111

• R631 PSY UI78164

     UP21/11/25 P F111

• R632 PSY UI78165

     UP21/11/25 P F111

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.