RE: centering text on a field

Here's what I do.  Feel free to pull it apart and beat me over the head with 
it!  <vbg>  I don't always do things the simplest!  (ohhh I just noticed CONST 
VARYING)

 **********************************************************************  
 * Procedure   - #centerText                                          *  
 * Description - Center text in a string                              *  
 * Input       - textIn 256a - text to be centered                    *  
 *             - fieldLength 3,0 - length of field to center it in    *  
 * Output      - string 256a - make sure to MOVEL or EVAL output      *  
 **********************************************************************  
p #centerText     b                   export                             
                                                                         
d #centerText     pi           256a                                      
d inString                     256a   const varying                      
d fldLen                         3s 0 const                              
                                                                         
d i               s              2  0                                    
d textOut         s            256a                                      
                                                                         
 /free                                                                   
                                                                         
  i = (( fldLen - %len( inString )) / 2 ) + 1;                           
  %subst( textOut : i ) = inString;                                      
  return  textOut;                                                       
                                                                         
 /end-free                                                               





-----Original Message-----
From: Booth Martin [mailto:Booth@xxxxxxxxxxxx]
Sent: Thursday, August 14, 2003 9:39 AM
To: rpg400-l@xxxxxxxxxxxx
Subject: centering text on a field


 
 
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.