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 AMODE 64 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 for AMODE 64 programs: - 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
PH54241
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
CELQSG04 CELQV004 IGZQAPI IGZQCA64 IGZQCDA IGZQINPL IGZQJNI2 IGZQR004
Fix information
Fixed component name
LE ENT COBOL LI
Fixed component ID
568819812
Applicable component levels
R7C0 PSY UI91841
UP23/05/26 P F305
R7D0 PSY UI91842
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