Re: Centering a string in a field

D #ToString       S             65A
D #String         C                   '123 test string 321'

D #I              S              3P 0
 /Free

  // 1) #String has no trailing blanks
  // 2) %Len( #String ) < #Len( #ToString )
  #I = 1 + ( %Len( #ToString ) / 2 ) - ( %Len( #String ) / 2 );
  %SubSt( #ToString : #I : %Len( #String ) ) = #String;
  // Use %TrimR if #String has trailing blanks

  *InLR = *On;
  Return;

 /End-Free

Maybe you could put this into a procedure which accepts the #ToString and
#String and returns the modified #ToString,
Paul