Re: Rounding Question

I think this is what I was looking for. Something simple and to the point.

On 1/18/06, Wilt, Charles <CWilt@xxxxxxxxxxxx> wrote:
>
> 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.
> >
> >
>
> --
> 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.
>
>


--
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