Re: Moving a field and removing blanks

[Robert Rogerson <rogersonra@xxxxxxxxx>]

How about...

/Free
       Evalr var50 = var30;
       %Subst(var50 : 1 : %Len(%Trimr(var30))) = %Trimr(var30);
/End-free

On Wed, Dec 1, 2010 at 2:44 AM, David FOXWELL <David.FOXWELL@xxxxxxxxx>wrote:

> EXEC SQL
>  SET  : 50_character_field = (
>         substr(50_character_field, 1, length(50_character_field)-
> length(trim(30_character_field)))
>        concat trim(30_character_field));
>
>
> > -----Message d'origine-----
> > De : rpg400-l-bounces@xxxxxxxxxxxx
> > [mailto:rpg400-l-bounces@xxxxxxxxxxxx] De la part de Pete Helgren
> > Envoyé : mercredi 1 décembre 2010 00:12
> > À : RPG Midrange Discussion
> > Objet : Moving a field and removing blanks
> >
> > 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.
> --
> 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.