PM81246: XML GENERATE IGNORES TRUNC(BIN) IN ENTERPRISE COBOL 4.2

Obtain the fix for this APAR.

APAR status

• Closed as program error.

Error description

• 5-digit Binary number PIC 9(04) with TRUNC(BIN) is missing
  a high order digit. Example- 32000 is wrongly cut to 2000.
  The XML GENERATE fails to honor the compiler option.
  02 data1  PICTURE 9(4) COMPUTATIONAL.
  MOVE 32000 TO data1.
  XML GENERATE output-string FROM data1.
  The result is <data1>2000</data1>.  That's wrong, it should be
  <data1>32000</data1>.
  

Local fix

• Instead of USAGE IS COMPUTATIONAL, use COMPUTATIONAL-5.
  ***
  ADDITIONAL SEARCHWORDS:
  COMP  COMP-5
  

Problem summary

• ****************************************************************
  * USERS AFFECTED: Users of Enterprise COBOL V4.2 who use the   *
  *                 verb XML GENERATE and the COMPILER option    *
  *                 TRUNC(BIN)                                   *
  *                                                              *
  ****************************************************************
  * PROBLEM DESCRIPTION: Truncated output of numeric variables.  *
  *                      For instance:                           *
  *                                                              *
  *                              CBL TRUNC(BIN)                  *
  *                              IDENTIFICATION DIVISION.        *
  *                              DATA DIVISION.                  *
  *                              WORKING-STORAGE SECTION.        *
  *                              01 g   PIC S9(04) BINARY.       *
  *                              01 doc PIC X(20).               *
  *                              PROCEDURE DIVISION.             *
  *                                    MOVE 32000 TO g           *
  *                                    XML GENERATE doc from g   *
  *                                    DISPLAY doc               *
  *                                    GOBACK.                   *
  *                              END PROGRAM.                    *
  *                                                              *
  *                      The output XML document is incorrect.   *
  *                      What is produced is:                    *
  *                       <g>2000</g>                            *
  *                                                              *
  *                      What should be produced is:             *
  *                       <g>32000</g>                           *
  *                                                              *
  ****************************************************************
  * RECOMMENDATION: Apply the provided PTF.                      *
  *                                                              *
  ****************************************************************
  The COBOL compiler, when generating code for XML GENERATE, was
  not correctly changing the precision when TRUNC(BIN) was used.
  

Problem conclusion

• The COBOL compiler is changed to increase the number of output
  digits consistent with BINARY values when TRUNC(BIN) is in
  effect.
  

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:

  UK91380

Modules/Macros

•    IGYPXGF
  

Fix information

• Fixed component name

  ENT COBOL FOR Z

• Fixed component ID

  5655S7100

Applicable component levels

• R420 PSY UK91380

     UP13/02/09 P F302

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.