Centering text in a file field

Many times I have had the occasion to center text in file field for printing or displaying purposes. I now use...

the following RPG IV code to achieve this end.

 *
  * Declares
D Centered        S                   Like(Field) Inz
D X               S              3P 0 Inz
  *
  *
  * Center field
C                   Eval      X = (%Len(Field)-%Len(%Trim(Field)))/2+1
C                   Eval      %Subst(Centered:X) = Field
C                   Eval      Field              = Centered 
  *

In an ILE environment this can be made into a prototype in the following. This works for any size text up to a max of 1000 bytes. In the below example text is centered in a 50 byte field.

   
***********************************************************************
  ** The following prototype describes a procedure that centers text within 
a character field
  ** with a size of 1000 bytes or less.
  
***********************************************************************
  *
  * Centering procedure
D Center          PR          1000A
D   AnyText                   1000A   Const
D   AnyTextLen                   5U 0 Value
  *
  * Sample text to center
D  Text           S             50A   Inz('Center this text')
  *
  * Use of prototype to center text
C                   Eval      Text        = Center(Text:%Len(Text))
  *
  * Return program
C                   Return
  
***********************************************************************
  ** Centering prototype
  
***********************************************************************
P Center          B                   Export
D Center          PI                  Like(Centered)
D Field                       1000A   Const
D FldLength                      5U 0 Value
  *
  * Procedure variables
D Centered        S                   Like(Field)
D ReturnCent      S                   Like(Field)
D X               S              5U 0 Inz
  *
  * Calculate start position for centered text
C                   Eval      X = (FldLength-
C                               %Len(%Trim(%Subst(Field:1:FldLength))))/2+1
  *
  * Place the text into position
C                   Eval      %Subst(Centered:X) =
C                             %Trim(%Subst(Field:1:FldLength))
  *
  * Populate and return variable
C                   Eval      ReturnCent         = Centered
C                   Return    ReturnCent
  *
P Center          E