共用方式為


將數據類型從自動化轉換成 z/OS COBOL

使用本主題中的數據表做為指南,指定您希望 TI 如何處理從自動化數據類型轉換成 COBOL 數據類型的轉換。 如需特定數據類型的詳細資訊,請參閱 支援的 TI 數據類型

使用下列程式代碼索引鍵來解譯每個數據表中 [可能轉換錯誤 ] 和 [必要屬性設定 ] 資料行中的程序代碼。

程式碼 說明
r 可能的範圍錯誤。
b 因基底 2 到基底 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 用來將自動化資料類型轉換成 COBOL 數據類型的預設值。

預設

從自動化數據類型 轉換為 z/OS COBOL 資料類型 可能的轉換錯誤 必要的屬性設定
1 位元組無符號整數 PIC X 無翻譯 沒有 沒有
2 位元組帶正負號的整數 PIC S9(4) COMP (整數 16 位) 沒有 沒有
4 位元組帶正負號的整數 PIC S9(9) COMP (整數 32 位) 沒有 沒有
4 位元組實數 (單一) COMP-1 br 沒有
8 位元組實數(雙精度) COMP-2 br 沒有
布爾邏輯 PIC S9(4) COMP (整數 16 位) 沒有 沒有
可變長度字串 PIC X m
貨幣 COMP-3 打包十进制 公關 C
日期(日期與時間) COMP-3 打包十进制 pf CI
日期(僅限日期) COMP-3 打包十进制 pf 持續整合
日期(僅限時間) COMP-3 打包十进制 pf CI
十進制 COMP-3 打包十进制 公關 C
陣列 (任何資料類型) 發生固定次數 沒有 FH

備註

當您將整數或小數點數從 Visual Basic 的 Single 或 Double 數據型別轉換成 Packed Decimal 或 Distributed Program Call (DPC) Zoned Decimal 數據型別時,TI 的精度限制為小數點左邊 1 到 18 位數(例如 1.2345678901234567E+17)。 當您轉換小數點數 Packed Decimal 或 DPC Zoned Decimal 數據類型時,您應該轉換成 Visual Basic Decimal 數據類型。

下表顯示您可以在 TI 項目中設定的其他支援資料類型對應,以覆寫上表中顯示的預設值。

支援於交易整合器中

從自動化數據類型 轉換為 z/OS COBOL 資料類型 可能的轉換錯誤 必要的屬性設定
1 位元組無符號整數 PIC S9(4) COMP (整數 16 位) 沒有 沒有
1 位元組無符號整數 COMP-3 打包十进制 沒有 C
2 位元組帶正負號的整數 COMP-3 打包十进制 沒有 C
2 位元組帶正負號的整數 顯示區域編碼十進位顯示 (DISPLAY Zoned Decimal) 沒有 C
4 位元組帶正負號的整數 COMP-3 打包十进制 沒有 C
4 位元組帶正負號的整數 顯示區域編碼十進位顯示 (DISPLAY Zoned Decimal) 沒有 C
4 位元組實數 (單一) PIC S9(4) COMP (整數 16 位) p,r 沒有
4 位元組實數 (單一) PIC S9(9) COMP (整數 32 位) p,r 沒有
4 位元組實數 (單一) COMP-3 打包十进制 p,r C
4 位元組實數 (單一) 顯示區域編碼十進位顯示 (DISPLAY Zoned Decimal) p,r C
8 位元組實數(雙精度) PIC S9(4) COMP (整數 16 位) p,r 沒有
8 位元組實數(雙精度) PIC S9(9) COMP (整數 32 位) p,r
8 位元組實數(雙精度) COMP-3 打包十进制 p,r C
8 位元組實數(雙精度) 顯示區域編碼十進位顯示 (DISPLAY Zoned Decimal) p,r C
布爾邏輯 PIC S9(9) COMP (整數 32 位) 沒有 沒有
布爾邏輯 COMP-3 打包十进制 沒有 C
可變長度字串 PIC G m DEGJ
貨幣 PIC S9(?)V9(?)COMP (16 位) 公關 沒有
貨幣 PIC S9(?)V9(?)COMP (32 位) 公關 沒有
貨幣 顯示區域編碼十進位顯示 (DISPLAY Zoned Decimal) PR C
十進制 PIC S9(?)V9(?)COMP (16 位) 公關 沒有
十進制 PIC S9(?)V9(?)COMP (32 位) 公關 沒有
十進制 顯示區域編碼十進位顯示 (DISPLAY Zoned Decimal) 公關 C
陣列 (任何資料類型) 發生視情況而定 沒有 FH

備註

當您將整數或小數從 Visual Basic Single 或 Visual Basic Double 資料型別轉換成 Packed Decimal 或 DPC Zoned Decimal 資料型別時,TI 的精度限制為小數點左邊 1 到 18 位數字(例如 1.2345678901234567E+17)。

下表顯示 TI 執行時間環境支援的額外資料類型映射。

只有 TI 執行時間環境才支援

從自動化數據類型 轉換為 z/OS COBOL 資料類型 可能的轉換錯誤 必要的屬性設定
1 位元組無符號整數 PIC S9(9) COMP (整數 32 位) 沒有 沒有
1 位元組無符號整數 顯示區域編碼十進位顯示 (DISPLAY Zoned Decimal) 沒有 C
布爾邏輯 顯示區域編碼十進位顯示 (DISPLAY Zoned Decimal) 沒有 C

TI 目前不支援從自動化轉換成 COBOL 的其他資料類型轉換。

備註

當 COBOL 的 DISPLAY 語句不含符號且您將自動化類型變更為字串時,COBOL 圖形會變更為具有相同內部數據表示的 PIC X。 長度維持不變,因此不會影響您的大型主機程式。

另請參閱

支援的 TI 資料類型
將數據類型從 z/OS COBOL 轉換為自動化
數據類型轉換