Re: %TrimR(%Char())

["Captain Jerry" <captainjerry@xxxxxxxxx>]

<Because that's what you told it to do....
Eval by default wants to left justify character strings.  If you want this
to align right, then you could use EvalR.  Varying fields could be used here
too...>

EvalR works!  Thanks Eric...

On Tue, Jul 22, 2008 at 2:45 PM, DeLong, Eric <EDeLong@xxxxxxxxxxxxxxx>
wrote:

> Because that's what you told it to do....
>
> Eval by default wants to left justify character strings.  If you want this
> to align right, then you could use EvalR.  Varying fields could be used here
> too...
>
> Eric DeLong
>
> -----Original Message-----
> From: rpg400-l-bounces@xxxxxxxxxxxx
> [mailto:rpg400-l-bounces@xxxxxxxxxxxx]On Behalf Of Captain Jerry
> Sent: Tuesday, July 22, 2008 4:34 PM
> To: RPG programming on the AS400 / iSeries
> Subject: %TrimR(%Char())
>
>
> My turn for help...  The below code is returning a character number left
> justified... Why?
>
> d number          s              9  0 inz(5678)
> d character       s              9
>  /free
>  character=%TrimR(%Char(number));
>  *inlr=*on;
>  /end-free
>
> (after execution)
> CHARACTER = '5678     '
>
> CJ
> --
> 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.