Pues funciona perfectamente... y mucho mas claro.
Atte.
Miquel Sanuy
[email protected]
----- Original Message -----
From: Zitro 5
To: 'forum.help400'
Sent: Monday, December 22, 2008 6:19 PM
Subject: RE: Matriz Bidimensional en RPG IV
Y esto
D D1 DS DIM(10) QUALIFIED
D D2 5 0 DIM(10)
C EVAL D1(7).D2(4)=8130
Y te evitas el procedimiento. Pero la verdad es que no lo he probado.
Gustavo Adolfo Márquez Álvarez.
Departamento de Informática.
[email protected]
inforZitro, S. L.
Carretera de Níjar, nº 404.
04007 Almería (España).
Teléfono: 950 226 658.
Extensión: 148.
Fax: 950 223 620.
-----Mensaje original-----
De: [email protected]
[mailto:[email protected]] En nombre de Miquel Sanuy .
Enviado el: lunes, 22 de diciembre de 2008 17:42
Para: forum.help400
Asunto: Matriz Bidimensional en RPG IV
Te paso un ejemplo, que simula una tabla con 2 dimensiones.
Es original de Carlos Portolés.
H DECEDIT('0,') DATEDIT(*DMY/) OPTION(*NODEBUGIO:*SRCSTMT) DFTACTGRP(*NO)
*
-----------------------------------------------------------------------------------------
*
D MaxFil C const(20)
D MaxCol C const(12)
D Serie S 5P 0 DIM(240)
D Pos PR 3 0
D Fila 2 0 const
D Columna 2 0 const
*
-----------------------------------------------------------------------------------------
*
C 1 DO 20 X 2 0
C 1 DO 12 Y 2 0
C EVAL Serie(Pos(X:Y)) = X * 100 + Y
C ENDDO
C ENDDO
C SETON LR
*
-----------------------------------------------------------------------------------------
*
P Pos B
D Pos PI 3 0
D Fila 2 0 const
D Columna 2 0 const
C RETURN (Fila-1)*MaxCol+Columna
P Pos E
Atte.
Miquel Sanuy
[email protected]
----- Original Message -----
From: Oswaldo Oliver
To: Forum400
Sent: Monday, December 22, 2008 4:45 PM
Subject: Matriz Bidimensional en RPG IV
Hola todos,
Necesito ayuda... quiero manejar una matriz bidimensional en RPG IV pero no
se como hacerlo... alguien tiene un ejemplo o documentación práctica al
respecto?
De antemano, muchas gracias a todos.
Oswaldo Oliver
----------------------------------------------------------------------------
See how Windows® connects the people, information, and fun that are part of
your life
----------------------------------------------------------------------------
__________________________________________________
Forum.HELP400 es un servicio más de NEWS/400.
© Publicaciones Help400, S.L. - Todos los derechos reservados
http://www.help400.es
_____________________________________________________
Para darte de baja visita la siguente URL:
http://listas.combios.es/mailman/listinfo/forum.help400
------------------------------------------------------------------------------
__________________________________________________
Forum.HELP400 es un servicio más de NEWS/400.
© Publicaciones Help400, S.L. - Todos los derechos reservados
http://www.help400.es
_____________________________________________________
Para darte de baja visita la siguente URL:
http://listas.combios.es/mailman/listinfo/forum.help400__________________________________________________
Forum.HELP400 es un servicio más de NEWS/400.
© Publicaciones Help400, S.L. - Todos los derechos reservados
http://www.help400.es
_____________________________________________________
Para darte de baja visita la siguente URL:
http://listas.combios.es/mailman/listinfo/forum.help400
