Al - haven't seen your post to powerh-l yet -- but the turn around on that
list sometimes seems to take forever.

While you're waiting, try this:

> define d-a num*12 = 82206
> define d-b num*12 = 41593
> define d-c num*12 &
>   = floor(round(d-a / d-b * 100) / 10) * 10
> define d-d num*12 &
>   = floor(round(d-a / d-b * 100) / 10)
> report &
>   d-a pic "^^^^^^.^^" &
>   d-b pic "^^^^^^^^^" &
>   d-c pic "^^^^.^^^^" &
>   d-d pic "^^^^.^^^"
> go

I get these results:

     D-A        D-B        D-C        D-D

     822.06      41593      .0190      .019


Regards,
JWP

> -----Original Message-----
> From: Karman, Al [SMTP:[log in to unmask]]
> Sent: Monday, June 18, 2001 3:17 PM
> To:   [log in to unmask]
> Subject:      QUIZ rounding
>
> Greetings, -L
>
> This was posted to the powerh-l list earlier...I haven't heard anything,
> so
> forgive the cross/post.....
>
> It Must Be Monday....!
>
> I have these fields:
> A num*12 pic '^^^^^^^^^.^^' = 82206     (dollar amount - $822.06)
> B num*12 pic '^^^^^^^^^^^^' = 41593    (net weight in my applic)
> C num*12 pic '^^^^^^^^.^^^^' = (A/B)
>
> The value of C, reported out scale 2 is .0198 (so far so good)
>
> My 'challenge'....to transform this value of C <.0198>
>                          into <.019>
>
> Thanks In Advance!!
>
> Al Karman
> IT Consultant
> US Freightways
> [log in to unmask]
> 773.824.2284
>
>

* To join/leave the list, search archives, change list settings, *
* etc., please visit http://raven.utc.edu/archives/hp3000-l.html *