C$JUSTIFY

C$JUSTIFY

The C$JUSTIFY library routine changes the alignment of a data item's content.

Syntax:

CALL "C$JUSTIFY" USING text

alignment

Parameters:

text	PIC X(n)	Specifies the text to be justified.
alignment	PIC X(1)	It specifies a value representing the justification alignment. Valid values are: "L" Left justified. "C" Centered. "R" Right justified.

Examples:

Example - Justify a string Center, Right and then Left

working-storage section.

77 str1 pic x(10) value "hello".

77 ruler pic x(10) value "1234567890".

...

procedure division.

...

display ruler

display str1

call "c$justify" using str1 "C"

display str1

call "c$justify" using str1 "R"

display str1

call "c$justify" using str1 "L"

display str1.