不連續輸出區域和傳回值的 FILLER

如果傳回值與輸出區域是不連續的,您必須計算並手動指定傳回值與輸出區域之間的填充。

下列範例顯示從原始 COBOL 到匯入 Wizard 的填充運算, (右邊的位元組計數加入為圖例) :

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 Project中,使用 [檔案] 功能表上的 [匯出] 命令。 然後,您可以在記事本中看到您的程式碼。

    以下是已新增填充的輸出:

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