Re: Centering a string in a field

Hi Booth,

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.

      **++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
      ** util_center(): Center text in a field
      **
      **     peText = text to center
      **     peSize = size of output field
      **
      ** Returns the centered text.
      **++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
     P util_center     B                   export
     D util_center     PI           256A
     D   peText                     256A   varying const options(*varsize)
     D   peSize                      10I 0 value

     D wwPos           s             10I 0
     D wwRet           s            256A

      /free
         wwRet = *blanks;
         wwPos = ((peSize/2) - (%len(peText)/2)) + 1;
         %subst(wwRet:wwPos:%len(peText)) = peText;
         return wwRet;
      /end-free
     P                 E


To call it (using your example) you'd do the following:

     D myString        s             65A

      /free
           myString = '123 test string 321';
           myString = util_center(myString: %size(myString));
      /end-free