PH51525: INCORRECT WARNING WITH MOVE STATEMENTS ASSOCIATED WITH DECIMAL(9,4) TO DECIMAL(11,2) TRUNCATION

APAR status

• Closed as program error.

Error description

• Assigning a decimal(9,4) to a decimal(11,2) fires the following
  warning:
  IWN.VAL.6774.w 13/20 TruncDec - A move from decimal(11,2) to
  decimal(11,2) could cause a truncation in the result.
  At line 13 in file \TestDec\EGLSource\test\com\TruncDec.egl.
  
  Sample code:
  program TruncDec type BasicProgram (a ArrayRec []){}
  
  
  	function main()
  		priceunitsink decimal(9, 4);
  		a = new ArrayRec[5];
  
  		 for (i int from 1 to a.getSize())
  			a[i].cdValore = priceunitsink * a[i].dsValore;
  
  		end
  	end
  end
  
  record ArrayRec type BasicRecord
  	cdValore decimal(11,2);
  	dsValore decimal(11,2);
  
  end
  
  Fundamentally the warning is valid but it is fired by the
  decimal (9.4) representation,priceunitsink, so it should flag
  this in the warning message.
  

Local fix

Problem summary

• ****************************************************************
  * USERS AFFECTED:                                              *
  * EGL users assigning move statements                          *
  ****************************************************************
  * PROBLEM DESCRIPTION:                                         *
  * Assigning a decimal(9,4) to a decimal(11,2) fires the        *
  * following                                                    *
  * warning:                                                     *
  * IWN.VAL.6774.w 13/20 TruncDec - A move from decimal(11,2) to *
  * decimal(11,2) could cause a truncation in the result.        *
  * At line 13 in file \TestDec\EGLSource\test\com\TruncDec.egl. *
  ****************************************************************
  * RECOMMENDATION:                                              *
  ****************************************************************
  

Problem conclusion

• Fixed in RBD 961 and 9513
  

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:

Fix information

• Fixed component name

  RATL BUS DEV

• Fixed component ID

  5724S5000

Applicable component levels