A fix is available
APAR status
Closed as program error.
Error description
This problem may affect the users of programs which are using a COMP-3 variable as the destination of a computation and also as an offset into a table in the same computation and compiled with Enterprise COBOL 5.1. To address the problem the users need to recompile all code compiled with Enterprise COBOL 5.1 with the PTF containing the fix for this issue.
Local fix
N/A
Problem summary
**************************************************************** * USERS AFFECTED: Users of Enterprise COBOL V5.1 with programs * * that have statements using PACKED-DECIMAL * * (COMP-3) data items as both a subscript and * * as the receiving data item in an arithmetic * * statement. * * * **************************************************************** * PROBLEM DESCRIPTION: Computations may fail with ABEND S0C7 * * at run time. * **************************************************************** * RECOMMENDATION: Apply the provided PTF. * * * **************************************************************** The compiler was generating code that wrote into the destination variable before reading its previous value for use in the computation. The generated code then used an incorrect value as a subscript, causing the wrong memory to be referenced.
Problem conclusion
The compiler was fixed to ensure that computations don't reference invalid data.
Temporary fix
********* * HIPER * *********
Comments
APAR Information
APAR number
PI18696
Reported component name
ENT COBOL FOR Z
Reported component ID
5655W3200
Reported release
510
Status
CLOSED PER
PE
NoPE
HIPER
NoHIPER
Special Attention
NoSpecatt
Submitted date
2014-05-26
Closed date
2014-05-28
Last modified date
2014-06-04
APAR is sysrouted FROM one or more of the following:
APAR is sysrouted TO one or more of the following:
UI18382
Modules/Macros
IGYCBE
Fix information
Fixed component name
ENT COBOL FOR Z
Fixed component ID
5655W3200
Applicable component levels
R510 PSY UI18382
UP14/05/29 P F405 ½
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":"BU058","label":"IBM Infrastructure w\/TPS"},"Product":{"code":"SS6SG3","label":"Enterprise COBOL for z\/OS"},"Component":"","ARM Category":[],"Platform":[{"code":"PF025","label":"Platform Independent"}],"Version":"5.1","Edition":"","Line of Business":{"code":"LOB17","label":"Mainframe TPS"}},{"Business Unit":{"code":"BU054","label":"Systems w\/TPS"},"Product":{"code":"SG19M","label":"APARs - z\/OS environment"},"Component":"","ARM Category":[],"Platform":[{"code":"PF025","label":"Platform Independent"}],"Version":"5.1","Edition":"","Line of Business":{"code":"","label":""}}]
Document Information
Modified date:
04 June 2014