Re: %TrimR(%Char())

["Captain Jerry" <captainjerry@xxxxxxxxx>]

<What do you want the end result of the operation to be?>
Right justified, I'll try EvalR, but I was under the impression that Eval in
Free Format was unnecessary unless you need an Eval(extension) - %Char
doesn't right justify.

On Tue, Jul 22, 2008 at 2:39 PM, David Gibbs <david@xxxxxxxxxxxx> wrote:

>  Captain Jerry wrote:
> > 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     '
>
> Because you're trimming blanks off the right and the character field is
> fixed length.
>
> Actually, I'm unsure if the %trimr is necessary ... *I THINK* %char returns
> the value left justified.
>
> What do you want the end result of the operation to be?
>
> david
>
> --
> IBM i on Power - For when you can't afford to be out of business
>  --
> 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.