Align Character String

[SKaushal]

Hi

Can a Charcter field be Right-Aligned(By Default it is left aligned) when we use PUT STREAM to send data to a file.

Cheers

 

[Crittar]

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.