A fix is available
APAR status
Closed as program error.
Error description
A called called common or nested program contains an IF statement, with a CONTINUE statement that may is generate an incorrect branch calculation - resulting in a branch into unallocated storage.
Local fix
Compile with OPT(0).
Problem summary
**************************************************************** * USERS AFFECTED: Users of Enterprise COBOL 6.3 compiling * * programs at OPT(1|2) where a nested program * * is called more than once from other * * programs * * (both the main program or other nested * * programs) and has a branch from an earlier * * paragraph or section of the program to a * * later one, such as a CONTINUE or GOTO * * PARAGRAPH-NAME. * **************************************************************** * PROBLEM DESCRIPTION: The CONTINUE or GOTO within a nested * * program may branch to an incorrect * * location * **************************************************************** * RECOMMENDATION: Apply the provided PTF * **************************************************************** Nested programs may be inlined, replacing a CALL of a nested program with the nested program itself. When a nested program is CALLed more than once, it may be inlined more than once, and there may also be a non-inlined copy of the program. When compiling the second and subsequent copies of the nested program, the compiler's internal state incorrectly linked the start of a named section with an instruction generated for a previous copy of the nested program. The compiler used this incorrect internal state to generate a branch to an incorrect location.
Problem conclusion
The compiler was fixed so its internal state does not link the start of a named section in one copy of a program with another copy of the program.
Temporary fix
Comments
APAR Information
APAR number
PH39254
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-07-23
Closed date
2021-07-23
Last modified date
2021-08-09
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 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 UI76440
UP21/07/30 P F107
R631 PSY UI76441
UP21/07/30 P F107
R632 PSY UI76442
UP21/07/30 P F107
R63H PSY UI76443
UP21/07/30 P F107
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