Re: Left justify numeric field

[Jeff Young <jyoung0950@xxxxxxxxx>]

Thanks to everyone.
After I posted, I looked at it again and the %char() solution occurred to
me.
This is needed to print fields on an invoice form, and for asthetic
reasons, they want it this information to all line up to the left most
position of the box on the form.

Thanks again,


On Tue, Aug 13, 2013 at 4:49 PM, <paultherrien@xxxxxxxxxxxxxxxxxx> wrote:

> I think...
> /Free
>   Charfield = %char(numericfield);
> /end-free
>
> Paul Therrien
> Andeco Software, LLC
> 225-229-2491
> paultherrien@xxxxxxxxxxxxxxxxxx
> www.andecosoftware.com
>
>
> -----Original Message-----
> From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx]
> On Behalf Of Jeff Young
> Sent: Tuesday, August 13, 2013 4:43 PM
> To: RPG programming on the IBM i / System i
> Subject: Left justify numeric field
>
> All,
> I have a numeric field 0070000123 that I need to remove the leading zeros
> and left justify for printing.
>
> Does anyone have a simple routine to do this?
>
> Thanks,
>
> --
> Jeff Young
> Sr. Programmer Analyst
> --
> This is the RPG programming on the IBM i (AS/400 and 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 IBM i (AS/400 and 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.