Re: Moving a field and removing blanks

[Joe Pluta <joepluta@xxxxxxxxxxxxxxxxx>]

On 11/30/2010 5:56 PM, Alan Campin wrote:
> VaryingField30 = %Trim(Field30);
> %Subst(Field50:
>               (%Size(Field50) - %Len(VaryingField30)) + 1:
>               %Len(VaryingField30) = VaryingField30       ;

Without intermediate field:

%Subst(Field50:
       (51 - %Len(%Trimr(Field30))):
       %Len(%Trimr(Field30)))
   = %Trimr(Field30);


With an intermediate field, Alan's is probably the best.  And even 
overall, I like Alan's because it only trims the field once.  That's 
worth the tradeoff of an intermediate field.  Note that either method 
will require you to check for a blank string; if Field30 is all blanks 
either of these will give you an RNX0100 string position error.

Joe