PH11948: PROGRAM PRODUCES AN INCORRECT RESULT

Obtain the fix for this APAR.

APAR status

• Closed as program error.

Error description

• *************************************************
  **            Defect Fix Template              **
  *************************************************
  
  USERS AFFECTED: Users of Enterprise COBOL Vx.x compiling
  programs at ARCH(10|11) that contain a
  sequence of consecutive computations
  involving PACKED-DECIMAL or USAGE DISPLAY
  data items with differing numbers of digits
  after the decimal place.
  
  PROBLEM DESCRIPTION: Program produces an incorrect result
  
  RECOMMENDATION TO CUSTOMER: Apply the provided PTF
  
  PROBLEM SUMMARY: At ARCH(10) and ARCH(11), the compiler will
  often generate
  Decimal Floating Point (DFP) instructions to perform
  PACKED-DECIMAL or USAGE DISPLAY arithmetic. When combining
  truncation operations with alignment-shifting operations (to
  align the decimal points in data items with different numbers
  of
  digits to the right of the decimal point), the compiler was
  incorrectly generating an incorrect alignment shift, causing an
  intermediate value to incorrectly become zero.
  
  CONCLUSION: The compiler was fixed to generate the correct
  alignment shifts
  when using DFP instructions.
  

Local fix

• Compile at OPT(0), ARCH(9) or lower, or ARCH(12)
  

Problem summary

• ****************************************************************
  * USERS AFFECTED: Users of Enterprise COBOL V6.2 compiling     *
  *                 programs at ARCH(10|11) that contain a       *
  *                 sequence of consecutive computations         *
  *                 involving PACKED-DECIMAL or USAGE DISPLAY    *
  *                 data items with differing numbers of digits  *
  *                 after the decimal place.                     *
  ****************************************************************
  * PROBLEM DESCRIPTION: Program produces an incorrect result.   *
  ****************************************************************
  * RECOMMENDATION: Apply the provided PTF                       *
  ****************************************************************
  At ARCH(10) and ARCH(11), the compiler will often generate
  Decimal Floating Point (DFP) instructions to perform
  PACKED-DECIMAL or USAGE DISPLAY arithmetic. When combining
  truncation operations with alignment-shifting operations (to
  align the decimal points in data items with different numbers
  of digits to the right of the decimal point), the compiler was
  incorrectly generating an incorrect alignment shift, causing an
  intermediate value to incorrectly become zero.
  

Problem conclusion

• The compiler was fixed to generate the correct alignment shifts
  when using DFP instructions.
  

Temporary fix

Comments

APAR Information

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

  PH11555

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

     UP19/05/30 P F905

• R621 PSY UI63208

     UP19/05/30 P F905

• R622 PSY UI63209

     UP19/05/30 P F905

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.