A fix is available
APAR status
Closed as new function.
Error description
New function to allow users to set OPTFILE as default but not affect compiles with no SYSOPTF file available. Users would like to have the presence or absence of SYSOPTF determine whether it is used or not.
Local fix
Problem summary
**************************************************************** * USERS AFFECTED: Users of Enterprise COBOL V6.3 who want a * * flexible way to use OPTFILE and SYSOPTF for * * compiler options or want to suppress * * optimizer messages about inlining of code. * **************************************************************** * PROBLEM DESCRIPTION: Incorrect output: If OPTFILE is set as * * a default compiler * * option, then compiles with no SYSOPTF * * file will get RC=8 with an Error * * message. Also, some users want to * * suppress or ignore optimizer messages * * about inlining (IGYCB7312) * **************************************************************** * RECOMMENDATION: Install provided PTF and use new sample * * MSGEXIT. * **************************************************************** The severity of message 4019 was 'E' so that if OPTFILE was specified and no SYSOPTF was found, the compile got a return code 8. Also, the sample MSGXIT routine, IGYMSGXT, did not have a sample suppression of optimizer inlining message IGYCB7312.
Problem conclusion
The severity of message 4019 was changed from 'E' to 'W' so that a MSGEXIT could be used to suppress the message entirely. In addition, message 4019 was added to the sample MSGEXIT (Member IGYMSGXIT in SIGYSAMP) to show users how to customize the severity of message 4019. With this customization, OPTFILE can be a system-wide default, but only compilations that specify a SYSOPTF file will be affected. Compilations with no SYSOPTF file will behave exactly the same as before. In addition, message 7312 was added to the sample MSGXIT to suppress it. Here are the additions to IGYMSGXT, they can be added to any MSGEXIT routine: ********************************************************** * Change severity of message 4019 to suppress this message. * Message 4019 says 'Compiler option "OPTFILE" was specified, * but file SYSOPTF could not be opened. No options from a * "SYSOPTF" file were used. * This customization would allow users to specify OPTFILE * as a default option and it would only have an affect * if there is a SYSOPTF file present ************************************************************ When(4019) Compute EXIT-USER-SEV = -1 ************************************************************ * Note: descriptions of 7300-7309 are unchanged) * 7312: Procedure starting at 'proc-name' (line 'num') was * copied one or more times to be inlined for PERFORM * statements. xxx total bytes were generated from * copying that procedure. *************************************************************** When(7300) When(7301) When(7302) When(7304) When(7307) When(7309) When(7312) Compute EXIT-USER-SEV = -1 *> Suppress the messages
Temporary fix
Comments
APAR Information
APAR number
PH29714
Reported component name
ENT COBOL FOR Z
Reported component ID
5655EC600
Reported release
630
Status
CLOSED PER
PE
NoPE
HIPER
NoHIPER
Special Attention
NoSpecatt / Xsystem
Submitted date
2020-09-21
Closed date
2020-11-23
Last modified date
2020-12-01
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 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 IGYMSGXT IGYQCBE IGYQSPLT IGYZQEN6 IGYZQENU IGYZQJP6 IGYZQJPN
Fix information
Fixed component name
ENT COBOL FOR Z
Fixed component ID
5655EC600
Applicable component levels
R630 PSY UI72712
UP20/11/28 P F011
R631 PSY UI72713
UP20/11/28 P F011
R632 PSY UI72714
UP20/11/28 P F011
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"},"Platform":[{"code":"PF025","label":"Platform Independent"}],"Version":"630","Line of Business":{"code":"LOB35","label":"Mainframe SW"}}]
Document Information
Modified date:
12 December 2023