A fix is available
APAR status
Closed as program error.
Error description
Compiler abends IGYCB7104-U with STGOPT
Local fix
Use NOSTGOPT
Problem summary
**************************************************************** * USERS AFFECTED: Users of the Enterprise COBOL V6.4 compiler * * who are compiling source programs with the * * STGOPT compiler option and who also have a * * one byte 01 level elementary data item * * defined in the DATA DIVISION of their * * source program, immediately following the * * definition of a group data item that is * * used as a record buffer in the FROM clause * * of a WRITE statement. i.e. * * WRITE PRINT-RECORD FROM * * END-OF-REPORT-MSG-324 * * AFTER ADVANCING 3 LINES. * * The WRITE statement would have the AFTER or * * BEFORE ADVANCING phrase, or the file * * would be defined with the LINAGE clause. * **************************************************************** * PROBLEM DESCRIPTION: ABORT: The compiler may ABORT due to * * the storage optimization phase of the * * compiler preventing storage from * * being allocated for the one byte 01- * * level elementary data item, and then * * trying to reference the storage for * * this elementary item in a later phase * * of the compile. * * Messages similar to the following may * * be produced: * * LineID Message code Message text * * 2428 IGYCB7104-U Internal error * * while compiling program BCS303. Failed * * assertion on * * /build/cob/6.4_com/tr.v64.cobol-prod * * -opt/tr.source/trwcode/env/WCode.hpp * * :2428. * * Compilation terminated. * **************************************************************** * RECOMMENDATION: Apply the IBM provided PTF and recompile the * * source programs. * **************************************************************** Since the one byte 01-level elementary item previously mentioned was never referenced in the source program, the storage optimization phase of the compiler never allocated storage for the data item. Because of the type and placement of this elementary item in the DATA DIVISION, the compiler attempted to reference the storage allocated to the elementary data item. Since the storage was not previously allocated, the compiler issues the ABORT message and terminates with Return code 16.
Problem conclusion
The compiler has been updated so that it always allocates storage for the one byte 01-level elementary item mentioned above, thus preventing the reported ABORT problem.
Temporary fix
Comments
APAR Information
APAR number
PH63992
Reported component name
ENT COBOL FOR Z
Reported component ID
5655EC600
Reported release
640
Status
CLOSED PER
PE
NoPE
HIPER
NoHIPER
Special Attention
NoSpecatt / Xsystem
Submitted date
2024-11-04
Closed date
2024-12-12
Last modified date
2025-01-21
APAR is sysrouted FROM one or more of the following:
APAR is sysrouted TO one or more of the following:
UI99402 UI99403 UI99404 UI99405 PH64908
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 IGYCJBLD IGYCJGEN IGYCLIBR IGYCLSTR IGYCLVL0 IGYCLVL1 IGYCLVL2 IGYCLVL3 IGYCLVL8 IGYCMALL IGYCOPI IGYCOPT 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 IGYQSPLT IGYZQEN6 IGYZQENU IGYZQJP6 IGYZQJPN
Fix information
Fixed component name
ENT COBOL FOR Z
Fixed component ID
5655EC600
Applicable component levels
R640 PSY UI99402
UP24/12/17 P F412
R641 PSY UI99403
UP24/12/17 P F412
R642 PSY UI99404
UP24/12/17 P F412
R64H PSY UI99405
UP24/12/17 P F412
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"},"Platform":[{"code":"PF025","label":"Platform Independent"}],"Version":"640","Line of Business":{"code":"LOB70","label":"Z TPS"}}]
Document Information
Modified date:
16 June 2025