Re: centering text on a field

Booth,

Here is the basic formula I use.  I'm writing this from memory but
should be pretty close.

<psuedo-code>
offset = ( %len( field ) - %len( %trim( field ) ) ) / 2 ;
field = %trim( field );
for i=1 to offset ;
  %replace( ' ' : field : 1 : 0 );
endfor ;
</psuedo-code>

Your mileage may vary depending on whether or not field is varying.  The
above is written where field is NOT varying.


On Thu, 2003-08-14 at 09:39, Booth Martin wrote:
>   
> What is the current best practice to center text of unknown length in a
> field of unknown length?
> 
> It occurs to me I am making it much too difficult.
> 
> (free form is nice I suppose but an example in ordinary RPGIV would be
> easier for me to understand)
> 
> ---------------------------------------------------------
> Booth Martin http://www.MartinVT.com
> Booth@xxxxxxxxxxxx
> ---------------------------------------------------------
>  
> 
> _______________________________________________
> 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.