A fix is available
APAR status
Closed as unreproducible in next release.
Error description
IGYDG5125-U The compilation was terminated due to a compiler error in phase id: "IGYCDGEN". Compiler failure in IGYCDGEN - compiler error code "WSYM-01" occurred.
Local fix
Problem summary
**************************************************************** * USERS AFFECTED: All users of Enterprise COBOL for z/OS V5.1, * * especially those who: * * 1) Want to run COBOL V5 programs w/AMODE 24 * * 2) Have REDEFINES and get compiler abort * * IGYDG5201-U INTERNAL COMPILER ERROR * * CODE "WSYM-01" OCCURRED. * * 3) Use the MSGEXIT compiler option with * * FLAGSTD(H) and get poor compiler performance * * 4) Use sample job IGYWSMPE * * 5) Use compiler option MAP and CICS * * * **************************************************************** * PROBLEM DESCRIPTION: This APAR addresses multiple items: * * 1) COBOL V5 programs were not allowed * * to run with AMODE 24 * * 2) Users who have a data item that * * REDEFINES a data item that is either a * * level 66 RENAMES or that is a level 88 * * condition-name can get this compiler * * ABORT: IGYDG5201-U INTERNAL COMPILER * * ERROR CODE "WSYM-01" OCCURRED. * * 3) Slow compilation with FLAGSTD(H) * * and EXIT(MSGEXIT(xxx)) compiler options * * (This part is a SYSROUTE of Version 4.2 * * APAR PI08343) * * 4) Users of sample job IGYWSMPE can get * * job failure with not enough storage * * 5) Missing MAP information for CICS * * generated linkage structures * * * **************************************************************** * RECOMMENDATION: Apply the provided PTF. * * * **************************************************************** 1) Enterprise COBOL V5 was not originally designed to handle AMODE 24 execution 2) The compiler was not diagnosing illegal data definitions and the result was a compiler ABORT 3) The compiler was calling the MSGEXIT routine too many times in the case of FLAGSTD(H) 4) Sample job IGYWSMPE was not allocating enough space for processing service items for Enterprise COBOL Version 5 5) The compiler was not generating MAP information for CICS generated linkage structures when compiling with CICS option
Problem conclusion
Temporary fix
Comments
1) Change compiler and runtime to support AMODE 24 execution except in the following cases, which must run with AMODE 31: -Programs containing XML PARSE statements -Programs containing XML GENERATE statements -Application modules containing COBOL bound together with C, C++, or PL/I, communicating via static CALL. -Programs containing object-oriented language syntax, such as INVOKE statements, or object-oriented class definitions -Programs compiled with any of the following compiler options: DLL PGMNAME(LONGUPPER) PGMNAME(LONGMIXED) -Multithreaded applications Note: A program compiled with the THREAD option can run in AMODE 24, but only in an application that does not have multiple threads or PL/I tasks. -Programs run from the z/OS UNIX file system Note: An AMODE 31 driver program resident in the z/OS UNIX file system can contain a dynamic call to an AMODE 24 program module resident in an MVS PDS or PDSE. -Programs used as COBOL compiler exit modules that are specified on the EXIT compiler option -Language Environment enclaves that use XPLINK, including either enclaves that contain non-COBOL programs compiled with the XPLINK compiler option, or run with the XPLINK runtime option 2) The compiler was changed to diagnose the case of a data item with a REDEFINES object that is a defined with RENAMES (a level 66 data item) or that is a condition-name (a level 88 data item) can get this compiler ABORT: IGYDS1066-S "REDEFINES" object "xxx" was not the immediately preceding level-1 data item. The "REDEFINES" clause was discarded. 3) The compiler was changed to only call the MSGEXIT routine for messages that would be issued in the case of FLAGSTD(H) 4) Sample job IGYWSMPE was modified to have larger size value for temporary work data sets 5) Generate MAP information for CICS generated linkage structures
APAR Information
APAR number
PM93583
Reported component name
ENT COBOL FOR Z
Reported component ID
5655W3200
Reported release
510
Status
CLOSED UR1
PE
NoPE
HIPER
NoHIPER
Special Attention
YesSpecatt / New Function / Installability /
Pervasive
Submitted date
2013-07-22
Closed date
2014-03-10
Last modified date
2014-04-02
APAR is sysrouted FROM one or more of the following:
APAR is sysrouted TO one or more of the following:
UI16133 UI16134 UI16135
Modules/Macros
IGYADXIT IGYCDOPT IGYCLVL0 IGYCOPI IGYCOPT IGYCRWT IGYDMETA IGYDPR03 IGYDPR04 IGYDPR06 IGYEEN$R IGYEEN$0 IGYEEN$4 IGYEJA$D IGYEJA$R IGYEJA$0 IGYEJA$1 IGYEJA$2 IGYEJA$3 IGYEJA$4 IGYFCNTL IGYFFCB IGYFFIB IGYFFIB1 IGYICNTL IGYKCNFL IGYKCNTL IGYKSTAT IGYLADAT IGYLBASI IGYLCNTL IGYLCOPY IGYLLIBH IGYLLIBO IGYLSRVE IGYPCTLS IGYPFALF IGYPLINK IGYPSRVE IGYPTEXT IGYQMETA IGYQPR03 IGYQPR07 IGYQPR14 IGYSCNTL IGYSITEM IGYSSQL IGYTALIA IGYTCNTL IGYTIMS IGYTIMS1 IGYTIMS2 IGYTPUTE IGYTSQL IGYTSQL1 IGYTSQL2 IGYVCNTL IGYVSRVE IGYWDBG1 IGYWDBUG IGYWINIT IGYWSMPE IGYWSYM
Fix information
Fixed component name
ENT COBOL FOR Z
Fixed component ID
5655W3200
Applicable component levels
R510 PSY UI16133
UP14/03/20 P F403
R511 PSY UI16134
UP14/03/20 P F403
R512 PSY UI16135
UP14/03/20 P F403
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:
02 April 2014