A fix is available
APAR status
Closed as program error.
Error description
Local fix
BYPASS/CIRCUMVENTION: none
Problem summary
**************************************************************** * USERS AFFECTED: Users of Enterprise COBOL 6 and later * * releases running programs using JSON * * GENERATE statement with SUPPRESS phrase. * **************************************************************** * PROBLEM DESCRIPTION: The commas separating data-items in * * JSON output were incrrectly suppressed * * when JSON GENRATE was used to SUPRESS * * data-items. This problem occurs when a * * suppressed data-item is in between two * * non-suppressed data items. * * * * Example: 3 data items A, B, and C are * * defined. * * Where B is suppressed. * * * * Expected output: A , C * * Actual output : A C * **************************************************************** * RECOMMENDATION: Install the provided PTF. * **************************************************************** When JSON GENERATE with the SUPPRESS phrase was used, the commas between non-suppressed data-items were improperly suppressed. In the final JSON output the non-suppressed data items did not have a comma separating them. COB0601T/K COB0602T/K COB0603T/K
Problem conclusion
The COBOL Runtime logic has been corrected to ensure a comma is printed between every data-item where needed. In case a data-item is suppressed, only then the corresponding comma will be deleted to ensure there are no extra commas printed in the JSON output.
Temporary fix
Comments
APAR Information
APAR number
PH48857
Reported component name
ENT COBOL FOR Z
Reported component ID
5655EC600
Reported release
7D0
Status
CLOSED PER
PE
NoPE
HIPER
NoHIPER
Special Attention
NoSpecatt / Xsystem
Submitted date
2022-08-23
Closed date
2022-10-20
Last modified date
2022-11-01
APAR is sysrouted FROM one or more of the following:
APAR is sysrouted TO one or more of the following:
UI82937 UI82938
Modules/Macros
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
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:
01 November 2022