COMP-1
内部浮動小数点項目を指定する 4 バイトの単精度浮動小数点実数データ型。 符号は左端のバイトの最初のビットに含まれており、指数はそのバイトの残りの 7 ビットに含まれています。 残りの 3 バイトは仮数を保持します。
COMP-2
内部浮動小数点項目を指定する 8 バイトの倍精度浮動小数点実数データ型。 符号は左端のバイトの最初のビットに含まれており、指数は最初のバイトの残りの 7 ビットに含まれています。 残りの 7 バイトは仮数を保持します。
COMP-3 パック 10 進数
パック 10 進形式で格納される内部 10 進項目を指定するパック 10 進データ型。 パック 10 進形式では、フィールド内の各バイトは、右端のバイトを除く 2 つの数字を表します。 右端のバイトは 1 桁の数字と符号を保持します。 つまり、各文字位置には、下位の数字と符号によって占有される末尾の文字位置を除いて、2 桁の数字があります。 項目には、0 ~ 9 の任意の数字と符号を含めて、10 進数 18 桁を超えない値を表すことができます。 たとえば、10 進値 +123 は、パックされた 10 進形式の 0001 0010 0011 1100 として 2 バイトで表されます。 詳細については、「 ゾーン 10 進データ型またはパック 10 進データ型」を参照してください。
DISPLAY Zoned Decimal
ゾーン 10 進形式で格納されている内部の 10 進項目を指定するアンパックされた 10 進データ型。 ゾーン 10 進形式は、アンパックされた 10 進形式と同義です。これは、各桁がビット 4 から 7 に含まれ、符号が下位バイトのビット 0 から 3 に含まれる数値を表す形式です。 下位バイト以外のすべてのバイトのビット 0 から 3 には 1 が含まれます (16 進 F)。 たとえば、10 進値 +123 は、ゾーン 10 進形式で 1111 0001 1111 0010 1100 0011 として 3 バイトで表されます。 詳細については、「 ゾーン 10 進データ型またはパック 10 進データ型」を参照してください。
日付と時刻
2 つの PIC 9(7) COMP-3 パック 10 進値のグループ項目を使用して、日付と時刻を指定します。
TIME のみ
PIC 9(7) COMP-3 パック 10 進値を使用して時刻を指定します。
DATE のみ
PIC 9(7) COMP-3 パック 10 進値を使用して日付を指定します。
PIC X
拡張 2 進コード 10 進交換コード (EBCDIC) 文字ストリング内の 1 文字を指定します。 EBCDIC は、メインフレームおよび IBM i コンピューター上の文字データのネイティブ表現です。 Unicode は、Windows ベースのプラットフォーム上の文字データのネイティブ表現です。
PIC X 翻訳なし
EBCDIC 文字ストリング内の単一の COBOL 文字を、それがバイナリ・データであるかのように処理するように指定します。 つまり、EBCDIC から Unicode、または Unicode から EBCDIC への変換はありません。
PIC G
2 バイトの EBCDIC 文字列を指定します。
PIC S9(4) COMP (整数 16 ビット)
長さが 16 ビット (2 バイト) の整数を指定します。
PIC S9(9) COMP (整数 32 ビット)
長さが 32 ビット (4 バイト) の整数を指定します。