Re: Right adjust zero fill character field

[Jeff Young <jyoung0950@xxxxxxxxx>]

Thanks Chris,
I was not aware of that method.
Another tool in my tool box.



On Tue, Sep 25, 2012 at 3:27 PM, Hiebert, Chris <
chris.hiebert@xxxxxxxxxxxxxx> wrote:

> You can do this without any decimal conversion.
> EVALR field_b = '000000' + %TRIM(field_a);
>
> Chris Hiebert
> Programmer/Analyst
> Disclaimer: Any views or opinions presented are solely those of the
> author and do not necessarily represent those of the company.
>
> -----Original Message-----
> From: rpg400-l-bounces@xxxxxxxxxxxx
> [mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Jeff Young
> Sent: Tuesday, September 25, 2012 9:27 AM
> To: RPG programming on the IBM i / System i
> Subject: Right adjust zero fill character field
>
> All,
> I am having a brain freeze moment today.
> I have a 20 byte character field that will contain up to 6 bytes of data
> left adjusted.
> I need to take the data from the first field and load it to a 6 byte
> field padded with leading zeros.
> ie:  field a = '1234              '
> I want field b to be '001234'
>
> when field a = '12345'
> field b = '012345;
>
> Thanks,
>
>
> --
> Jeff Young
> Sr. Programmer Analyst
> --
> This is the RPG programming on the IBM i / System i (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 / System i (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.