不連續輸出區域和傳回值的 FILLER
如果傳回值與輸出區域不明確,您必須計算並手動指定傳回值與輸出區域之間的填入。
下列範例顯示從原始 COBOL 進入匯入精靈的填入計算, (右邊的位元組計數會新增為圖例) :
01 OUTPUT-AREA.
05 SELECTED-OUTPUT-AREA.
10 FIELD1 PIC S9(4) COMP. [2 Bytes]
10 FIELD2 PIC S9(9) COMP. [4 Bytes]
05 DISCONTIG-UNSELECTED-AREA.
10 NOTSELECTED PIC X(10). [10 Bytes]
10 ALSO-NOTSELECTED PIC S9(9) COMP. [4 Bytes]
05 RETVAL PIC S9(9) COMP. [4 Bytes]
在此情況下,因為傳回值會遵循輸出區域,所以必須新增填入最後一個輸出參數。 若要這樣做,請執行下列步驟。
解除鎖定 方法。
在詳細資料窗格中,按一下 [FIELD2]。
在 [ 檔案] 功能表上,按一下 [ 屬性],然後按一下 [COBOL 定義 ] 索引標籤。
在 [ 從主機] 方塊中,輸入 14 做為尾端的填入專案。
按一下 [確定]。
若要確認修改過的程式碼,請在TI 專案中,使用 [檔案] 功能表上的[匯出] 命令。 接著,您可以在 [記事本] 中看到您的程式碼。
以下是已新增的填滿的輸出:
01 DISCONTIGCBL-OUTPUT-AREA.
05 LL PIC S9(4) COMP. OUTPUT [2 Bytes]
05 ZZ PIC S9(4) COMP. OUTPUT [2 Bytes]
05 FIELD1 PIC S9(4) COMP. OUTPUT [2 Bytes]
05 FIELD2 PIC S9(9) COMP. OUTPUT [4 Bytes]
05 RETVAL PIC S9(9) COMP. OUTPUT [4 Bytes]