[Aporte] Tablas bidimensionales de longitud variable

[Kuk]

Como se sabe, el COBOL no gestiona la memoria de manera dinámica. Es decir, aunque definamos el DEPENDING ON, en realidad siempre reserva el máximo que indicamos en el TO n TIMES. Ademas, no podemos meter varios DEPENDING ON anidados, ya que el direccionamiento de la memoria no es dinámico.

Pero, el compilador NetExpress de MicroFocus lo permite. Para ello debemos añadir una directiva en la cabeza:

$SET ODOSLIDE

El resultado de añadira nos permite tener tablas con DEPENDING ON anidados:

     LINKAGE SECTION.
 
       01  LINK-AREA.
           10  LNK-DATO1     PIC X(4).
           10  LNK-LONG      PIC 99.
           10  LNK-OCCURS    PIC 9999.
           10  LNK-REGISTRO OCCURS 1 TO 9999 DEPENDING ON LNK-OCCURS.
               15  FILLER OCCURS  40 TO   50 DEPENDING ON LNK-LONG.
                   20 FILLER PIC X.
 
           10  LNK-COD-RET   PIC XX.
           10  LNK-FS        PIC XX.
 
       PROCEDURE DIVISION USING LINK-AREA.

[GabrielACE]

y lo dinamico donde esta?

no lo entiendo :-(

[Kuk]

GabrielACE, no se trata de dinámico. Se trata de poder meter varios DEPENDING ON anidados. Viene a ser "pseudo-dinámico". Mira bien el código y verás que el campo padre LNK-REGISTRO que depende de un indice contiene un FILLER hijo que a su vez depende de otro indice.