A fix is available
APAR status
Closed as program error.
Error description
When compiling COBOL program with invocation parameter TEST(S,EJPD), the corresponding compiler option in effect is TEST(NOEJPD,SOURCE). Using the abbreviation for SOURCE, if specified prior to EJPD in sub options, causes NOEJPD to be in effect.
Local fix
Specify TEST(SOURCE,EJDP) or TEST(EJPD,S)
Problem summary
**************************************************************** * USERS AFFECTED: Users of Enterprise COBOL V5.1 compiling * * with the TEST(S,EJPD) compiler option using * * the abbreviation S for SOURCE. * * * **************************************************************** * PROBLEM DESCRIPTION: The wrong TEST sub-option takes effect * * at compile time: When compiling a * * program with the TEST(S,EJPD) compiler * * option the compiler option in effect * * ends up to be TEST(NOEJPD,SOURCE). * * * **************************************************************** * RECOMMENDATION: Apply the provided PTF. * * * **************************************************************** When compiling with TEST(S,EJPD) the compiler erroneously skipped the EJPD sub-option. So the option in effect ended up TEST(NOEJPD,SOURCE).
Problem conclusion
The compiler was modified so to not skip the EJPD sub-option when SOURCE is abbreviated with S in TEST(S,EJPD).
Temporary fix
Comments
APAR Information
APAR number
PI73037
Reported component name
ENT COBOL FOR Z
Reported component ID
5655W3200
Reported release
510
Status
CLOSED PER
PE
NoPE
HIPER
NoHIPER
Special Attention
NoSpecatt / Xsystem
Submitted date
2016-11-30
Closed date
2017-02-13
Last modified date
2017-03-02
APAR is sysrouted FROM one or more of the following:
APAR is sysrouted TO one or more of the following:
PI74580 UI44623 UI44624 UI44625
Modules/Macros
IGYCCICS IGYCLVL0 IGYCLVL1 IGYCLVL2 IGYCLVL3 IGYCLVL8 IGYCRWT IGYDCNTL IGYDGPIC IGYDMETA IGYDPR01 IGYDPR02 IGYDPR03 IGYDPR04 IGYDPR05 IGYDPR06 IGYDPR07 IGYEADAT IGYECNTL IGYEEN$D IGYEEN$R IGYEEN$0 IGYEEN$1 IGYEEN$2 IGYEEN$3 IGYEEN$4 IGYEEN$5 IGYEEN$8 IGYEJA$D IGYEJA$R IGYEJA$0 IGYEJA$1 IGYEJA$2 IGYEJA$3 IGYEJA$4 IGYEJA$5 IGYEJA$8 IGYEMSGS IGYEUE$D IGYEUE$R IGYEUE$0 IGYEUE$1 IGYEUE$2 IGYEUE$3 IGYEUE$4 IGYEUE$5 IGYEUE$8 IGYFCNTL IGYFFCB IGYFFIB IGYFFIB1 IGYFSRVE IGYGCNTL IGYGGCLC IGYGITXT IGYGMETA IGYGPR01 IGYGPR02 IGYGPR03 IGYGPR04 IGYGPR05 IGYHADAT IGYHCNTL IGYIADAT IGYICNTL IGYKADAT IGYKCNFL IGYKCNTL IGYKSTAT IGYLADAT IGYLBASI IGYLCNTL IGYLCOPY IGYLLIBH IGYLLIBO IGYLSRVE IGYMCNTL IGYMDIAG IGYMDMAP IGYMXREF IGYNARIT IGYNCNTL IGYNCOND IGYNDATA IGYNEROR IGYNEVAL IGYNFUNC IGYNINOU IGYNLINK IGYNPRFM IGYNPROC IGYNSORT IGYNSRVE IGYNXML IGYPACCP IGYPADAT IGYPADSB IGYPARTH IGYPASBB IGYPASFF IGYPASII IGYPASSL IGYPCALC IGYPCBB IGYPCCLB IGYPCDD IGYPCDNL IGYPCFF IGYPCLAS IGYPCLSI IGYPCMPR IGYPCNDX IGYPCNTL IGYPCPTR IGYPCTLS IGYPCXN IGYPDBUG IGYPDECL IGYPDELT IGYPDISP IGYPDVBB IGYPDVDE IGYPDVFF IGYPDVII IGYPDVSL IGYPERR IGYPEVAL IGYPEXPO IGYPEXSL IGYPFALF IGYPFDAT IGYPFLIB IGYPFMOR IGYPFMTH IGYPFNUM IGYPFRDM IGYPFSAM IGYPFUNC IGYPFUNI IGYPGNT IGYPGPFM IGYPINIT IGYPINI2 IGYPINSP IGYPINVK IGYPIOCM IGYPIPI IGYPLINK IGYPMAA IGYPMAAE IGYPMBB IGYPMBD IGYPMDB IGYPMEE IGYPMEI IGYPMERG IGYPMFF IGYPMFX IGYPMGX IGYPMHX IGYPMID IGYPMLND IGYPMNEN IGYPMNNE IGYPMOVE IGYPMQX IGYPMTHI IGYPMUNE IGYPMVV IGYPMVX IGYPMXF IGYPMXG IGYPMXH IGYPMXN IGYPMXQ IGYPMXV IGYPMZND IGYPNATC IGYPON IGYPOPCL IGYPREAD IGYPREWR IGYPSBSC IGYPSET IGYPSORT IGYPSRCH IGYPSRTM IGYPSRVE IGYPSTNG IGYPSTOR IGYPSTRT IGYPTEXT IGYPTIBB IGYPTIFF IGYPTIII IGYPTIMS IGYPTISL IGYPTMGT IGYPTSMG IGYPUCP IGYPUNST IGYPUSE IGYPVALU IGYPWRIT IGYPXGF IGYPXLDD IGYPXPS IGYQCNRD IGYQCNTL IGYQMETA IGYQPR01 IGYQPR02 IGYQPR03 IGYQPR04 IGYQPR05 IGYQPR06 IGYQPR07 IGYQPR08 IGYQPR09 IGYQPR10 IGYQPR11 IGYQPR12 IGYQPR13 IGYQPR14 IGYQPR15 IGYRABRT IGYRBECB IGYRCBSU IGYRCNTL IGYRNATC IGYRPCER IGYRSRVE IGYSADAT IGYSCBL IGYSCICS IGYSCNTL IGYSERR IGYSITEM IGYSJAVA IGYSMETA IGYSNATC IGYSPARS IGYSPR01 IGYSREAD IGYSSQL IGYSTERM IGYSTPUT IGYTALIA IGYTCICS IGYTCNTL IGYTDICT IGYTIMS IGYTIMS1 IGYTIMS2 IGYTMWTR IGYTPUTE IGYTSMGT IGYTSQL IGYTSQL1 IGYTSQL2 IGYTTMAP IGYTTMGT IGYVCNTL IGYVPIPI IGYVSRVE IGYWADSP IGYWCNTL IGYWDBG1 IGYWDBUG IGYWINIT IGYWSYM IGYXACCM IGYXADAT IGYXCNTL IGYXPRNT IGYXPRN2 IGYXSORT IGYXVREF IGY0CNTL IGY1CNTL IGY1CTXT IGY1ETRC IGY1ETXT IGY1FMAT IGY1FTRC IGY1HTRC IGY1ITXT IGY1LTRC IGY1LTXT IGY1MTRC IGY1MTXT IGY1PFLG IGY1PTRC IGY1SNAP IGY1STRC IGY1TERR IGY1TFLD IGY1TRCE IGY1TXLN IGY1WCOD IGY1WTRC IGY1XBCD IGY1XTRC IGY8RWTU
Fix information
Fixed component name
ENT COBOL FOR Z
Fixed component ID
5655W3200
Applicable component levels
R510 PSY UI44623
UP17/02/24 P F702
R511 PSY UI44624
UP17/02/25 P F702
R512 PSY UI44625
UP17/02/25 P F702
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":"510","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":"510","Edition":"","Line of Business":{"code":"","label":""}}]
Document Information
Modified date:
02 March 2017