PH40288: JSON GENERATE SUPPRESSES INCORRECT FIELDS WHEN THE SUPPRESS WHEN CLAUSE IS USED

Obtain the fix for this APAR.

APAR status

• Closed as program error.

Error description

• JSON GENERATE suppresses incorrect fields when the SUPPRESS WHEN
  clause is used
  

Local fix

• N/A
  

Problem summary

• ****************************************************************
  * USERS AFFECTED: Users of Enterprise COBOL V6.1 and later     *
  *                 releases running programs that use JSON      *
  *                 GENERATE with the SUPPRESS WHEN ZERO phrase. *
  ****************************************************************
  * PROBLEM DESCRIPTION: There are missing data items in the     *
  *                      generated JSON document from JSON       *
  *                      GENERATE output when the SUPPRESS WHEN  *
  *                      ZERO phrase is used.                    *
  ****************************************************************
  * RECOMMENDATION: Install provided PTF.                        *
  ****************************************************************
  There is a logic error in the JSON GENERATE routine when it is
  used with the SUPPRESS WHEN ZERO phrase. When JSON GENERATE
  SUPPRESS <identifier> WHEN ZERO is used, if the output value is
  a data item subordinate to <identifier> and it is zero,
  <identifier> may incorrectly be suppressed. Other data items
  subordinate to <identifier> may be missing from the JSON output.
  
  COB0601T/K COB0602T/K COB0603T/K
  

Problem conclusion

• The error in the COBOL runtime library JSON GENERATE routine
  has been corrected.
  

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:

  UI77335 UI77337 UI77339

Modules/Macros

• IGZCER4  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 UI77335

     UP21/10/01 P F109

• R7C0 PSY UI77337

     UP21/10/01 P F109

• R7D0 PSY UI77339

     UP21/10/01 P F109

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.