Como centralizar uma cadeia de caracteres

* Recuperamos o tamanho do campo

c eval tamanho = %size(palavra)

* Buscamos a última posição com caracteres.

c ' ' checkr palavra fin 2 0

c tamanho sub fin fin

c eval fin = fin / 2

* e centralizamos o texto

c ' ' cat(p) palavra:fin centraldo

20-03-2001

Fonte:  www.recursos-as400.com