Wie man Text , der nach links in COBOL ausrichten . Es umfasst eine breite Palette von Funktionen, die Programmierer Format Textdokumente Hilfe für Bildschirm oder Druck -Präsentationen. Die rechtfertigen Klauseln von COBOL-Programmen können Sie einen Text-String in einem Character-Feld mit dem entsprechenden vorderen oder hinteren Leerzeichen rechtfertigen. Sie müssen die "Request -LEFT " Programm -Klausel definieren, um Text auf der linken Seite in COBOL auszurichten. Anleitung
1

Typ "Edit " auf der z/OS360 Mainframe-System -Management-Konsole und drücken Sie die " Enter"-Taste , um Ihre COBOL-Programm bearbeiten.
2

Fügen Sie den folgenden Code zum "DATA DIVISION " in Ihrem Programm : . .

WORKING- STORAGE SECTION

01 Z- PTR -1 pic 9 (3 )-Wert 0

01 Z- PTR -2 pic 9 (3 )-Wert 0 .

01 Z -MAX -1 pic 9 (3 )-Wert 0 .

01 Z -MAX -2 pic 9 (3) Wert 0 .

01 FIRST-BYTE pic 9 (3 )-Wert 0 .

01 FINAL-BYTE pic 9 (3 )-Wert 0 .

01 LENGTH-OF- STRING pic 9 (3 )-Wert 0 .

LINKAGE ABSCHNITT .

COPY PASSJUST .

PROCEDURE DIVISION mit JUST- PASS -AREA .

durchführen INITIALISIE FIELDS -

durchzuführen, bis Z- PTR -1 > Z -MAX -1

wenn JUST- SOURCE (Z- PTR - 1: 1) nicht = SPACE

wenn FIRST - Byte = 0

hinzufügen Z- PTR - 1 bis ZERO geben FIRST - BYTE

Ende , wenn

hinzufügen Z- PTR - 1 bis ZERO geben FINAL- BYTE

Ende , wenn

hinzufügen 1 bis Z- PTR -1

Ende führen

berechnen LENGTH -OF- String = FINAL- BYTE - FIRST - BYTE + 1

GOBACK .

REQUEST- LEFT .

hinzufügen 1 bis ZERO geben Z- PTR -2

move JUST- SOURCE ( FIRST - BYTE : Länge eines Strings )

zu JUST- TARGET (Z- PTR -2 : Länge eines Strings )

Bewegung ZERO zu JUST- RESPOND
< p > exit .
3

Typ "Speichern" auf der Konsole und drücken Sie die " Enter"-Taste , um Text-Dokument auf der linken Seite ausrichten in Ihrem COBOL-Programm .