PI71621: CORRECT JSON SUPPRESS I/O ISSUES

Obtain the fix for this APAR.

APAR status

• Closed as program error.

Error description

• JSON GENERATE incorrect output when using a SUPPRESS keyword:
  - misplaced right brace after suppression;
  - excessive suppression with "Occurs Depending On"/ODO
  - extra comma, after excessive suppression
  

Local fix

Problem summary

• ****************************************************************
  * USERS AFFECTED: Enterprise COBOL V6R1 users compiling and    *
  *                 running programs that contain JSON GENERATE  *
  *                 statements with the SUPPRESS phrase.         *
  *                                                              *
  ****************************************************************
  * PROBLEM DESCRIPTION: Incorrect output at runtime: The        *
  *                      generated JSON document is invalid in   *
  *                      some instances.                         *
  *                                                              *
  ****************************************************************
  * RECOMMENDATION: Apply the provided PTF.                      *
  *                                                              *
  ****************************************************************
  The generation of the JSON document has been corrected.
  Updates to the JSON GENERATE topics in the Enterprise COBOL for
  z/OS, V6R1 Language Reference will be published by the end of
  June 2017 to better reflect the JSON representation of an empty
  group; and TABLE with 0 elements.
  
  https://www-01.ibm.com/support/docview.wss?uid=swg27036733#61
  
  FIXCAT keyword:  COB0501T/K   COB0502T/K   COB0601T/K
  

Problem conclusion

• The COBOL V6R1 compiler APAR PI82740 will enable the new
  behaviour of the JSON GENERATE statement.  This APAR is to
  provide the runtime support for it.
  

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:

  UI48164 UI48165

Modules/Macros

• IGZCEV4  IGZLLIBV IGZXAPI  IGZXDMR  IGZXD24
  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

• R7A0 PSY UI48164

     UP17/06/29 P F706

• R790 PSY UI48165

     UP17/06/29 P F706

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.