APAR status
Closed as unreproducible in next release.
Error description
This abend occurs due to support for dynamic length and PIC U items not yet being present in the COBOL runtime support for the formatting of variable values. This can cause a CEEDUMP or Fault Analyzer to terminate on the unsupported item.
Local fix
Problem summary
**************************************************************** * USERS AFFECTED: Users of Enterprise COBOL 6.3 and later * * releases running programs that use * * DYNAMIC LENGTH or PIC U clauses and produce * * a CEEDUMP during program execution. * **************************************************************** * PROBLEM DESCRIPTION: Unexpected 0C4 abend may occur * * during CEEDUMP processing or the * * generated * * CEEDUMP may be incomplete. * * * * One of such abends can occur in entry * * 'get_byte_size' in IGZCEV4 module. * **************************************************************** * RECOMMENDATION: Install the provided PTF. * **************************************************************** NEW FUNCTION. COB0603T/K COB0604T/K
Problem conclusion
Temporary fix
Comments
NEW FUNCTION. COBOL Runtime CEEDUMP process has been improved to support the following new clauses added to COBOL 6.3 and later releases: - DYNAMIC LENGTH clause - PIC U For example, 01 D1 PIC X DYNAMIC. 01 D2 PIC X DYNAMIC LIMIT 3. 01 D3 PIC U DYNAMIC. 01 D4 PIC U DYNAMIC LIMIT 3. 01 D4 PIC U(5). 01 D4 PIC U byte-length 4.
APAR Information
APAR number
PH54240
Reported component name
LE ENT COBOL LI
Reported component ID
568819812
Reported release
7D0
Status
CLOSED UR1
PE
NoPE
HIPER
NoHIPER
Special Attention
NoSpecatt / Xsystem
Submitted date
2023-05-01
Closed date
2023-05-16
Last modified date
2023-06-01
APAR is sysrouted FROM one or more of the following:
APAR is sysrouted TO one or more of the following:
Modules/Macros
IGZCER4 IGZCEV4 IGZCJNI2 IGZLLIBV IGZXAPI IGZXCA31 IGZXCDA IGZXD24 IGZXDMR IGZXJNI2 IGZXLPIO IGZXLPKA IGZXLPKB IGZXLPKC IGZXLPKD IGZXLPKE IGZXLPKF IGZXLPKG IGZXPK2
Fix information
Fixed component name
LE ENT COBOL LI
Fixed component ID
568819812
Applicable component levels
R7C0 PSY UI91839
UP23/05/26 P F305
R7D0 PSY UI91840
UP23/05/26 P F305
[{"Business Unit":{"code":"BU011","label":"Systems - zSystems software"},"Product":{"code":"SG19O","label":"Enterprise COBOL for z\/OS"},"Platform":[{"code":"PF054","label":"z Systems"}],"Version":"7D0"}]
Document Information
Modified date:
01 June 2023