A fix is available
APAR status
Closed as program error.
Error description
The COBOL Language Reference Manual notes that In the WORKING-STORAGE [and LOCAL-STORAGE] SECTION[s], the compiler aligns all level-01 entries on a doubleword boundary. However, when a level-01 item is redefined, it incorrectly takes on the alignment of the redefinition. For example, in 01 filler pic x. 01 halfword-alignment pic x(2). 01 ha-rdf redefines halfword-alignment. 05 comp5 pic s9(4) comp-5. the level-01 item halfword-alignment becomes halfword aligned ie. starts on a 0x...2 or 0x...A offset, rather than 0x...0 or 0x...8 offset as it should, due to the natural alignment of the halfword redefine. In most cases this alignment problem is not a problem, though in isolated cases of invalid programs, it could cause an overlay of the redefined item.
Local fix
Problem summary
**************************************************************** * USERS AFFECTED: Users of Enterprise COBOL V5.2 compiling * * and running programs that contain 01 level * * data items that are redefined in * * WORKING-STORAGE or LOCAL-STORAGE sections. * **************************************************************** * PROBLEM DESCRIPTION: Incorrect results at run time if * * locations of WORKING-STORAGE data * * items is assumed: WORKING-STORAGE and * * LOCAL-STORAGE redefined 01 level data * * items are not aligned on a double word * * boundary. * * * **************************************************************** * RECOMMENDATION: Apply the provided PTF. * **************************************************************** When an 01 level data item is redefined in either WORKING-STORAGE or LOCAL-STORAGE, the data item is not aligned on a double word boundary if the redefining item does not require it.
Problem conclusion
The compiler was modified so that all WORKING-STORAGE and LOCAL-STORAGE 01-level data items are aligned on double word boundaries
Temporary fix
Comments
APAR Information
APAR number
PI90455
Reported component name
ENT COBOL FOR Z
Reported component ID
5655W3200
Reported release
520
Status
CLOSED PER
PE
NoPE
HIPER
NoHIPER
Special Attention
NoSpecatt / Xsystem
Submitted date
2017-11-20
Closed date
2017-11-23
Last modified date
2017-12-02
APAR is sysrouted FROM one or more of the following:
APAR is sysrouted TO one or more of the following:
Modules/Macros
IGY8RWTU IGYCBE IGYCCBE 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 IGYCOB2 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 IGYECWI IGYMSGE IGYMSGK IGYMSGT
Fix information
Fixed component name
ENT COBOL FOR Z
Fixed component ID
5655W3200
Applicable component levels
R520 PSY UI52092
UP17/11/30 P F711
R521 PSY UI52093
UP17/12/01 P F711
R522 PSY UI52094
UP17/12/01 P F711
R52H PSY UI52095
UP17/11/30 P F711
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":"520","Edition":"","Line of Business":{"code":"LOB17","label":"Mainframe TPS"}},{"Business Unit":{"code":"BU054","label":"Systems w\/TPS"},"Product":{"code":"SG19M","label":"APARs - z\/OS environment"},"Component":"","ARM Category":[],"Platform":[{"code":"PF025","label":"Platform Independent"}],"Version":"520","Edition":"","Line of Business":{"code":"","label":""}}]
Document Information
Modified date:
02 December 2017