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
