PH38148: JSON GENERATE DOES NOT HONOR THE TRUNC(BIN) COMPILER OPTION AND INCORRECTLY REQUIRES DATA TO FIT INTO THE PICTURE CLAUSE

Obtain the fix for this APAR.

APAR status

• Closed as program error.

Error description

• With TRUNC(BIN), a JSON GENERATE of a 5-digit data value into a
  PIC S9(4) BINARY data item truncates the high order digit,
  moving only the lower 4 of the 5 digits into the receiving field
  (i.e. it aligns at the decimal point and then the left-most
  digit is truncated).  TRUNC(BIN) does not seem to be honored
  with JSON GENERATE and the data is truncated to fit into its
  picture clause.
  

Local fix

Problem summary

• ****************************************************************
  * USERS AFFECTED: Users of Enterprise COBOL V6.3 compiling     *
  *                 and running programs containing the JSON     *
  *                 GENERATE or XML GENERATE statement with the  *
  *                 TRUNC(BIN) compiler option in effect.        *
  ****************************************************************
  * PROBLEM DESCRIPTION: In some cases the generated XML and/or  *
  *                      JSON may contain numeric values that    *
  *                      do not respect the TRUNC(BIN)           *
  *                      truncation rules when the TRUNC(BIN)    *
  *                      option is in effect..                   *
  ****************************************************************
  * RECOMMENDATION: Apply the provided PTF.                      *
  ****************************************************************
  In some cases the compiler was generating code that did not
  respect the TRUNC(BIN) option in cases where the XML GENERATE
  and JSON GENERATE statements were producing output from numeric
  COBOL data items.
  

Problem conclusion

• The compiler was changed to generate the correct code.
  

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:

  PH39966

Modules/Macros

• IGY8RWTU IGYCASMB IGYCCBE  IGYCCCRT IGYCCICS IGYCCSRV IGYCDGEN
  IGYCDIAG IGYCDMAP IGYCEN$0 IGYCEN$1 IGYCEN$2 IGYCEN$3 IGYCEN$4
  IGYCEN$5 IGYCEN$8 IGYCEN$D IGYCEN$R IGYCFGEN IGYCFREE IGYCINIT
  IGYCJA$0 IGYCJA$1 IGYCJA$2 IGYCJA$3 IGYCJA$4 IGYCJA$5 IGYCJA$8
  IGYCJA$D IGYCJA$R IGYCLIBR IGYCLSTR IGYCLVL0 IGYCLVL1 IGYCLVL2
  IGYCLVL3 IGYCLVL8 IGYCMALL IGYCOSCN IGYCPGEN IGYCRCTL IGYCRDPR
  IGYCRDSC IGYCREAL IGYCRWT  IGYCSCAN IGYCSIMD IGYCUE$0 IGYCUE$1
  IGYCUE$2 IGYCUE$3 IGYCUE$4 IGYCUE$5 IGYCUE$8 IGYCUE$D IGYCUE$R
  IGYCXREF IGYDRV   IGYEQCWI IGYMSGE  IGYMSGK  IGYMSGT  IGYQCBE
  IGYQSPLT IGYSIDE2 IGYZQEN6 IGYZQENU IGYZQJP6 IGYZQJPN
  

Fix information

• Fixed component name

  ENT COBOL FOR Z

• Fixed component ID

  5655EC600

Applicable component levels

• R630 PSY UI76440

     UP21/07/30 P F107

• R631 PSY UI76441

     UP21/07/30 P F107

• R632 PSY UI76442

     UP21/07/30 P F107

• R63H PSY UI76443

     UP21/07/30 P F107

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.