: : 01 Eingabefelder. 05 Name PIC X(15) VALUE SPACES. 05 Vorname PIC X(15) VALUE SPACES. 05 Strasse PIC X(20) VALUE SPACES. 05 PLZ PIC X(5) VALUE SPACES. 05 Ort PIC X(20) VALUE SPACES. 01 Druckzeile PIC X(80) VALUE SPACES. : |
: STRING Name, "*", Vorname, "*", Strasse, "*", PLZ, "*", Ort, " " DELIMITED BY SIZE INTO Druckzeile END-STRING. : |
WORKING-STORAGE SECTION. : 01 Eingabefelder. 05 Name PIC X(15) VALUE SPACES. 05 Vorname PIC X(15) VALUE SPACES 05 Strasse PIC X(20) VALUE SPACES. 05 PLZ PIC X(5) VALUE SPACES. 05 Ort PIC X(20) VALUE SPACES. 01 Trenn-KZ PIC XX VALUE SPACES. 01 Druckzeile PIC X(80). : : PROCEDURE DIVISION. : STRING Name, "*", Vorname, "*", Strasse, "*", PLZ, "*", Ort, " " DELIMITED BY Trenn-KZ INTO Druckzeile END-STRING. : |
WORKING-STORAGE SECTION. : 01 Eingabefelder. 05 Name PIC X(15) VALUE SPACES. 05 Vorname PIC X(15) VALUE SPACES 05 Strasse PIC X(20) VALUE SPACES. 05 PLZ PIC X(5) VALUE SPACES. 05 Ort PIC X(20) VALUE SPACES. 01 Position PIC 99. 01 Trenn-KZ PIC XX VALUE SPACES. 01 Druckzeile PIC X(80). : : PROCEDURE DIVISION. : MOVE 1 TO Position. STRING Name, "*", Vorname, "*", Strasse, "*", PLZ, "*", Ort, " " DELIMITED BY Trenn-KZ INTO Druckzeile WITH POINTER Position END-STRING. : |
WORKING-STORAGE SECTION. : 01 Warten PIC X. 01 Eingabefelder. 05 Name PIC X(15) VALUE SPACES. 05 Vorname PIC X(15) VALUE SPACES. 05 Strasse PIC X(20) VALUE SPACES. 05 PLZ PIC X(5) VALUE SPACES. 05 Ort PIC X(20) VALUE SPACES. 01 Position PIC 99. 01 Trenn-KZ PIC XX VALUE SPACES. 01 Druckzeile PIC X(80). : : PROCEDURE DIVISION. : MOVE 1 TO Position. STRING Name, "*", Vorname, "*", Strasse, "*", PLZ, "*", Ort, " " DELIMITED BY Trenn-KZ INTO Druckzeile WITH POINTER Position ON OVERFLOW DISPLAY "Zu viele Zeichen!" AT 0520 ACCEPT Warten AT 0538 PERFORM Kuerzen END-STRING. : Kuerzen SECTION. : |