Gracias Rui Pinto (Rapinto)
COBOL Foro
Foro dedicado a COBOL, a la Programación y a la Informática.
Retroceder   COBOL Foro > IDE-s y compiladores COBOL > Cocina Casera > Cocina MicroFocus
Cocina MicroFocus Código y rutinas para compiladores MicroFocus.
Noticias y Avisos
Otros temas que te pueden interesar
Tema Autor Foro Respuestas Último post
[Sintaxis] Traspaso de valor en variable entre 2 Forms jmeza PowerCOBOL (ActiveX, v4 - v11) 12 13 de noviembre de 2018 19:24
[Sintaxis] Informar variable JCL con contenido de fichero. RaulC JCL y utilidades 9 4 de abril de 2018 19:47
[Sintaxis] Compratir variable con un EXE de PowerCOBOL Recato53 PowerCOBOL (ActiveX, v4 - v11) 10 14 de febrero de 2017 16:18
[Compilador] ACCEPT sin rellenar la variable entera Kuk NetCOBOL for Windows 2 28 de junio de 2016 07:26
[Noticia] Longitud máxima soportada por CBL_COPY_FILE Roger PowerCOBOL (ActiveX, v4 - v11) 3 27 de agosto de 2015 16:37
Respuesta
 
Herramientas

  #1
Antiguo 4 de junio de 2015, 20:17
IDENTIFICATION DIVISION
Kuk
Administrador
ENVIRONMENT DIVISION
Avatar de Kuk
DATA DIVISION
Forero desde (Registrado)diciembre 2014
España
UbicaciónMadrid
Edad34 años
Última Actividad14.10.2019 19:59
PROCEDURE DIVISION
PostsPosts: 1.415
Ha dicho GraciasEnviado: 318
Ha recibido agradecimientosRecibido: 539
Mejores respuestasSoluiones: 87
ReputaciónReputación: 10
Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road
Lightbulb Tablas bidimensionales de longitud variable

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:

Código:
$SET ODOSLIDE
El resultado de añadira nos permite tener tablas con DEPENDING ON anidados:

Código COBOL:
  1.      LINKAGE SECTION.
  2.  
  3.        01  LINK-AREA.
  4.            10  LNK-DATO1     PIC X(4).
  5.            10  LNK-LONG      PIC 99.
  6.            10  LNK-OCCURS    PIC 9999.
  7.            10  LNK-REGISTRO OCCURS 1 TO 9999 DEPENDING ON LNK-OCCURS.
  8.                15  FILLER OCCURS  40 TO   50 DEPENDING ON LNK-LONG.
  9.                    20 FILLER PIC X.
  10.  
  11.            10  LNK-COD-RET   PIC XX.
  12.            10  LNK-FS        PIC XX.
  13.  
  14.        PROCEDURE DIVISION USING LINK-AREA.


NORMAS DEL FORO - obligatorias de conocer para TODOS.
¿Te han ayudado? NO TE OLVIDES de darle a
¿Quieres dirigirte a alguien en tu post? Notifícale Pinchando en su Nick:

Kuk no ha iniciado sesión   Responder Con Cita
Ha dicho Gracias : 1
Hrmcobol (24 de mayo de 2018)
  #2
Antiguo 22 de mayo de 2018, 19:41
IDENTIFICATION DIVISION
GabrielACE
Novato Junior
ENVIRONMENT DIVISION
Avatar de GabrielACE
DATA DIVISION
Forero desde (Registrado)abril 2018
Argentina
Última Actividad11.04.2019 13:16
PROCEDURE DIVISION
PostsPosts: 32
Ha dicho GraciasEnviado: 0
Ha recibido agradecimientosRecibido: 4
Mejores respuestasSoluiones: 0
ReputaciónReputación: 0
GabrielACE is an unknown quantity at this point
Predeterminado

y lo dinamico donde esta?

no lo entiendo :-(
GabrielACE no ha iniciado sesión   Responder Con Cita
  #3
Antiguo 23 de mayo de 2018, 10:13
IDENTIFICATION DIVISION
Kuk
Administrador
ENVIRONMENT DIVISION
Avatar de Kuk
DATA DIVISION
Forero desde (Registrado)diciembre 2014
España
UbicaciónMadrid
Edad34 años
Última Actividad14.10.2019 19:59
PROCEDURE DIVISION
PostsPosts: 1.415
Ha dicho GraciasEnviado: 318
Ha recibido agradecimientosRecibido: 539
Mejores respuestasSoluiones: 87
ReputaciónReputación: 10
Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road
Predeterminado

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.


NORMAS DEL FORO - obligatorias de conocer para TODOS.
¿Te han ayudado? NO TE OLVIDES de darle a
¿Quieres dirigirte a alguien en tu post? Notifícale Pinchando en su Nick:

Kuk no ha iniciado sesión   Responder Con Cita
Respuesta


Usuarios activos actualmente viendo este tema: 1 (0 miembros y 1 visitantes)
 
Herramientas

Derechos de Publicación
No puedes publicar nuevos temas
No puedes publicar posts/responder
No puedes adjuntar archivos
No puedes editar tus posts

BB code is habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado



La franja horaria es GMT +1. Ahora son las 04:57.
Powered by: vBulletin, Versión 3.8.7
Derechos de Autor ©2000 - 2019, Jelsoft Enterprises Ltd.