PH41801: 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.2 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: When invoking the compiler, override the     *
  *                 ZONEDATA installation                        *
  *                 default value with the new INVDATA option    *
  *                 instead of the                               *
  *                 ZONEDATA option. In particular, use          *
  *                 NOINVDATA if you want the                    *
  *                 behavior of the deprecated ZONEDATA(PFD)     *
  *                 option, and use                              *
  *                 INVDATA(NOFORCENUMCMP,CLEANSIGN) if you      *
  *                 want the behavior of the                     *
  *                 deprecated ZONEDATA(NOPFD) option.           *
  ****************************************************************
  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

• ×**** PE22/08/11 FIX IN ERROR. SEE APAR PH48619  FOR DESCRIPTION
  

APAR Information

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

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

  PH42022 UI78471 UI78472 UI78473

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 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  IGYZQDRV IGYZQENU IGYZQJPN
  

Fix information

• Fixed component name

  ENT COBOL FOR Z

• Fixed component ID

  5655EC600

Applicable component levels

• R620 PSY UI78471

     UP21/12/15 P F112

• R621 PSY UI78472

     UP21/12/15 P F112

• R622 PSY UI78473

     UP21/12/15 P F112

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.