RE: Moving a field and removing blanks

[David FOXWELL <David.FOXWELL@xxxxxxxxx>]

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.