A fix is available
APAR status
Closed as program error.
Error description
The compile listing numbers base locators starting with 1 in the MAP option output and the "Data Division Map" report, but the CEEDUMP numbers them starting at zero.
Local fix
None, other than keeping the difference in mind when using the CEEDUMP
Problem summary
**************************************************************** * USERS AFFECTED: Users of Enterprise COBOL 6.3 and later * * releases running AMODE 64 programs which * * produce a CEEDUMP with base locator (BL) * * cells listed in the CEEDUMP. * **************************************************************** * PROBLEM DESCRIPTION: The number ordering for base locator * * (BL) cells in a generated CEEDUMP does * * not start at the same index as listed * * in the compiler listings. * **************************************************************** * RECOMMENDATION: Install the provided PTF. * **************************************************************** Depending on the type of base locator (BL) cell, the number ordering in the CEEDUMP for some BL cells start at 0 while the numbering for the same BL cell starts at 1 in the compiler listing or vice-versa. COB0603T/K COB0604T/K
Problem conclusion
The COBOL Runtime logic has been fixed to follow the same number ordering for base locator (BL) cells as listed in the compiler listings.
Temporary fix
Comments
APAR Information
APAR number
PH47185
Reported component name
LE ENT COBOL LI
Reported component ID
568819812
Reported release
7D0
Status
CLOSED PER
PE
NoPE
HIPER
NoHIPER
Special Attention
NoSpecatt / Xsystem
Submitted date
2022-06-13
Closed date
2022-07-25
Last modified date
2022-08-02
APAR is sysrouted FROM one or more of the following:
APAR is sysrouted TO one or more of the following:
Modules/Macros
CELQSG04 CELQV004 IGZQAPI IGZQCA64 IGZQCDA IGZQINPL IGZQJNI2
Fix information
Fixed component name
LE ENT COBOL LI
Fixed component ID
568819812
Applicable component levels
R7B0 PSY UI81617
UP22/07/29 P F207
R7C0 PSY UI81618
UP22/07/29 P F207
R7D0 PSY UI81621
UP22/07/29 P F207
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":"7D0","Line of Business":{"code":"LOB35","label":"Mainframe SW"}}]
Document Information
Modified date:
02 August 2022