Re: Moving a field and removing blanks

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.