Die JUSTIFIED-Klausel

Diese Klausel bewirkt, daß in alphabetischen bzw. alphanumerischen Datenfeldern die Daten rechtsbündig abgelegt werden. Wird die Klausel nicht verwendet, so werden die Daten linksbündig abgelegt. Natürlich darf die Klausel nur bei alphabetischen und alphanumerischen Datenfeldern angewendet werden. Anstelle des Wortes JUSTIFIED kann auch nur JUST verwendet werden.

Beispiel 1:

MOVE Feld1 TO Feld2
01 Feld1 PIC A(8) VALUE "Workshop".
.W. .o. .r. .k. .s. .h. .o. .p.

01 Feld2 PIC A(10) JUST.
.~. .~. .W. .o. .r. .k. .s. .h. .o. .p.

...

Beispiel 2:
MOVE Feld1 TO Teil2
01 Feld1 PIC A(8) VALUE "Workshop".
.W. .o. .r. .k. .s. .h. .o. .p.

01 Teil2 PIC A(4) JUST.
.s. .h. .o. .p.

...

... zurück