Die DISPLAY Anweisung

Bei der DISPLAY-Anweisung gibt es zwei Möglichkeiten, sie anzuwenden. Bei der ersten Möglichkeit erfolgt die Ausgabe ab der aktuellen Curserposition. In diesem Fall darf die CONSOLE IS CRT-Klausel im SPECIAL-NAMES-Paragraph nicht benutzt werden.
Bei der zweiten Möglichkeit kann man den Ausgabeort (Zeile - Spalte) mit Hilfe des AT-Zusazes (s.u.) auf dem Bildschirm bestimmen.
Um entsprechende Zwischenräume zu schaffen, wird bei der Definition einer Datengruppe FILLER für Leerstellen angegeben. So sorgt FILLER PIC X(160) für zwei Leerzeilen, da in den beiden Zeilen die jeweils 80 Zeichen mit Leerstellen aufgefüllt werden. Wird in der Datengruppe danach ein weiteres Element definiert und die Datengruppe auf dem Bildschirm angezeigt, so erscheint der Inhalt dieses Datenfeldes folglich nach zwei Leerzeilen.

...

Beispiel Möglichkeit 1:

01 Ausgabetext PIC X(18) VALUE ">> Guten Morgen <<". 01 Username PIC X(20). : : :    MOVE "Stefan Kühlem" TO Username. :    DISPLAY Ausgabetext, Username.

Hier wird an der aktuellen Cursorposition der Gruß ">> Guten Morgen << Stefan Kühlem" auf dem Bildschirm angezeigt. Diese Möglichkeit der Anwendung erlaubt also die Ausgabe mehrerer Datenfelder und/oder Literale.
Man kann die Cursor jedoch mit der Anweisung "DISPLAY LOW-VALUES AT ...." zuvor positionieren, so daß dann die Ausgabe an dem entprechenden Ort erfolgt:

01 Ausgabetext PIC X(18) VALUE ">> Guten Morgen <<". 01 Username PIC X(20). : : :    MOVE "Stefan Kühlem" TO Username. :    DISPLAY LOW-VALUES AT 1301.    DISPLAY Ausgabetext, Username.

Hier würde die Ausgabe in der ersten Spalte in der 13. Zeile erfolgen.

...

Beispiel Möglichkeit 2:

01 Ausgabetext PIC X(18) VALUE ">> Guten Morgen <<". : : :    DISPLAY Ausgabetext AT 1331.

oder:

01 Ausgabetext PIC X(18) VALUE ">> Guten Morgen <<". : : :    DISPLAY Ausgabetext AT LINE NUMBER 13 COLUMN NUMBER 31.

oder:

01 Ausgabetext PIC X(18) VALUE ">> Guten Morgen <<". 01 Ausgabeposition PIC 9(4). : : :    MOVE 1331 TO Ausgabeposition. :    DISPLAY Ausgabetext AT Ausgabeposition.

Hier wird der Gruß in der 13. Zeile und der 31. Spalte angezeigt (... dürfte in etwa der Mitte des Monitors entsprechen).

...

AT-Zusatz:
Dieser Zusatz wird verwendet, um ein Datenfeld oder eine Datenstruktur an einer bestimmten Position auf dem Bildschirm anzeigen zu lassen. Dabei erfolgt die Angabe des Ausgabeortes nach dem AT-Zusatz in einer 4-stelligen Zahl. Die ersten beiden Stellen geben die Zeile und die letzten beiden Stellen die Spalte an. Liegt eine der beiden unter 10, so sind sie mit 0Zahl anzugeben (0305=3. Zeile, 5. Spalte).
Anstelle der Zahl kann auch eine Variable oder ein numerisches Literal verwendet werden.

...