RE: Centering Text Within A Field

Larry,

At 6/28/01 12:59 PM -0400, you wrote:
>Here's some code that should do it...I am sure there are several other 
>solutions as well
>
>         d length          s              2  0
>        * the next field contains the data to be centered
>
>         d data_in         s             40
>        * this field just has blanks
>         d add_blanks      s             40
>
>         c                   eval      length = %len(%trim(data_in))
>         c                   eval      length = (40 - length) / 2
>         c                   eval      data_in = 
> %subst(add_blanks:1:length) + data_in

  If I'm not mistaken, id data_in is blank this code will bomb on the last 
statement.  A simple IF data_in <> *Blank statement will avoid that.

  Also, the hardcoded "40" in the 2nd EVAL should be converted to %len( 
data_in ) for flexibility and the variable "length" s/b made larger and 
made into an integer or unsigned integer.

  -mark

+---
| This is the RPG/400 Mailing List!
| To submit a new message, send your mail to RPG400-L@midrange.com.
| To subscribe to this list send email to RPG400-L-SUB@midrange.com.
| To unsubscribe from this list send email to RPG400-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---