PH48826: JSON GENERATE IMPROPERLY SUPPRESSES DATA-ITEMS WHEN OCCURS IS USED IN A TABLE

Obtain the fix for this APAR.

APAR status

• Closed as program error.

Error description

• JSON Generate improperly suppresses data-items when occurs is
  used in a table
  

Local fix

• N/A
  

Problem summary

• ****************************************************************
  * USERS AFFECTED: Users of Enterprise COBOL 6 and later        *
  *                 releases running programs using JSON         *
  *                 GENERATE statement with SUPPRESS phrase      *
  *                 on a nested table.                           *
  ****************************************************************
  * PROBLEM DESCRIPTION: The data items defined in a nested      *
  *                      table                                   *
  *                      using OCCURS clause are incorrectly     *
  *                      suppressed when JSON GENERATE with      *
  *                      SUPPRESS phrase is used. This problem   *
  *                      occurrs when an non-suppressed data     *
  *                      item  with occurs OCCURS clause is      *
  *                      followed  by a suppressed data item     *
  *                      with an OCCURS clause in a JSON         *
  *                      GENERATE statement.                     *
  *                                                              *
  *                      For example:                            *
  *                                                              *
  *                      1 GRP                                   *
  *                        2  DATA-A OCCURS 2 TIMES              *
  *                        2  DATA-B OCCURS 3 TIMES              *
  *                                                              *
  *                      JSON GEN DOC FROM GRP SUPPRESS DATA-B   *
  *                                                              *
  *                      In this case, DATA-A is incorrectly     *
  *                      suppressed as well.                     *
  ****************************************************************
  * RECOMMENDATION: Install the provided PTF.                    *
  ****************************************************************
  When JSON GENERATE with SUPPRESS is used with a nested table,
  the non-suppressed data-items in the table following the
  suppressed data-items are incorrectly suppressed. In the final
  JSON output the non-suppressed data items were not printed
  and are incorrectly suppressed.
  
  COB0601T/K COB0602T/K COB0603T/K
  

Problem conclusion

• The problem in the COBOL Runtime has been corrected. The problem
  was resolved by ensuring that the data-item's suppress flag in
  the nested table is reset at each iteration of OCCURS. This
  would ensure that the supress flag is set to a correct value
  before the data-item is assessed in JSON GENRATE.
  

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  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 UI82937

     UP22/10/28 P F210

• R7D0 PSY UI82938

     UP22/10/28 P F210

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.