A fix is available
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.1 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 number
PI93063
Reported component name
ENT COBOL FOR Z
Reported component ID
5655EC600
Reported release
610
Status
CLOSED PER
PE
NoPE
HIPER
NoHIPER
Special Attention
NoSpecatt / Xsystem
Submitted date
2018-01-29
Closed date
2018-02-15
Last modified date
2018-03-12
APAR is sysrouted FROM one or more of the following:
APAR is sysrouted TO one or more of the following:
Modules/Macros
IGYQCBE
Fix information
Fixed component name
ENT COBOL FOR Z
Fixed component ID
5655EC600
Applicable component levels
R610 PSY UI53916
UP18/02/28 P F802
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.
[{"Business Unit":{"code":"BU048","label":"IBM Software"},"Product":{"code":"SS6SG3","label":"Enterprise COBOL for z\/OS"},"Component":"","ARM Category":[],"Platform":[{"code":"PF025","label":"Platform Independent"}],"Version":"6.1","Edition":"","Line of Business":{"code":"LOB70","label":"Z TPS"}}]
Document Information
Modified date:
05 September 2024