Inhalt
Index
Support Über uns
Home

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.

 
Svorzeichenbehaftete Zahl. S muß als 1. Zeichen in der PIC-Beschreibung stehen und wird nicht als Stelle gezählt.
9eine numerische Stelle, die die Ziffern 0-9 beinhalten kann (*)
VKommaposition, 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 99994-stellige Zahl ohne Komma
PIC 9(4)4-stellige Zahl ohne Komma
PIC 99V992-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] }


 
Adie Stelle beinhaltet einen Buchstaben
9die Stelle beinhaltet eine Ziffer
Xdie 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:
Entwickler Portal Impressum AGB Kontakt


© 1980-2017 Acc Computertechnik GmbH All rights reserved.