サポートされる COBOL データ型
COMP-1
内部浮動小数点項目を指定する 4 バイトの単精度浮動小数点 Real データ型。 符号は左端のバイトの最初のビットに含まれており、指数はそのバイトの残りの 7 ビットに含まれています。 残りの 3 バイトは仮数を保持します。
COMP-2
内部浮動小数点項目を指定する 8 バイトの倍精度浮動小数点 Real データ型。 符号は左端のバイトの最初のビットに含まれており、指数は最初のバイトの残りの 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
拡張バイナリ コード 10 進交換コード (EBCDIC) 文字列内の 1 文字を指定します。 EBCDIC は、メインフレームおよび IBM i コンピューター上の文字データのネイティブ表現です。 Unicode は、Windows ベースのプラットフォーム上の文字データのネイティブ表現です。
PIC X 翻訳なし
EBCDIC 文字ストリング内の 1 つの COBOL 文字を指定します。これは、それがバイナリ・データであるかのように処理されます。 つまり、EBCDIC から Unicode への変換や、Unicode から EBCDIC への変換はありません。
PIC G
2 バイトの EBCDIC 文字列を指定します。
PIC S9(4) COMP (整数 16 ビット)
長さが 16 ビット (2 バイト) の整数を指定します。
PIC S9(9) COMP (整数 32 ビット)
長さが 32 ビット (4 バイト) の整数を指定します。