不連續輸出區域和傳回值的 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]  
  

在此情況下,因為傳回值會遵循輸出區域,所以必須新增填入最後一個輸出參數。 若要這樣做,請執行下列步驟。

  1. 解除鎖定 方法。

  2. 在詳細資料窗格中,按一下 [FIELD2]。

  3. 在 [ 檔案] 功能表上,按一下 [ 屬性],然後按一下 [COBOL 定義 ] 索引標籤。

  4. 在 [ 從主機] 方塊中,輸入 14 做為尾端的填入專案。

  5. 按一下 [確定]。

    若要確認修改過的程式碼,請在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]  
  

另請參閱

Filler