自動化から z/OS COBOL へのデータ・タイプの変換

このトピックの表をガイドとして使用して、TI で Automation データ型から COBOL データ型への変換を処理する方法を指定します。 特定のデータ型の詳細については、「 サポートされている TI データ型」を参照してください。

次のコード キーを使用して、各テーブルの [ 変換エラーの可能性 ] 列と [ 必須プロパティ設定] 列のコードを解釈します。

コード 説明
r 範囲エラーが発生する可能性があります。
b Base 2 から Base 16 への変換により、精度が低下する可能性があります。
p 図形式スケールの指定により、精度が低下する可能性があります。
m マッピング エラーが発生する可能性があります。
f yyyydddd と hhmmss。
A プロパティ ページの [COBOL 定義] タブの [エラー処理] で、切り捨てめ、またはエラーを指定する必要があります。
C 有効桁数と小数点以下桁数を指定するには、プロパティ ページの [COBOL 定義] タブの [左桁] ボックスと [桁数] ボックスを入力します。
D プロパティ ページの [COBOL 定義] タブの [サイズ] ボックスに値を入力して、文字列の幅を指定する必要があります。
E コード ページなど、Unicode または EBCDIC マッピング情報が必要です。
F 長さが指定された最大値より小さい配列の場合は、プロパティ ページの [COBOL 定義] タブの [末尾のフィラー] で [フィラーのサイズ] を指定する必要があります。
G 文字列の処理方法を指定する必要があります。 プロパティ ページの [COBOL 定義] タブの [文字列区切り] で、[スペース の埋め込み] または [Null 終端] をクリックします。 次に、プロパティ ページの [COBOL 定義] タブの [エラー処理] で [切り捨て] または [エラー] をクリックして、文字列が長すぎる場合に TI で実行する必要がある処理を指定します。
H 最大サイズが必要です。
I ローカライズが必要です。
J オプションの SO と SI の挿入と削除がサポートされています。

次の表は、TI が Automation データ型を COBOL データ型に変換するために使用する既定値を示しています。

Default

Automation データ型から z/OS COBOL データ型へ 変換エラーの可能性 必須のプロパティ設定
1 バイト符号なし整数 PIC X 翻訳なし なし なし
2 バイト符号付き整数 PIC S9(4) COMP (整数 16 ビット) なし なし
4 バイト符号付き整数 PIC S9(9) COMP (整数 32 ビット) なし なし
4 バイト Real (Single) COMP-1 br なし
8 バイトの Real (Double) COMP-2 br なし
ブール値 PIC S9(4) COMP (整数 16 ビット) なし なし
可変長文字列 PIC X m
通貨 COMP-3 パック 10 進数 pr C
日付 (日付と時刻) COMP-3 パック 10 進数 pf CI
日付 (日付のみ) COMP-3 パック 10 進数 pf CI
日付 (時刻のみ) COMP-3 パック 10 進数 pf CI
Decimal COMP-3 パック 10 進数 pr C
配列 (任意のデータ型) OCCURS fixed TIMES なし Fh

注意

Visual Basic の単精度浮動小数点型または Visual Basic Double データ型からパック 10 進数または分散プログラム呼び出し (DPC) Zoned Decimal データ型に整数または小数部の数値を変換する場合、TI は小数点以下 1 ~ 18 桁の有効桁数に制限されます (たとえば、1.2345678901234567E+17)。 小数部の数値のパック 10 進数または DPC ゾーン 10 進データ型を変換する場合は、Visual Basic Decimal データ型に変換する必要があります。

次の表は、TI Project で設定して、前の表に示した既定値をオーバーライドするために設定できる、サポートされているその他のデータ型マッピングを示しています。

トランザクション インテグレーターでサポートされる

Automation データ型から z/OS COBOL データ型へ 変換エラーの可能性 必須のプロパティ設定
1 バイト符号なし整数 PIC S9(4) COMP (整数 16 ビット) なし なし
1 バイト符号なし整数 COMP-3 パック 10 進数 なし C
2 バイト符号付き整数 COMP-3 パック 10 進数 なし C
2 バイト符号付き整数 DISPLAY Zoned Decimal なし C
4 バイト符号付き整数 COMP-3 パック 10 進数 なし C
4 バイト符号付き整数 DISPLAY Zoned Decimal なし C
4 バイト Real (Single) PIC S9(4) COMP (整数 16 ビット) p,r なし
4 バイト Real (Single) PIC S9(9) COMP (整数 32 ビット) p,r なし
4 バイト Real (Single) COMP-3 パック 10 進数 p,r C
4 バイト Real (Single) DISPLAY Zoned Decimal p,r C
8 バイトの Real (Double) PIC S9(4) COMP (整数 16 ビット) p,r なし
8 バイトの Real (Double) PIC S9(9) COMP (整数 32 ビット) p,r
8 バイトの Real (Double) COMP-3 パック 10 進数 p,r C
8 バイトの Real (Double) DISPLAY Zoned Decimal p,r C
ブール値 PIC S9(9) COMP (整数 32 ビット) なし なし
ブール値 COMP-3 パック 10 進数 なし C
可変長文字列 PIC G m DEGJ
通貨 PIC S9(?)V9(?)COMP (16 ビット) pr なし
通貨 PIC S9(?)V9(?)COMP (32 ビット) pr なし
通貨 DISPLAY Zoned Decimal pr C
Decimal PIC S9(?)V9(?)COMP (16 ビット) pr なし
Decimal PIC S9(?)V9(?)COMP (32 ビット) pr なし
Decimal DISPLAY Zoned Decimal pr C
配列 (任意のデータ型) に応じて発生します なし Fh

注意

Visual Basic の単精度浮動小数点型または Visual Basic Double データ型からパック 10 進数または DPC Zoned Decimal データ型に整数または小数部の数値を変換する場合、TI は小数点の左側の 1 ~ 18 桁の有効桁数に制限されます (例: 1.2345678901234567E+17)。

次の表は、TI ランタイム環境でサポートされる追加のサポートされるデータ型マッピングを示しています。

TI ランタイム環境でのみサポートされます

Automation データ型から z/OS COBOL データ・タイプへ 変換エラーの可能性 必須プロパティの設定
1 バイト符号なし整数 PIC S9(9) COMP (整数 32 ビット) なし なし
1 バイト符号なし整数 DISPLAY Zoned Decimal なし C
ブール値 DISPLAY Zoned Decimal なし C

現時点では、オートメーションから COBOL への他のデータ型変換は TI でサポートされていません。

注意

COBOL の使用法が符号なしで DISPLAY で、オートメーションの種類を String に変更すると、COBOL 画像は PIC X に変更され、内部データ表現は同じです。 長さは変わらないため、メインフレーム プログラムには影響しません。

参照

サポートされる TI データ型
z/OS COBOL から自動化へのデータ・タイプの変換
データ型変換