PH23097: After PH21007, moves from signed to unsigned DISPLAY NUMERIC fields incorrectly move the sign with ZONEDATA(NOPFD|MIG)

Obtain the fix for this APAR.

APAR status

• Closed as program error.

Error description

• The APARs
  
          PH21007 (v6.3 January 2020 PTF)
          PH20362 (v6.2 February 2020 PTF)
          PH22131 (v6.1 February 2020 PTF)
  
  made a change to simplify migration when using
  ZONEDATA(NOPFD|MIG), but has the incorrect effect on MOVEs of
  copying the sign of the signed zoned data source item to the
  unsigned zoned data item target.
  

Local fix

• The problem is bypassed using ZONEDATA(PFD), but raise issues
  elsewhere if the program in dependent on ZONEDATA(NOPFD|MIG).
  

Problem summary

• ****************************************************************
  * USERS AFFECTED: Users of Enterprise COBOL 6.3 compiling and  *
  *                 running programs compiled with the           *
  *                 ZONEDATA(NOPFD|MIG) option, where the        *
  *                 programs contain a MOVE or COMPUTE           *
  *                 statement that moves a zoned decimal sender  *
  *                 to a zoned decimal receiver and either the   *
  *                 sender or the receiver is signed, but not    *
  *                 both.                                        *
  ****************************************************************
  * PROBLEM DESCRIPTION: Incorrect result.                       *
  *                                                              *
  *                      The high nibble of the last byte of     *
  *                      the receiver may be set incorrectly to  *
  *                      the high nibble of the last byte of     *
  *                      the sender.                             *
  ****************************************************************
  * RECOMMENDATION: Apply the provided PTF.                      *
  ****************************************************************
  To achieve better compatibility with V42 during zoned decimal to
  zoned decimal moves when the sender contains invalid data, a
  change was made to avoid fixing up the sign nibble of the
  receiver in certain cases, but the condition under which the
  sign fixup was avoided was applied too broadly.
  

Problem conclusion

• The compiler was updated so that V42 compatibility is improved
  for zoned decimal to zoned decimal moves when the sender
  contains bad data, but this new behavior is now done under the
  correct conditions.
  

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:

Modules/Macros

• IGY8RWRD 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 IGYCOB2E 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 UI68641

     UP20/04/01 P F003 {

• R631 PSY UI68642

     UP20/04/01 P F003 {

• R632 PSY UI68643

     UP20/04/01 P F003 {

• R63H PSY UI68644

     UP20/04/01 P F003 {

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.