PH42360: JSON GENERATE DOES NOT SUPPRESS FULLY WITH THE SUPPRESS WHEN SPACE CLAUSE

Obtain the fix for this APAR.

APAR status

• Closed as program error.

Error description

• JSON Generate does not suppress fully with the SUPPRESS WHEN
  SPACE clause
  

Local fix

• N/A
  

Problem summary

• ****************************************************************
  * USERS AFFECTED: Users of Enterprise COBOL V6 and later       *
  *                 releases running programs using JSON         *
  *                 GENERATE with SUPPRESS phrase.               *
  ****************************************************************
  * PROBLEM DESCRIPTION: JSON output was suppressed incorrectly  *
  *                      when JSON GENRATE was used to SUPRESS   *
  *                      data items. The suppressed data items   *
  *                      were incorrectly printed along with an  *
  *                      extra comma inside their corresponding  *
  *                      parenthesises. This problem happened    *
  *                      when OCCURS was used with Picture       *
  *                      clause (PIC) inside the user defined    *
  *                      JSON data structure.                    *
  *                                                              *
  *                      Example: In this JSON output, "         *
  *                      DataElement" should be suppressed but   *
  *                      it is still being printed with the      *
  *                      extra comma in square parenthesises.    *
  *                                                              *
  *                      {"JsonStructure":{"DataTable":{"        *
  *                      DataElement":[,]}}}                     *
  ****************************************************************
  * RECOMMENDATION: Install the provided PTF.                    *
  ****************************************************************
  When JSON GENERATE with SUPPRESS was used on data items with
  OCCURS specified, it did not fully suppress the intended data
  items, and printed them in the JSON text with a comma in the
  brackets.
  
  COB0601T/K COB0602T/K COB0603T/K
  

Problem conclusion

• The error in the COBOL Runtime has been corrected. The problem
  was resolved by ensuring that suppressed data-items and their
  roots were not printed in the JSON output. In addition,
  the method by which a comma between data-items was printed was
  modified to ensure when a data-item was suppressed,
  its corresponding comma was deleted.
  

Temporary fix

Comments

APAR Information

• APAR is sysrouted FROM one or more of the following:

• APAR is sysrouted TO one or more of the following:

Modules/Macros

• IGZCEV4  IGZCMGEN IGZCMGUE 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

• R7B0 PSY UI79086

     UP22/02/01 P F201

• R7C0 PSY UI79087

     UP22/02/01 P F201

• R7D0 PSY UI79088

     UP22/02/01 P F201

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.