right alignment
One way you could do this is:
DEFINE VARIABLE s-len AS INTEGER NO-UNDO.
DEFINE VARIABLE str1 AS CHARACTER FORMAT 'x(20)' NO-UNDO.
ASSIGN s-len = LENGTH(str1).
PUT STREAM stream-name
FILL(" ",20 - s-len) + str1.
I know it's a little messy but it should do the job.