C$JUSTIFY performs left or right justification of data and centering of data.
Usage
CALL "C$JUSTIFY" USING DATA-ITEM, JUSTIFY-TYPE
Parameters
DATA-ITEM Any data item
This data item contains the data to be justified.
JUSTIFY-TYPE PIC X
This optional parameter contains one of three literal values:
| L
| indicates left justification
|
| R
| indicates right justification
|
| C
| indicates centering |
Description
This routine removes all leading and trailing spaces from DATA-ITEM and justifies the remaining data as indicated by JUSTIFY-TYPE. The resulting string is returned in DATA-ITEM. If centering is chosen, there will be one more space on the right than on the left if an odd number of spaces is used.