PI97711: 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.
  
  FIXCAT keyword: COB0501T/K  COB0502T/K  COB0601T/K  COB0602T/K
  

Problem conclusion

• 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'.
  

Temporary fix

Comments

APAR Information

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

  PI97164

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

  UI55861 UI55862

Modules/Macros

• IGZBALCT IGZCEV4  IGZCMGEN IGZCMGJA IGZCMGUE IGZEDCCT IGZIBMCT
  IGZIGZCT IGZLLIBV IGZX2BIN IGZX2HEX IGZXAPI  IGZXBU2L IGZXBU2P
  IGZXBU2S IGZXBU2W IGZXCDA  IGZXD24  IGZXDMR  IGZXFBIN IGZXFHEX
  IGZXLPIO IGZXLPKA IGZXLPKB IGZXLPKC IGZXLPKD IGZXLPKE IGZXLPKF
  IGZXLPKG IGZXNE3N IGZXPK2  IGZXREVT
  

Fix information

• Fixed component name

  LE ENT COBOL LI

• Fixed component ID

  568819812

Applicable component levels

• R7B0 PSY UI55861

     UP18/06/01 P F805

• R7BJ PSY UI55862

     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.