A fix is available
APAR status
Closed as program error.
Error description
Ø CBL V6.1 MOVE stmt gets S0C4
Local fix
Ø- None.
Problem summary
**************************************************************** * USERS AFFECTED: Users of Enterprise COBOL V6.1 compiling * * programs that contain a COMPUTE statement * * that can produce a negative result, using * * COMP-3 or USAGE DISPLAY senders and an * * unsigned BINARY(COMP) receiver, where the * * receiver is used in a subsequent * * computation, table access, or reference * * modification. * * * **************************************************************** * PROBLEM DESCRIPTION: Incorrect output at runtime: The * * compiler may generate code that uses * * the intermediate negative result * * instead of the correct positive result. * * * **************************************************************** * RECOMMENDATION: Apply the provided PTF. * * * **************************************************************** The compiler was generating code that computed a negative result in a register, forced the result to positive when storing from the register to the receiver, and then used the value in a register in a subsequent computation, table access, or reference modification.
Problem conclusion
The compiler was fixed to force the contents of the register to be positive before its subsequent use.
Temporary fix
Comments
APAR Information
APAR number
PI80709
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
2017-04-27
Closed date
2017-06-24
Last modified date
2017-07-05
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 UI48286
UP17/06/30 P F706
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"},"Platform":[{"code":"PF025","label":"Platform Independent"}],"Line of Business":{"code":"LOB17","label":"Mainframe TPS"}}]
Document Information
Modified date:
14 December 2020