PI97289: Moving a numeric edited item with invalid content to an unsigned numeric sets the sign in COBOL v6 but not in v4

Obtain the fix for this APAR.

APAR status

• Closed as new function.

Error description

• This is the compiler component of PI97164.
  

Local fix

• Ensure correct data
  

Problem summary

• ****************************************************************
  * USERS AFFECTED: Users of Enterprise COBOL V6.2 compiling     *
  *                 programs that MOVE data from numeric-edited  *
  *                 data items to unsigned numeric USAGE         *
  *                 DISPLAY data items, where the source data    *
  *                 is not numeric.                              *
  ****************************************************************
  * PROBLEM DESCRIPTION: Enterprise COBOL Vx.x sets the sign in  *
  *                      the receiver to x'F', while Enterprise  *
  *                      COBOL V4.2 did not.                     *
  ****************************************************************
  * RECOMMENDATION: Apply the provided PTF.                      *
  ****************************************************************
  In situations where invalid data is used, the behaviour is
  undefined. Enterprise COBOL Vx.x set the sign to x'F' because
  it is correct that unsigned numeric data items should have a
  sign of x'F'. Enterprise COBOL V4.2 and earlier did not do this.
  

Problem conclusion

• To maintain compatibility with Enterprise COBOL V4.2 and
  earlier for customers using invalid data, Enterprise COBOL Vx.x
  was changed to no longer set the sign of an unsigned numeric
  USAGE DISPLAY receiver to x'F' unless the sign bits in the
  sender were x'F'.
  

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:

  PI97556 PI99000

Modules/Macros

• IGY8RWTU IGYCASMB IGYCCBE  IGYCCCRT IGYCCICS IGYCCSRV IGYCDGEN
  IGYCDIAG IGYCDMAP IGYCDOPT 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  IGYCOPT  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 UI56120

     UP18/06/01 P F805

• R621 PSY UI56121

     UP18/06/01 P F805

• R622 PSY UI56122

     UP18/06/01 P F805

• R62H PSY UI56123

     UP18/06/01 P F805

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.