Re: Moving a field and removing blanks

["hockchai Lim" <lim.hock-chai@xxxxxxxxxxxxxxx>]

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