Gracias a todos... este está perfecto.Saludos, Feliz Navidad y un año lleno de
exitos y prosperidad!!!Oswaldo OliverFrom: [email protected]:
[email protected]: Re: Matriz Bidimensional en RPG IVDate:
Mon, 22 Dec 2008 18:34:45 +0100
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:42Para:
forum.help400Asunto: 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
reservadoshttp://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
reservadoshttp://www.help400.es_____________________________________________________Para
darte de baja visita la siguente
URL:http://listas.combios.es/mailman/listinfo/forum.help400
_________________________________________________________________
Get 5 GB of storage with Windows Live Hotmail.
http://windowslive.com/Explore/Hotmail?ocid=TXT_TAGLM_WL_hotmail_acq_5gb_112008__________________________________________________
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
