RE: Rounding Question

I should have looked in the manual before my first post.

There's a %inth....just use that. :-)

Charles Wilt
--
iSeries Systems Administrator / Developer
Mitsubishi Electric Automotive America
ph: 513-573-4343
fax: 513-398-1121
  

> -----Original Message-----
> From: rpg400-l-bounces@xxxxxxxxxxxx 
> [mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Michael Jacobsen
> Sent: Wednesday, January 18, 2006 2:15 PM
> To: RPG programming on the AS400 / iSeries
> Subject: Re: Rounding Question
> 
> If Eval(h) won't work for you, could you just add .50 cents 
> then cut off 
> the decimals?
> 
> -Mike
> 
> 
> rpg400-l-bounces@xxxxxxxxxxxx wrote on 01/18/2006 02:06:38 PM:
> 
> > Hey, I want to round to the whole dollar. But I am not doing any 
> calculation
> > on the field, so the EVAL(H) won't work for me. Or will it?
> > This is the line I need to modify: "output = %trim(output) + ',' + 
> %char(
> > NIBT.balance)". Any good ideas short of writing a subprocedure? The
> > NIBT.balance is the dollar amount. This dumps to a CSV file.
> > 
> > --
> > Mike Wills
> > koldark@xxxxxxxxx
> > http://mikewills.name
> > Want Gmail? Email koldark+gmail@xxxxxxxxx to get on my waiting list.
> > 
> > "There are 10 types of people in the world: those who 
> understand binary, 
> and
> > those who don't." -Unknown
> > -- 
> > This is the RPG programming on the AS400 / iSeries 
> (RPG400-L) mailing 
> list
> > To post a message email: RPG400-L@xxxxxxxxxxxx
> > To subscribe, unsubscribe, or change list options,
> > visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
> > or email: RPG400-L-request@xxxxxxxxxxxx
> > Before posting, please take a moment to review the archives
> > at http://archive.midrange.com/rpg400-l.
> > 
> -- 
> This is the RPG programming on the AS400 / iSeries (RPG400-L) 
> mailing list
> To post a message email: RPG400-L@xxxxxxxxxxxx
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
> or email: RPG400-L-request@xxxxxxxxxxxx
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/rpg400-l.
> 
>