RE: Matriz Bidimensional en RPG IV

Mon, 22 Dec 2008 09:10:11 -0800 

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

 <mailto:[email protected]> [email protected]

 

 

 

 

 

----- Original Message ----- 

From: Oswaldo Oliver <mailto:[email protected]>  

To: Forum400 <mailto:[email protected]>  

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 <http://clk.atdmt.com/MRT/go/119463819/direct/01/>  Windows®
connects the people, information, and fun that are part of your life 


  _____  


__________________________________________________
Forum.HELP400 es un servicio m&amp;#225;s de NEWS/400.
&amp;#169; 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&amp;#225;s de NEWS/400.
&amp;#169; 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

Responder a