A fix is available
APAR status
Closed as program error.
Error description
When NOTEST(NODWARF) is specified in CBL v5+ the local variables are missing from the working area in CEEDUMP. Linkage Section, as seen in CEEDUMP, is not initialized when NOTEST(NODWARF) and TERMTHDACT(DUMP) options are used.
Local fix
N/A
Problem summary
**************************************************************** * USERS AFFECTED: Users of Enterprise COBOL V5 and later * * releases running programs that generate * * CEEDUMP with COBOL option NOTEST(NODWARF), * * or LE(Language Environment) runtime option * * TERMTHDACT(DUMP) or (UADUMP). * * * **************************************************************** * PROBLEM DESCRIPTION: 1. With NOTEST(NODWARF), DSA, WSA, and * * Static Working Area addresses are * * missing. * * * * 2. With TERMTHDACT(DUMP) or (UADUMP), * * BLL addresses are intermittently * * incorrect and no COBOL working storage * * is printed. * * * **************************************************************** * RECOMMENDATION: Apply the provided PTF. * * * **************************************************************** COBOL runtime had logic errors during CEEDUMP processing and resulted in missing DSA, WSA, and Static Working Area addresses and incorrect BLL addresses.
Problem conclusion
The CEEDUMP processing in COBOL runtime is corrected. With NOTEST(NODWARF), DSA, WSA, and RENT STATIC addresses are now printed. The title 'Static Working Area' has also been changed to 'RENT STATIC (Initial HEAP)' to reflect the recent updates in: z/OS Language Environment Vendor Interfaces - COBOL-specific vendor interfaces -- Language Environment vendor interfaces for AMODE 31 / AMODE 24 applications` --- IGZXAPI - COBOL file and runtime information query routine Below is an example in CEEDUMP output on DSA/WSA/RENT STATIC addresses, Local Variables: ... DSA for DIVME: 26DB4370 WSA for DIVME: 26DD4220 RENT STATIC (Initial HEAP) for DIVME: 26DD4588 When options TERMTHDACT(DUMP) or (UADUMP) is specified, correct BLL addresses and COBOL working storages are printed. Below is an example in CEEDUMP output, ... LINKAGE SECTION for DIVME BLL-0: 26DE7108 +000000 26DE7108 ... +000020 26DE7128 ... BLL-1: 26DD4520 +000000 26DD4520 ... +000020 26DD4540 ... WSA for DIVME: 26DD4220 RENT STATIC (Initial HEAP) for DIVME: 26DD4360 +000000 26DD4360 ... +000020 26DD4380 ... PROGRAM STATIC (WSA24, Data cell, HEAP) ... +000000 26DD4588 ... +000020 26DD45A8 ...
Temporary fix
Comments
APAR Information
APAR number
PH15116
Reported component name
LE ENT COBOL LI
Reported component ID
568819812
Reported release
7A0
Status
CLOSED PER
PE
NoPE
HIPER
NoHIPER
Special Attention
NoSpecatt / Xsystem
Submitted date
2019-07-31
Closed date
2019-08-29
Last modified date
2019-10-01
APAR is sysrouted FROM one or more of the following:
APAR is sysrouted TO one or more of the following:
UI65062 UI65063
Modules/Macros
CELQSG04 CELQV004 IGZBALCT IGZCEV4 IGZCMGEN IGZCMGJA IGZCMGUE IGZEDCCT IGZIBMCT IGZIGZCT IGZLLIBV IGZQCDA IGZQINPL IGZX2LW8 IGZX2UP8 IGZXAPI IGZXBSP4 IGZXBST4 IGZXCDA IGZXCFGU IGZXD24 IGZXDEA IGZXDED IGZXDER IGZXDMR IGZXLPIO IGZXLPKA IGZXLPKB IGZXLPKC IGZXLPKD IGZXLPKE IGZXLPKF IGZXLPKG IGZXMVU8 IGZXPK2
Fix information
Fixed component name
LE ENT COBOL LI
Fixed component ID
568819812
Applicable component levels
R7A0 PSY UI65064
UP19/09/06 P F909
R7B0 PSY UI65062
UP19/09/06 P F909
R7BJ PSY UI65063
UP19/09/06 P F909
R7C0 PSY UI65058
UP19/09/06 P F909
R7CJ PSY UI65059
UP19/09/06 P F909
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":"PF054","label":"z\/OS"}],"Version":"7A0","Line of Business":{"code":"LOB17","label":"Mainframe TPS"}}]
Document Information
Modified date:
08 January 2021