Unterstützte COBOL-Datentypen
COMP-1
Ein 4-Byte-Gleitkommadatentyp "Real" mit einfacher Genauigkeit, der interne Gleitkommaelemente angibt. Das Vorzeichen ist im ersten Bit des am weitesten links stehenden Byte enthalten, und der Exponent ist in den verbleibenden sieben Bits dieses Byte enthalten. Die verbleibenden drei Bytes enthalten die Mantisse.
COMP-2
Ein 8-Byte-Gleitkommadatentyp mit doppelter Genauigkeit, der interne Gleitkommaelemente angibt. Das Vorzeichen ist im ersten Bit des am weitesten links stehenden Byte enthalten, und der Exponent ist in den verbleibenden sieben Bits des ersten Byte enthalten. Die verbleibenden sieben Bytes enthalten die Mantisse.
COMP-3 Gepacktes Dezimalzeichen
Ein gepackter Dezimaldatentyp, der interne Dezimalelemente angibt, die im gepackten Dezimalformat gespeichert sind. Im gepackten Dezimalformat stellt jedes Byte in einem Feld zwei numerische Ziffern mit Ausnahme des ganz rechtssten Bytes dar. Das am weitesten rechts stehende Byte enthält eine Ziffer und das Zeichen. Anders ausgedrückt: An jeder Zeichenposition gibt es zwei Ziffern mit Ausnahme der nachgestellten Zeichenposition, die von der Ziffer und dem Zeichen mit niedriger Ordnung belegt wird. Das Element kann jede der Ziffern von 0 bis 9 sowie ein Zeichen enthalten, um einen Wert von maximal 18 Dezimalstellen darzustellen. Beispielsweise wird der Dezimalwert +123 in zwei Bytes als 0001 0010 0011 1100 im dezimalen Format dargestellt. Weitere Informationen finden Sie unter Zonendezimale oder gepackte Dezimaldatentypen.
DISPLAY Zoned Decimal
Ein entpackter Dezimaldatentyp, der interne Dezimalelemente angibt, die im Zonendezimalformat gespeichert sind. Zonendezimalformat ist synonym mit dem ungepackten Dezimalformat, einem Format zum Darstellen von Zahlen, bei dem jede Ziffer in bits 4 bis 7 enthalten ist und das Zeichen in den Bits 0 bis 3 des am wenigsten signifikanten Byte enthalten ist. Die Bits 0 bis 3 aller Bytes mit Ausnahme des am wenigsten signifikanten Byte enthalten 1s (Hexad. F). Beispielsweise wird der Dezimalwert +123 in drei Bytes als 1111 0001 1111 0010 1100 0011 im zonendezimalen Format dargestellt. Weitere Informationen finden Sie unter Zonendezimale oder gepackte Dezimaldatentypen.
DATUM und UHRZEIT
Gibt ein Datum und eine Uhrzeit mithilfe eines Gruppenelements aus zwei PIC 9(7) COMP-3 gepackten Dezimalwert an.
Nur TIME
Gibt eine Uhrzeit mithilfe eines PIC 9(7) COMP-3-gepackten Dezimalwerts an.
Nur DATE
Gibt ein Datum mithilfe eines PIC 9(7) COMP-3-gepackten Dezimalwerts an.
PIC X
Gibt ein einzelnes Zeichen in einer EBCDIC-Zeichenfolge (Extended Binary Coded Decimal Interchange Code) an. EBCDIC ist die native Darstellung von Zeichendaten auf Mainframe- und IBM i-Computern. Unicode ist die native Darstellung von Zeichendaten auf Windows-basierten Plattformen.
PIC X Keine Übersetzung
Gibt ein einzelnes COBOL-Zeichen in einer EBCDIC-Zeichenfolge an, das wie Binärdaten behandelt wird. Mit anderen Worten, es gibt keine Übersetzung von EBCDIC in Unicode oder von Unicode in EBCDIC.
PIC G
Gibt eine Double-Byte-EBCDIC-Zeichenfolge an.
PIC S9(4) COMP (Integer 16-Bit)
Gibt eine ganze Zahl an, die 16 Bits oder 2 Bytes lang ist.
PIC S9(9) COMP (Integer 32-Bit)
Gibt eine ganze Zahl an, die 32 Bit oder 4 Bytes lang ist.