PI97164: Add run-time function to be used by the compiler to support MOVE from numeric edited type to numeric type

Obtain the fix for this APAR.

APAR status

• Closed as new function.

Error description

• The new function provides better compatibility with earlier
  COBOL versions in the presence of bad data.
  

Local fix

Problem summary

• ****************************************************************
  * USERS AFFECTED: Users of Enterprise COBOL V5+ compiling and  *
  *                 running programs that MOVE data from         *
  *                 numeric-edited data items to unsigned        *
  *                 numeric USAGE DISPLAY data items, where the  *
  *                 source data is not numeric.                  *
  *                                                              *
  ****************************************************************
  * PROBLEM DESCRIPTION: Enterprise COBOL V5+ sets the sign in   *
  *                      the receiver to x'F', while Enterprise  *
  *                      COBOL V4.2 did not.                     *
  *                                                              *
  ****************************************************************
  * RECOMMENDATION: Apply the provided PTF.                      *
  *                                                              *
  ****************************************************************
  In situations where invalid data is used, the behaviour is
  undefined. Enterprise COBOL V5+ set the sign to x'F' because it
  is correct that unsigned numeric data items should have a sign
  of x'F'. Enterprise COBOL V4.2 and earlier did not do this.
  

Problem conclusion

Temporary fix

Comments

• To maintain compatibility with Enterprise COBOL V4.2 and
  earlier for customers using invalid data, Enterprise COBOL V5+
  was changed to no longer set the sign of an unsigned numeric
  USAGE DISPLAY receiver to x'F' unless the sign bits in the
  sender were x'F'.
  

APAR Information

• APAR is sysrouted FROM one or more of the following:

• APAR is sysrouted TO one or more of the following:

  PI97711 PI97712

Modules/Macros

• IGZXLPKA
  

Fix information

• Fixed component name

  LE ENT COBOL LI

• Fixed component ID

  568819812

Applicable component levels

• R7A0 PSY UI56042

     UP18/06/01 P F805

• R790 PSY UI56043

     UP18/06/01 P F805

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.