Re: Centering a string in a field

Here is what I do: 
 
 Clear                OutText
 Eval      InText = '123 test string 321'
 Eval      Pos = %Div(%Len(InText) - %Len(InText):2) + 1 
 Eval      %Subst(OutText:Pos) = InText 

The slickest way would probably be to put that in a procedure. 
Unfortunately my employer hasn't embraced that method yet.  I think I also 
have a %Trim(InText) in there somewhere, but I hardcoded it using your 
example.

 
Mike 


> Centering a string in a field
> 
> Here's a tired old question, but I suspect it may have some slick new
> answer(s).
> 
> How is the easiest/best way to center a string in a field?  Say the 
string
> is "123 test string 321" and I want it centered in a 65 character field 
that
> may or may not have a value there already.
> 
> 1) the new value will be just the string, centered.
> 2) the new value will overlay whatever happens to be in the string.
> 
> 
> Ideas would be appreciated.
> 
> ---------------------------------
> Booth Martin
> http://www.martinvt.com
> ---------------------------------
> -- 
> This is the RPG programming on the AS400 / iSeries (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.
>