隣接していない出力領域の FILLER と戻り値

戻り値が出力領域から連続していない場合は、戻り値と出力領域の間にあるスペースを計算し、手動で指定する必要があります。

次の例では、インポートウィザードに表示される元の COBOL の filler の計算を示しています (右側のバイト数は図として追加されています)。

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]  
  

この場合、戻り値は出力領域の後にあるため、最後の出力パラメーターに filler を追加する必要があります。 このためには、次の手順を実行します。

  1. メソッドのロックを解除します。

  2. 詳細ペインで、[ FIELD2] をクリックします。

  3. [ ファイル ] メニューの [ プロパティ] をクリックし、[ COBOL の定義 ] タブをクリックします。

  4. [ ホストから ] ボックスで、末尾のスペースとして「14」と入力します。

  5. OK をクリックします。

    変更したコードを確認するには、 TI Projectで、[ファイル] メニューの [エクスポート] を使用します。 メモ帳でコードを確認できます。

    次に、追加した filler の出力を示します。

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