PH64241: COBOL PROGRAM WITH COMPUTE A=B+C, WHERE A,B,C ARE DEFINED AS BINARY, USES ABOUT 50% MORE CPU AT EXECUTION TIME WITH V6.3

Obtain the fix for this APAR.

APAR status

• Closed as program error.

Error description

• A COBOL program with COMPUTE A=B+C, where A,B,C are defined as
  18 digit binary, uses about 50% more CPU at execution time when
  compiled with previous versions of the compiler.
  
  ADDITIONAL SYMPTOMS:
  PERFM
  

Local fix

• BYPASS/CIRCUMVENTION:
  Compile at OPT(1|2).
  
  RECOVERY ACTION:
  Apply PTF
  

Problem summary

• ****************************************************************
  * USERS AFFECTED: Users of Enterprise COBOL 6.3 compiling      *
  *                 programs with OPT(0), TRUNC(OPT|STD) and     *
  *                 performs 18-digit binary additions and       *
  *                 subtractions numerous times.                 *
  ****************************************************************
  * PROBLEM DESCRIPTION: Program may perform worse than when     *
  *                      compiled with previous versions of the  *
  *                      compiler.                               *
  ****************************************************************
  * RECOMMENDATION: Apply the provided PTF                       *
  ****************************************************************
  The compiler was performing 18-digit additions and subtractions
  of binary data items as PACKED-DECIMAL to avoid potential
  overflow issues when invalid data was used, hurting performance
  for clients using only valid data.
  

Problem conclusion

• The compiler was fixed to perform 18-digit addition and
  subtraction in binary if NOINVDATA is specified.
  

Temporary fix

Comments

APAR Information

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

  PH63954

• 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 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  IGYQSPLT IGYZQEN6 IGYZQENU IGYZQJP6 IGYZQJPN
  

Fix information

• Fixed component name

  ENT COBOL FOR Z

• Fixed component ID

  5655EC600

Applicable component levels

• R630 PSY UI99158

     UP24/12/03 P F412

• R631 PSY UI99159

     UP24/12/03 P F412

• R632 PSY UI99160

     UP24/12/03 P F412

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.