EMZETT.In der DATA DIVISION legst du Variablen im Abschnitt WORKING-STORAGE SECTION an. Jede Variable hat eine Stufennummer (meist 01), einen Namen und eine PIC-Klausel, die das Format beschreibt: 9 steht für eine Ziffer, X für ein beliebiges Zeichen, A für einen Buchstaben, V für eine gedachte Kommastelle.
PIC 9(3) sind drei Ziffern, PIC X(20) 20 Zeichen, PIC 9(5)V99 fünf Vorkomma- und zwei Nachkommastellen. Mit VALUE setzt du Anfangswerte.
IDENTIFICATION DIVISION.
PROGRAM-ID. DATEN.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 WS-NAME PIC X(20) VALUE "Mia".
01 WS-ALTER PIC 9(3) VALUE 14.
01 WS-PREIS PIC 9(5)V99 VALUE 19.99.
PROCEDURE DIVISION.
DISPLAY WS-NAME " ist " WS-ALTER " Jahre alt".
DISPLAY "Preis: " WS-PREIS.
STOP RUN.Merke
01ist die oberste Stufe einer Variable9= Ziffer,X= Zeichen,V= gedachte KommastelleVALUEsetzt den Anfangswert
Aufgabe
Lege einen Namen, ein Alter und einen Preis an und gib sie aus.