Floating point calculation

[Former Member]

Hi all,

I have a field ATFLV of type FLTP length 16 and decimals 16. This field has a value 1.000000000000000E+03. I want to multiply this value with 0.022 and take that value into another field let us say ATFLV1 of same type as ATFLV.

And also, I want the value in ATFLV1 to be taken into another field ATWRT of type Character and length 30.

PLease help. Waiting for replies. Thanks

[Former Member]

atflv1 = atflv * 0.022.

write atflv1 to atwrt.

Regards,

Ravi

[Former Member]

It throws and error saying 022 not defined.

[Former Member]

Hi,

atflv1 = atvlv * 0.022

move atflv1 to atwrt.

regards,

keerthi.

[RichHeilman]

Try this.

report zrich_0001.


data: ATFLV type cawn-ATFLV value '1.000000000000000E+03',
      atwrt type cawn-atwrt,
      p type  p decimals 3.


 p = atflv * '.022'.

 atwrt = p.

 write:/ atwrt.

Regards,

Rich Heilman

[Former Member]

Rich,

It prints the value in atwrt as 22.000. I want the value in atwrt with out decimals. So it should be only '22'. how can I do this. Waiting..........

[RichHeilman]

Ok....

report zrich_0001.


data: ATFLV type cawn-ATFLV value '1.000000000000000E+03',
      atwrt type cawn-atwrt,
      p type  p decimals 3.


 p = atflv * '.022'.

<b> atwrt = ceil( p ).</b>

 write:/ atwrt.

Regards,

Rich Heilman

[RichHeilman]

Or use an INT instead of packed field.

report zrich_0001.


data: ATFLV type cawn-ATFLV value '1.000000000000000E+03',
      atwrt type cawn-atwrt,
<b>      i type  i .</b>


<b>i = atflv * '.022'.</b>

<b> atwrt = i.</b>

 write:/ atwrt.

Regards,

Rich Heilman

[Former Member]

Rich,

In your code what I am doing is:

data: ATFLV type cawn-ATFLV value '1.000000000000000E+03',

atflv1 type cawn-atflv,

atwrt type cawn-atwrt.

atflv1 = atflv * '.022'.

Now the value in atflv1 is '2.200000000000000E+01',

Now I want this value in the field ATWRT as '22'.

Please help.

[RichHeilman]

Just change the ATFLV1 field to an int.

data: ATFLV type cawn-ATFLV value '1.000000000000000E+03',
<b>atflv1 type i,</b> 
atwrt type cawn-atwrt.

atflv1 = atflv * '.022'.

<b>atwrt = atflv1.</b>

Regards,

Rich Heilman