Compartir a través de

FILLER para área de salida discontigua y valor devuelto

  • Artículo

Si el valor devuelto no es ambiguo 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 el á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 Propiedades y, 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 el proyecto de TI, use el comando Exportar en el menú Archivo . A continuación, puede ver el código en el 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]

Consulte también

Filler