Variablen und PICTURE

In COBOL müssen alle verwendeten Variablen innerhalb der DATA DIVISION deklariert werden. Genauer gesagt befinden sich die temporären Variablen im Speicher, die für die Programmlogik bestimmt sind, in der WORKING-STORAGE SECTION.

Level-Nummern (Level Numbers)

Die Deklaration von Variablen in COBOL verwendet Level-Nummern, um Daten hierarchisch zu organisieren:

• 01: Definiert eine Hauptvariable oder einen Datensatz (die höchste Ebene).
• 05, 10, 15: Definieren untergeordnete Felder innerhalb eines Datensatzes der Ebene 01.
• 77: Markierte historisch unabhängige Elementarvariablen, die nicht weiter unterteilt werden konnten.

In der modernen Praxis wird üblicherweise die Ebene 01 verwendet, um unabhängige Elementarvariablen zu deklarieren.

Die PICTURE-Klausel (oder PIC)

Die Klausel PICTURE (abgekürzt als PIC) gibt den Datentyp und die Größe der Variablen in Zeichen an. Die drei grundlegenden Formatzeichen sind:

1. X (Alphanumerisch): Kann Buchstaben, Zahlen und Sonderzeichen enthalten.
   • PIC X(10) deklariert eine Zeichenkette von genau 10 Zeichen.
2. 9 (Numerisch): Kann nur Ziffern enthalten.
   • PIC 9(3) deklariert eine Ganzzahl aus 3 Ziffern (bis zu 999).
3. V (Implizites Dezimalkomma): Wird bei Zahlen mit Dezimalstellen verwendet, um anzugeben, wo die Dezimalstellen platziert werden sollen (das Dezimalkomma wird nicht physisch gespeichert).
   • PIC 9(3)V99 deklariert eine Zahl mit 3 ganzzahligen Stellen und 2 Dezimalstellen.

Die VALUE-Klausel

Um einer Variablen bei der Deklaration einen Anfangswert zuzuweisen, wird die Klausel VALUE verwendet.

01 WS-PROJECT-NAME PIC X(15) VALUE "ELEARNER".
01 WS-USER-AGE     PIC 9(3)  VALUE 25.

Alle Variablendefinitionen müssen mit einem Punkt . enden.

Probier es selbst aus