EMZETT.Mit ACCEPT variable liest du von der Tastatur. Werte weist du mit MOVE quelle TO ziel zu; das passt Formate automatisch an (Text wird aufgefüllt, Zahlen werden ausgerichtet). Mit INITIALIZE setzt du Variablen auf Anfangswerte zurück.
Texte hängst du mit STRING ... DELIMITED BY SIZE INTO ziel zusammen. Vorsicht: Ein MOVE auf ein zu kleines Feld schneidet Zeichen oder Ziffern stillschweigend ab.
IDENTIFICATION DIVISION.
PROGRAM-ID. EINGABE.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 WS-NAME PIC X(20).
01 WS-GRUSS PIC X(40).
PROCEDURE DIVISION.
DISPLAY "Name?".
ACCEPT WS-NAME.
STRING "Hallo, " DELIMITED BY SIZE
WS-NAME DELIMITED BY SPACE
"!" DELIMITED BY SIZE
INTO WS-GRUSS.
DISPLAY WS-GRUSS.
STOP RUN.Merke
ACCEPTliest ein,MOVE a TO bkopiertSTRINGfügt Texte zusammen- Zu kleine Felder schneiden ab, ohne Warnung
Aufgabe
Lies Vor- und Nachnamen ein und gib sie zusammen aus.