FILLER para área de salida discontigua y valor devuelto

Si el valor devuelto no es específico del área de salida, debe calcular y especificar manualmente el relleno entre el valor devuelto y el área de salida.

En el ejemplo siguiente se muestra el cálculo del relleno del COBOL original que va al Asistente para importación (los recuentos de bytes de la derecha se agregan como ilustración):

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]  
  

En este caso, dado que el valor devuelto sigue al área de salida, el relleno debe agregarse al último parámetro de salida. Para ello, siga estos pasos.

  1. Desbloquee el método .

  2. En el panel de detalles, haga clic en FIELD2.

  3. En el menú Archivo , haga clic en Propiedadesy, a continuación, haga clic en la pestaña Definición de COBOL .

  4. En el cuadro Desde host , escriba 14 como relleno final.

  5. Haga clic en OK.

    Para comprobar el código modificado, en ti Project, use el comando Exportar en el menú Archivo. A continuación, puede ver el código en Bloc de notas.

    A continuación se muestra la salida con el relleno agregado:

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]  
  

Vea también

Filler