PI95049: LEVEL 88 ITEM WITH MANY ENTRIES DEFINED AS PIC 9 GIVES EXCESSIVE ZONED COMPARISONS & PERFORMANCE DEGRADATION.

Obtain the fix for this APAR.

APAR status

• Closed as program error.

Error description

• At OPT(1/2), a level 88 item with thousands of entries defined
  as PIC 9 can lead to excessive zoned comparisons resulting in a
  performance degradation.
  

Local fix

Problem summary

• ****************************************************************
  * USERS AFFECTED: Users of Enterprise COBOL V6.2 compiling     *
  *                 programs with packed-decimal data items      *
  *                 with a large amount of level 88 values.      *
  ****************************************************************
  * PROBLEM DESCRIPTION: An IF clause checking a level 88 data   *
  *                      item with a large amount of values      *
  *                      causes the compiler to generate a       *
  *                      large internal representation of the    *
  *                      program which causes compilation time   *
  *                      to increase.                            *
  ****************************************************************
  * RECOMMENDATION: Apply the provided PTF.                      *
  ****************************************************************
  A level 88 check expands into IF statements on each level 88
  value. A very large amount of level 88 values generates a very
  large amount of IF statements which generates very large
  internal representation of the program.
  

Problem conclusion

• The internal representation of level 88 checks for
  packed-decimal types was compacted to simplify the program's
  internal representation.
  

Temporary fix

Comments

APAR Information

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

  PI93063

• 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 IGYCOPI  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  IGYWCL   IGYWCLG  IGYZQDRV IGYZQENU
  IGYZQJPN
  

Fix information

• Fixed component name

  ENT COBOL FOR Z

• Fixed component ID

  5655EC600

Applicable component levels

• R620 PSY UI54510

     UP18/03/28 P F803

• R621 PSY UI54511

     UP18/03/28 P F803

• R622 PSY UI54512

     UP18/03/28 P F803

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.