Diese Datenfelder sind ausschließlich zur Durchführung von Rechenoperationen gedacht. Innerhalb der Symbolzeichenkette der PICTURE-Klausel sind für numerische Datenfelder die folgenden Symbole vorgesehen:
| 9 |
Dieses Symbol darf nur benutzt werden, um Ziffern zwi- schen 0 und 9 aufzunehmen. Es darf maximal 18 mal für 18 Stellen in der Symbolzeichenkette stehen. |
| V |
Dieses Symbol kennzeinet einen fiktiven Dezimalpunkt. Es darf nur einmal in der Symbol- zeichnkette vorkommen. Es belegt keinen Speicherplatz. |
| S |
Dieses Symbol wird für Felder benutzt, die negative Inhalte haben können. Es darf nur einmal vorkommen. Es belegt keinen Speicherplatz. Es ist ein Vorzeichensymbol. |
| P |
Dieses Symbol steht für je eine Zehnerpotenz. Dem Wert wird diese Potenz zugrunde gelegt. Diese Symbole dürfen nur am Anfang oder am Ende der Symbolzeichenkette nebeneinander stehen. |
Natürlich kann man auch hier mit Klammersetzung die Anzahl bestimmen (nicht bei S und V).
Beispiel 1:
| 01 ReFeld1 PIC 9(5). | ||||
| 2 | 6 | 5 | 4 | 7 |
| 01 ReFeld2 PIC 999V99. | |||||
| 2 | 6 | 5 | 4 | 7 | |
Der Wert in ReFeld2 beträgt, nur durch den Umstand, daß das Rechenfeld in der PICTURE-Klausel anders definiert wurde also lediglich ein Hundertstel des Wertes der in ReFeld1 abgelegt wurde.
| 01 ReFeld2 PIC 999V99. | |||||
| 2 | 6 | 5 | 4 | 7 | |
| 01 ReFeld3 PIC 999V99PP. | |||||
| 2 | 6 | 5 | 4 | 7 | |
Würde Hier eine Anweisung lauten:
DIVIDE ReFeld3 BY 100 GIVING ReFeld2.
So wäre der Wert von ReFeld2 wiederrum 265,47.
|
||||||||||||||
| minus | ||||||||||||||
|
||||||||||||||
| gleich | ||||||||||||||
|
||||||||||||||
Hier ist der Wert in ReFeld3 negativ, also: - 265,47 (265,47 - 530,94 = -265,47)
