Re: Edit code/word to show only so many decimals?

[Gwecnal@xxxxxxx]

In a message dated Thu, 7 Sep 2000 16:03:13 -0500, Stone, Brad V (TC)" 
<bvstone@taylorcorp.com> writes:

>  Hi yall...
>  Let's say I have a field that is 9,4.
>  Is there a way to say "Only show the first two decimal places, but, if 
there
>  is anything but zero in 3 or 4, show them as well.."
>  So: 
>  1.1100 = 1.11
>  1.1110 = 1.111
>  1.1101 = 1.1101
>  1.00 = 1.00

I don't see how to do that in an edit code, but if I had to do it, I would:
eval      myfield = %editc(number:'3')
if        %substr(myfield:%len(myfield)-2:2) = '00'
eval      %substr(myfield:%len(myfield)-2:2) = '  '
endif
if        %substr(myfield:%len(myfield)-1:1) = '0'
eval      %substr(myfield:%len(myfield)-1:1) = ' '
endif

and then print myfield instead of number.

If I did not have RPGIV, I would just cry.  HTH, Lance        
+---
| This is the RPG/400 Mailing List!
| To submit a new message, send your mail to RPG400-L@midrange.com.
| To subscribe to this list send email to RPG400-L-SUB@midrange.com.
| To unsubscribe from this list send email to RPG400-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---