Re: Moving a field and removing blanks

[Alan Campin <alan0307d@xxxxxxxxx>]

VaryingField30 = %Trim(Field30);
%Subst(Field50:
             (%Size(Field50) - %Len(VaryingField30)) + 1:
             %Len(VaryingField30) = VaryingField30       ;

This?

On Tue, Nov 30, 2010 at 4:12 PM, Pete Helgren <pete@xxxxxxxxxx> wrote:

> An easy one that I can't seem to wrap my head around:
>
> I have a 30 character field where the data is left justified.  I want to
> move it into a 50 character field but want to move it to the far right
> omitting any trailing blanks.
>
> So something like this:
> MYbDATAbHEREbbbbbbbbbbbbbbbbbb
> moved so it is like this:
> EXISTINGbDATAbHEREbbbbbbbbbbbbbbbbbbbbMYbDATAbHERE
>
> I have been moving between too many languages lately...this seem simple
> but I can't seem to come up with a simple solution.  I *want* to %TRIMR
> and MOVE at the same time but know that I can't....(can I?)
>
> This box is at V5R4M0
>
> --
> Pete Helgren
> Value Added Software, Inc
> www.asaap.com
> www.opensource4i.com
>
> --
> 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.