A fix is available
APAR status
Closed as program error.
Error description
Prior to COBOL 5+'s use of GOFF object output and program objects, the classical object and load module formats imposed a limit of 16M on executables, which LIST offsets were large enough to accommodate. With COBOL 5+ there's no longer a 16M limit, causing the offset to wrap back to zero at every 16M boundary.
Local fix
Problem summary
**************************************************************** * USERS AFFECTED: Users of Enterprise COBOL 6.4 compiling * * programs with LIST or OFFSET where the * * combined size of the generated instructions * * and constant area is more than x'FFFFFF' * * bytes * **************************************************************** * PROBLEM DESCRIPTION: Offsets larger than six hex digits * * wrap around (so x'1000000' is displayed * * as x'000000') * **************************************************************** * RECOMMENDATION: Apply the provided PTF * **************************************************************** Offsets of instructions and the constant area are displayed in the listing as having only 6 hex digits.
Problem conclusion
The compiler was fixed to display offsets of instructions and the constant area with 8 hex digits when compiling with SOURCE(HEX)
Temporary fix
Comments
APAR Information
APAR number
PH51964
Reported component name
ENT COBOL FOR Z
Reported component ID
5655EC600
Reported release
640
Status
CLOSED PER
PE
NoPE
HIPER
NoHIPER
Special Attention
NoSpecatt / Xsystem
Submitted date
2023-01-17
Closed date
2023-01-23
Last modified date
2023-02-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 IGYCJBLD IGYCJGEN 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 IGYQSPLT IGYZQEN6 IGYZQENU IGYZQJP6 IGYZQJPN
Fix information
Fixed component name
ENT COBOL FOR Z
Fixed component ID
5655EC600
Applicable component levels
R640 PSY UI90218
UP23/01/26 P F301
R641 PSY UI90219
UP23/01/26 P F301
R642 PSY UI90220
UP23/01/26 P F301
R64H PSY UI90221
UP23/01/26 P F301
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":"640","Line of Business":{"code":"LOB35","label":"Mainframe SW"}}]
Document Information
Modified date:
12 December 2023