A fix is available
APAR status
Closed as program error.
Error description
With some COBOL source programs, the compiler would ABEND during compile time when generating ADATA. Specifically, the COBOL source program would need to contain sufficiently long IV data in a Data Description Entry such that the generated ADATA record is required to be continued onto another, new record. During this processing, an internal logic error would result in an ABEND during compile time.
Local fix
Turning off the ADATA compiler option will prevent the compiler ABEND, but will not produce ADATA output.
Problem summary
**************************************************************** * USERS AFFECTED: Users of Enterprise COBOL 6.2 compiling * * programs with compiler option ADATA * * where the Initial Value (IV) Pairs data * * within a Symbol Record ('0042'X) is * * sufficiently long to cause a continuation * * into a new ADATA record. * **************************************************************** * PROBLEM DESCRIPTION: The Enterprise COBOL V6.2 compiler * * would ABEND during compile time in * * compiler program module IGYCDMAP. * **************************************************************** * RECOMMENDATION: Apply the provided PTF. * **************************************************************** With some COBOL source programs, the compiler would ABEND during compile time when generating ADATA. Specifically, the COBOL source program would need to contain sufficiently long IV data in a Data Description Entry such that the generated ADATA record is required to be continued onto another, new record. During this processing, an internal logic error would result in an ABEND during compile time.
Problem conclusion
The compiler was updated with a fix for the ABEND. It will now properly generate continued ADATA records in the aforementioned situation.
Temporary fix
Comments
APAR Information
APAR number
PH04494
Reported component name
ENT COBOL FOR Z
Reported component ID
5655EC600
Reported release
620
Status
CLOSED PER
PE
NoPE
HIPER
NoHIPER
Special Attention
NoSpecatt / Xsystem
Submitted date
2018-10-24
Closed date
2018-11-22
Last modified date
2018-12-12
APAR is sysrouted FROM one or more of the following:
APAR is sysrouted TO one or more of the following:
Modules/Macros
IGY8RWTU IGYCASMB IGYCCBE IGYCCCRT 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 IGYCOB2E IGYCOPI 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
R620 PSY UI59885
UP18/11/29 P F811
R621 PSY UI59886
UP18/11/29 P F811
R622 PSY UI59887
UP18/11/29 P F811
R62H PSY UI59888
UP18/11/29 P F811
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":"620","Edition":"","Line of Business":{"code":"LOB35","label":"Mainframe SW"}}]
Document Information
Modified date:
12 December 2023