A fix is available
APAR status
Closed as program error.
Error description
COBOL compiler fails to diagnose 2 WHEN phrases in a SEARCH ALL statement and goes into a loop
Local fix
Do not code 2 WHEN phrases
Problem summary
**************************************************************** * USERS AFFECTED: Users of Enterprise COBOL V6.3 who * * accidentally code 2 WHEN phrases in a nested * * SEARCH ALL statement. * **************************************************************** * PROBLEM DESCRIPTION: The compiler will get into an infinite * * loop, and not put out a diagnostic * * error message. If 2 WHENs are in a * * non-nested SEARCH ALL, the compiler * * correctly diagnoses the error, but not * * if the 2 WHENs are coded for a SEARCH * * ALL nested in another SEARCH ALL. * **************************************************************** * RECOMMENDATION: Apply the provided PTF. * **************************************************************** The compiler got confused parsing the nested SEARCH ALL and failed to diagnose the error and tried to generate code for an impossible case. (Only 1 WHEN is allowed in SEARCH ALL statements).
Problem conclusion
The compiler was changed to correctly diagnose the second WHEN and prevent the back end from trying to generate code for a defective program.
Temporary fix
Comments
APAR Information
APAR number
PH37330
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
2021-05-18
Closed date
2021-05-19
Last modified date
2021-06-02
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 IGYCOB2E 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 IGYSIDE2 IGYZQEN6 IGYZQENU IGYZQJP6 IGYZQJPN
Fix information
Fixed component name
ENT COBOL FOR Z
Fixed component ID
5655EC600
Applicable component levels
R630 PSY UI75468
UP21/05/29 P F105
R631 PSY UI75469
UP21/05/29 P F105
R632 PSY UI75470
UP21/05/29 P F105
R63H PSY UI75471
UP21/05/29 P F105
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