PI67723: DISPLAY OF BINARY FIELD IN COBOL V5.2 SHOWS INCORRECT VALUE

Obtain the fix for this APAR.

APAR status

• Closed as program error.

Error description

• When compiling a certain program with COBOL V4.2, a binary
  field contains a negative value - as expected.  When the same
  program is compiled with COBOL V5.2, the binary field contains
  a positive value - which is incorrect.
  
  The problem occurs at OPT(1|2) and ARCH(10|11).
  

Local fix

• Use OPT(0) or ARCH(9|8)
  

Problem summary

• ****************************************************************
  * USERS AFFECTED: Users of Enterprise COBOL V5.2 compiling     *
  *                 programs with ARCH(10|11) and OPT(1|2) that  *
  *                 contain MULTIPLY X BY -1, where X is a       *
  *                 signed USAGE DISPLAY data item that          *
  *                 redefines an unsigned USAGE DISPLAY data     *
  *                 item, or SUBTRACT Y FROM 0 GIVING Z, where   *
  *                 Y is an unsigned USAGE DISPLAY or            *
  *                 PACKED-DECIMAL data item and Z is a signed   *
  *                 USAGE DISPLAY data item.                     *
  *                                                              *
  ****************************************************************
  * PROBLEM DESCRIPTION: Incorrect output at runtime: The        *
  *                      MULTIPLY or SUBTRACT is not performed,  *
  *                      and the destination contains a          *
  *                      positive value instead of the expected  *
  *                      negative value.                         *
  *                                                              *
  ****************************************************************
  * RECOMMENDATION: Apply the provided PTF.                      *
  *                                                              *
  ****************************************************************
  The compiler optimizer was incorrectly updating its internal
  state, causing it to discard the information it needed to
  generate code for the negation.
  

Problem conclusion

• The compiler was fixed to correctly update its internal state
  and generate code for the negation.
  

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:

  PI72814

Modules/Macros

•    IGYCBE
  

Fix information

• Fixed component name

  ENT COBOL FOR Z

• Fixed component ID

  5655W3200

Applicable component levels

• R520 PSY UI41146

     UP16/09/30 P F609

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.