次の方法で共有


データ型を自動化から z/OS COBOL に変換する

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

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

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

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

既定値

自動化データ・タイプから 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 バイト 実数 (倍精度) COMP-2 br 無し
ボーリアン PIC S9(4) COMP (整数 16 ビット) 無し 無し
可変長文字列 PIC X m
通貨 COMP-3 パックド デシマル 広報 (assuming "pr" refers to public relations) C
日付 (日付と時刻) COMP-3 パックド デシマル pf CI
日付 (日付のみ) COMP-3 パックド デシマル pf CI
日付 (時刻のみ) COMP-3 パックド デシマル pf CI
小数 COMP-3 パックド デシマル 広報 (assuming "pr" refers to public relations) C
配列 (任意のデータ型) 一定回数発生する 無し FH

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

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

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

自動化データ・タイプから z/OS COBOL データ・タイプへ 変換エラーの可能性 必須プロパティの設定
1 バイト符号なし整数 PIC S9(4) COMP (整数 16 ビット) 無し 無し
1 バイト符号なし整数 COMP-3 パックド デシマル 無し C
2 バイト符号付き整数 COMP-3 パックド デシマル 無し C
2 バイト符号付き整数 ディスプレイゾーン10進数 無し C
4 バイト符号付き整数 COMP-3 パックド デシマル 無し C
4 バイト符号付き整数 ディスプレイゾーン10進数 無し 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) ディスプレイゾーン10進数 p、r C
8 バイト Real (Double) PIC S9(4) COMP (整数 16 ビット) p、r 無し
8 バイト Real (Double) PIC S9(9) COMP (整数 32 ビット) p、r
8 バイト実数 (ダブル) COMP-3 パック化10進数 p、r C
8 バイト 実数 (倍精度) ディスプレイゾーン10進数 p、r C
ボーリアン PIC S9(9) COMP (整数 32 ビット) 無し 無し
ボーリアン COMP-3 パックド デシマル 無し C
可変長文字列 PIC G m DEGJ
通貨 PIC S9(?)V9(?)COMP (16 ビット) 広報 (assuming "pr" refers to public relations) 無し
通貨 PIC S9(?)V9(?)COMP (32 ビット) 広報 (assuming "pr" refers to public relations) 無し
通貨 ディスプレイゾーン10進数 広報 (assuming "pr" refers to public relations) C
小数 PIC S9(?)V9(?)COMP (16 ビット) 広報 (assuming "pr" refers to public relations) 無し
小数 PIC S9(?)V9(?)COMP (32 ビット) 広報 (assuming "pr" refers to public relations) 無し
小数 ディスプレイゾーン10進数 広報 (assuming "pr" refers to public relations) C
配列 (任意のデータ型) 条件に応じて発生する 無し FH

Visual Basic の "Single" または "Double" データ型からパック10進数またはDPCゾーン10進数データ型に整数または小数部の数値を変換する場合、TI は小数点より左の桁数が 1 から 18 桁までに制限されます (例: 1.2345678901234567E+17)。

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

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

自動化データ・タイプから z/OS COBOL データ・タイプへ 変換エラーの可能性 必須プロパティの設定
1 バイト符号なし整数 PIC S9(9) COMP (整数 32 ビット) 無し 無し
1 バイト符号なし整数 表示ゾーン10進数 無し C
ボーリアン ディスプレイゾーン10進数 無し C

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

COBOL 使用法が符号なしで DISPLAY で、自動化タイプを String に変更すると、COBOL ピクチャは PIC X に変更され、内部データ表現は同じです。 長さは変わらないため、メインフレーム プログラムには影響しません。

こちらもご覧ください

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