A fix is available
APAR status
Closed as program error.
Error description
COBOL with CICS gets ASRA/0C7 occurs at OPT(2). The compiler is removing most of the redundant code for the MOVEs (including the part that sets up the pattern), but not the ED. Having an incorrect pattern causes the ED to fail.
Local fix
compile at OPT(0) remove redundant move statements
Problem summary
**************************************************************** * USERS AFFECTED: Users of Enterprise COBOL V6.1 compiling * * programs at OPT(1|2) that contain multiple * * MOVEs in close succession to the same * * NUMERIC-EDITED receiver without the * * receiver being read from in between. * **************************************************************** * PROBLEM DESCRIPTION: The program may abend with an S0C7 * * exception. * **************************************************************** * RECOMMENDATION: Apply the provided PTF. * **************************************************************** When moving to a NUMERIC-EDITED receiver, the compiler moves pattern information to a compiler-generated temporary data item, then uses the ED hardware instruction to format the sender according to the pattern, overwriting the temporary, and then moves the temporary to the final receiver. At OPT(1|2), if another literal or sender is moved to the receiver shortly after the first one, the first MOVE is deemed to be redundant. The compiler was removing the code that moved the correct pattern into the temporary data item, without removing the code to generate the ED instruction. The ED was executing with an incorrect pattern, which caused data beyond the end of the sender to be examined. If any extra data is not numeric, the ED would fail at runtime.
Problem conclusion
The compiler was fixed to not remove the MOVE of the pattern to the temporary data item.
Temporary fix
Comments
APAR Information
APAR number
PH06047
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-12-03
Closed date
2018-12-12
Last modified date
2019-03-19
APAR is sysrouted FROM one or more of the following:
APAR is sysrouted TO one or more of the following:
Modules/Macros
IGY8RWTU IGYCCBE 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 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 IGYZQDRV IGYZQENU IGYZQJPN
Fix information
Fixed component name
ENT COBOL FOR Z
Fixed component ID
5655EC600
Applicable component levels
R610 PSY UI60241
UP18/12/18 P F812
R611 PSY UI60242
UP18/12/19 P F812
R612 PSY UI60243
UP18/12/19 P F812
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":"6.1","Edition":"","Line of Business":{"code":"LOB35","label":"Mainframe SW"}}]
Document Information
Modified date:
12 December 2023