Re: Zero Suppression

[Michael Prodor <mprodor@QUALCOMM.COM>]

Thanks Denise.

Happy Holidays!

At 06:06 AM 12/18/2001, you wrote:
>Hi Michael,
>
>How about something like this:
>
>if trunc(#incr_msg_chrg,2) = trunc(#incr_msg_chrg,3)
>       print #incr_msg_chrg (, {COL75}) edit $$.99
>    else
>       print #incr_msg_chrg (, {COL75}) edit $$.999
>    end-if
>
>I think that should work.
>
>HTH,
>Denise White
>Sr. Programmer/Analyst
>Vicor
>------------------------------
>
>Date:    Mon, 17 Dec 2001 15:18:50 -0800
>From:    Michael Prodor <mprodor@QUALCOMM.COM>
>Subject: Zero Suppression
>
>I asked this a while back and found that there was one hole in the solution:
>
>
>Hi Gurus, here is a quick question that I've been playing with for too long.
>
>I am printing a rate field that can be up to 3 digits to the right of the
>decimal. When it is 3 digits I want to print all three, but when there are
>no significant digits, I want to display the cents and leave the rest blank.
>
>For example:
>
>If the rate is 2.340 I want to print 2.34
>
>If the rate is 2.345 I want to print 2.345.
>
>If the rate is 2.30 I want to print 2.30
>
>I have tried:
>
>     1267    print  #incr_msg_chrg (, {COL75}) edit $$.99BB
>     1268    print  #incr_chr_chrg (, {COL82}) edit $$.99BB
>
>and
>
>     1267    print  #incr_msg_chrg (, {COL75}) edit $$.BBBB
>     1268    print  #incr_chr_chrg (, {COL82}) edit $$.BBBB
>
>and
>
>1244       let $= rtrim(edit(#incr_msg_chrg,'$$.999'),'0')
>1234       print $incr_msg_chrg
>
>But neither work. Do I really have to interrogate the decimal portion to do
>this?
>
>I was going to extract the decimal portion, rtrim it and then rpad it to 2
>places, but it seems like a lot of work.
>
>Anyone think of an easier way?
>
>Thanks!
>
>
>
>--
>Michael Prodor
><mprodor@qualcomm.com>
>
>Qualcomm - IT QWBS Business Systems