Subject: | |
From: | |
Reply To: | Pickering, John (NORBORD) |
Date: | Mon, 18 Jun 2001 15:32:51 -0400 |
Content-Type: | text/plain |
Parts/Attachments: |
|
|
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 *
|
|
|