Decimal Validation

[Former Member]

Hi All,

During Processing of internal table remove one decimal digit from left hand side

For Example

Input data : itab-amt = 9,059500

Output data : itab-amt = 9,05950

Plz send the Reply

Award points Compulsory for correct solution

Thanks & Regards

SEK

[Former Member]

If , stands for Decimal, then do like this:

data: v_temp(20)

write v_amount to v_temp decimals 5.

condense v_temp.

Regards,

Ravi

[Former Member]

program test.
write: / ' CAST'.  
perform cast  using :  '1.011',  '2.036'.
write: / 'TRUNC'.
 perform trunc using :  '1.011',  '2.036'.

form cast using value type p.  
data:    3decs type p length 9 decimals 3, 
   2decs type p length 9 decimals 2.  
3decs = value. 
 write : 3decs.  3decs = 2decs = 3decs.  
write : 3decs.
endform.
form trunc using value type p. 
 data:    3decs type p length 9 decimals 3. 
 3decs = value. 
 write : 3decs. 
 3decs = ( trunc( 100 * 3decs ) / 100 ).
  write : 3decs.endform.

Data: x type p decimals 3 value '1.234'.
Data: y type p decimals 2.
y = x.
Write:/ x.
Write:/ y.

[Former Member]

HEllo,

Make use of the FM.

<b>

HR_NZ_ROUNDING_DECIMALS</b>

Vasanth

[Former Member]

AS FAR AS I HAVE UNDERSTOOD.

DATA : VALUE(7) TYPE C.

VALUE = ITAB-AMT(7).

SINCE YOUR ITAB-AMT IS EIGHT IN LENGTH MOVE THE CONTENT TO A 7 DIGIT DATA OBJECT OVER HERE IT IS VALUE

[Former Member]

Hi Raja,

If the number of decimal places is variable you could do:

DATA:

zlv_nr_of_decimals TYP I,

zlv_6_dec(10) TYPE p DECIMALS 6,

zlv_5_dec(10) TYPE p DECIMALS 5,

zlv_4_dec(10) TYPE p DECIMALS 4,

..

DESCRIBE FIELD itab-amt DECIMALS zlv_nr_of_decimals.

CASE zlv_nr_of_decimals.

WHEN 6.

zlv_5_dec = itab-amt.

itab-amt = zlv_5_dec.

WHEN 5.

zlv_4_dec = itab-amt.

itab-amt = zlv_4_dec.

.

.

.

.

ENDCASE.

Regards,

John.