A fix is available
APAR status
Closed as program error.
Error description
If a table element access is also reference modified, and the ZONECHECK option is in effect, the compiler incorrectly generates a numeric validation of the first table element, even if some other table element is being accessed. This can lead to both incorrectly positive and negative numeric test outcomes if only some table elements contain correct values.
Local fix
Correct the bad data.
Problem summary
**************************************************************** * USERS AFFECTED: Users of Enterprise COBOL 6.1 compiling and * * running programs compiled with the * * ZONECHECK option and containing reference * * modified zoned decimal data items. * * * **************************************************************** * PROBLEM DESCRIPTION: Incorrect output. Reference modified * * zoned decimal data items were being * * checked when they should not have * * been. This could lead to incorrect * * reports of invalid zoned decimal data * * items. * * * **************************************************************** * RECOMMENDATION: Apply the provided PTF. * * * **************************************************************** The compiler was generating code to check reference modified zoned decimal data items when the ZONECHECK compiler option is in effect. However, when reference modification is applied to a zoned decimal data item, the result is an alphanumeric value and such values should not be checked when ZONECHECK is in effect.
Problem conclusion
The compiler was updated to avoid generating code to perform ZONECHECK testing on reference modified zoned decimal data items.
Temporary fix
Comments
APAR Information
APAR number
PI72824
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
2016-11-25
Closed date
2016-12-15
Last modified date
2017-01-03
APAR is sysrouted FROM one or more of the following:
APAR is sysrouted TO one or more of the following:
Modules/Macros
IGYCRCTL
Fix information
Fixed component name
ENT COBOL FOR Z
Fixed component ID
5655EC600
Applicable component levels
R610 PSY UI43370
UP16/12/21 P F612
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