A fix is available
APAR status
Closed as program error.
Error description
Add a syntax check to verify that the SSRANGE sub-options are surrounded by a set of parenthesis when assembling the compiler default options usermod, IGYCDOP. When missing, the results are not as intended. For example, if SSRANGE=NOZLEN is coded, then the code incorrectly sets SSRANGE to NOSSRANGE with no invalid syntax error during the assembly. (The lack of parenthesis changes the logic path.) The output from the assembly of the usermod will say: IGY1023 (SSRANGE) SUBSCRIPT RANGE CHECKING WILL NOT BE PERFORMED Note also that when overriding any compiler option that has multiple suboptions, all sub-options must be listed in the override and not just some of the sub-options. SSRANGE=(NOZLEN) is not valid, but SSRANGE(NOZLEN,ABD) is valid.
Local fix
Add parenthesis to the SSRANGE option if missing in the default compiler options usermod.
Problem summary
**************************************************************** * USERS AFFECTED: Users of the Enterprise COBOL V6.2 compiler * * who try to set the default compiler option * * SSRANGE=NOZLEN in IGYCDOPT. * **************************************************************** * PROBLEM DESCRIPTION: Incorrect output: When the SSRANGE * * syntax as described in the * * Customization Guide is not followed, * * the compiler incorrectly interprets * * SSRANGE=NOZLEN as SSRANGE=NO. * **************************************************************** * RECOMMENDATION: Apply the provided PTF. * **************************************************************** When SSRANGE=NOZLEN was specified in IGYCDOPT, the compiler incorrectly interpreted it as SSRANGE=NO. This occurred because other suboptions must be enclosed in parentheses. If the user had specified SSRANGE=(NOZLEN), the compiler would have produced an error message because all suboptions are required, not just the one whose default value was to be overridden.
Problem conclusion
The compiler has been changed so that it checks for an exact match in the case of SSRANGE=NO. Any characters beyond NO in the suboption value will now produce an error message.
Temporary fix
Comments
APAR Information
APAR number
PI94451
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-02-28
Closed date
2018-03-15
Last modified date
2018-04-04
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 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 IGYWCL IGYWCLG IGYZQDRV IGYZQENU IGYZQJPN
Fix information
Fixed component name
ENT COBOL FOR Z
Fixed component ID
5655EC600
Applicable component levels
R620 PSY UI54510
UP18/03/28 P F803
R621 PSY UI54511
UP18/03/28 P F803
R622 PSY UI54512
UP18/03/28 P F803
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