FILLER per area di output e valore restituito non contigui

Se il valore restituito non è contiguo all'area di output, è necessario calcolare e specificare manualmente il riempimento tra il valore restituito e l'area di output.

L'esempio seguente illustra il calcolo per il filler dal COBOL originale che viene inserito nell'Importazione guidata (i conteggi dei byte a destra vengono aggiunti come illustrazione):

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]  
  

In questo caso, poiché il valore restituito segue l'area di output, è necessario aggiungere filler all'ultimo parametro di output. A questo scopo, eseguire i passaggi seguenti.

  1. Sbloccare il metodo .

  2. Nel riquadro dei dettagli fare clic su FIELD2.

  3. Scegliere Proprietà dal menu Fileequindi fare clic sulla scheda Definizione COBOL .

  4. Nella casella Da host digitare 14 come riempimento finale.

  5. Fare clic su OK.

    Per verificare il codice modificato, in TI Projectusare il comando Esporta del menu File. È quindi possibile visualizzare il codice in Blocco note.

    Di seguito è riportato l'output con il filler aggiunto:

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]  
  

Vedere anche

Riempimento