1.9.1 Die Picture-Anweisung
Daten werden in Cobol mit der PIC-Anweisung beschrieben.
Beschreibung eines Datenfeldes mit der PIC-Anweisung.
Fehlt der Zusatz USING COMPUTATIONAL beschreibt jedes Zeichen (außer S und V) ein Byte im Speicher.
Es gibt 3 verschiedene Datentypen.
1.9.1.1 Numerische Daten
| |  | |  | | |
Format:
PIC {[S] [9[...][(Ganzzahl1)] ] [V] [9[...][(Ganzzahl2)]}
| |
|  | |  |
Für jede benötigte Stelle wird eine 9 eingesetzt.
Eine 5-stellige Zahl ist z.B. PIC 99999. Zur Vereinfachung kann man aber auch PIC 9(5) angeben.
| |
| S | vorzeichenbehaftete Zahl. S muß als 1. Zeichen in der PIC-Beschreibung stehen und wird nicht als Stelle gezählt. | | 9 | eine numerische Stelle, die die Ziffern 0-9 beinhalten kann (*) | | V | Kommaposition, wird nicht als Stelle gezählt. |
|
(*) Negative Zahlen werden in der letzten Stelle des numerischen Feldes gekennzeichnet (nicht bei USAGE IS COMP) Der Inhalt ist dann p-y. Beinhaltet ein 3-stelliges Feld (PIC 999) z.B. 12q entspricht die Zahl -121.
Beispiele:
| |
| PIC 9999 | 4-stellige Zahl ohne Komma | | PIC 9(4) | 4-stellige Zahl ohne Komma | | PIC 99V99 | 2-stellige Zahl mit 2 Nachkommastellen | | PIC 9(2)V9(02) | 2-stellige Zahl mit 2 Nachkommastellen | | PIC S9(2)V9(02) | 2-stellige Zahl mit 2 Nachkommastellen | | PIC V999. | nur 3 Kommastellen (z.B. 0,333) |
|
Die Abspeicherung von numerischen Daten erfolgt rechtsbündig, bzw. relativ zum Komma.
Beispiel:
Pic 9(7)V99 Inhalt ist 3,2 wird im Speicher als 000000320 abgestellt.
1.9.1.2 Alphanumerische Daten
| | | | | | |
Format:
PIC {[A] [X] [9] }
| |
| | | |
| |
| A | die Stelle beinhaltet einen Buchstaben | | 9 | die Stelle beinhaltet eine Ziffer | | X | die Stelle beinhaltet ein beliebiges Zeichen |
|
Es muß mindestens ein X oder ein A vorhanden sein (sonst ist das Datenfeld numerisch)
Die Abspeicherung alphanumerischer Daten erfolgt immer linksbündig.
1.9.1.3 Numerisch aufbereitete Daten
| | | | | | |
Format:
PIC {[$] [*] [+] [-] [Z] [B] [0] [.] [,] [9]}
| |
| | | |
Zur Darstellung am Bildschirm oder in Ausdrucken werden aufbereitete Daten verwendet.
| |
| $ | $-Zeichen oder Currency | | * | *-Zeichen | | + | Das Vorzeichen der Zahl (+ oder -) | | - | - nur wenn die Zahl negativ ist. | | Z | Nullunterdrückung, d.h. Leerzeichen bei Nullen |
|
Diese Zeichen können als fließende Zeichen verwendet werden, d.h. die führenden Nullen der Zahl werden nicht dargestellt, solange das Zeichen wiederholt wird.
Wird z.B. 234 in ein mit PIC +(6) beschriebenes Feld gebracht, erhält man +234 (2 führende Leerzeichen) Wird das Feld mit PIC -(6) beschrieben, erhält man nur 234 (3 führende Leerzeichen)
| |
| . | Punkt (unterbricht nicht die Flußeigenschaft) | | , | Kommastelle |
|
Bringt man z.B. 1234 in ein mit PIC 999.999 beschriebenes Feld, erhält man 001.234
Bei PIC ZZZ.ZZZ erhält man 1.234 (2 führende Leerzeichen)
Bei PIC Z(5)9,99 erhält man 1234,00 (2 führende Leerzeichen)
Einfügezeichen:
| |
| B | ein Leerzeichen | | 0 | eine Null |
|
+ - * und $ können auch nichtfließend nachgestellt werden:
Bringt man -12,31 in ein mit PIC ZZZ.ZZ9,99- beschriebenes Feld erhält man 12,31- (5 führende Leerzeichen)
Die Abspeicherung erfolgt gemäß der angegebenen Beschreibung.
 Hoch zu Die Datenbeschreibung in Cobol
 Weiter zu Das Cobol-Stufenkonzept:
| |
Home