Re: Moving a field and removing blanks

I can't seem to be able to find the doc for %move bif ;) . So I guess you
could try this:

d char50 s 50 inz(*all'A')
d char30 s 30 inz('BBB')

d ix s 5i 0
/free

ix = %size(char50) - %len(%trimr(char30));
char50 = %subst(char50 :1 :ix) + %trimr(char30);




"Pete Helgren" <pete@xxxxxxxxxx> wrote in message
news:mailman.17178.1291158877.2702.rpg400-l@xxxxxxxxxxxxxxx

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