Buenas tardes. Se me ocurren tres formas:
1) Esta es la sencilla. DMatriz DS Dim(10) Qualified D Vector 12 2 Dim(10) /Free Matriz(9).Vector(9)=9; /End-Free 2) Esta permite que definir el array secundario como un tipo de datos reutilizable (gracias al LikeDS), pero el acceso al dato es demasiado rebuscado. DArray DS Qualified D Campo 12 2 Dim(10) DMatriz DS Dim(10) Qualified D Vector LikeDS(Array) /Free Matriz(9).Vector.Campo(9)=9; /End-Free 3) Esta es una combinación de las dos. Permite definir el array secundario como un tipo de datos reutilizable (gracias al Like no LikeDS) y el acceso al datos es sencillo como en el primer ejemplo. DArray S 12 2 Dim(10) DMatriz DS Dim(10) Qualified D Vector Dim(%Elem(Array)) Like(Array) /Free Matriz(9).Vector(9)=9; /End-Free 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 Nicolas Machado Enviado el: miércoles, 22 de abril de 2009 17:09 Para: forum.help400 Asunto: Re: consulta técnica matrices RPG Perdon mi ignorancia. porque esto no genera un aryay de 91 elementos (DIM 91) de 1092,2 posiciones (1 1092S 2)? Saludos Peñaherrera escribió: gracias De: [email protected] [mailto:[email protected]] En nombre de Carlos Pedrozo Enviado el: martes, 21 de abril de 2009 19:29 Para: [email protected] Asunto: RE: consulta técnica matrices RPG *------------- D vector DS D vcta 1 1092s 2 D DIM(91) _____ From: [email protected] To: [email protected] Date: Tue, 21 Apr 2009 18:17:41 -0500 Subject: RE: consulta técnica matrices RPG Correcto Tengo un vector de 91 elementos de 12 posiciones con 2 decimales , a este vector le quiero poner en una matriz. En la definición del vector se tiene: E AR1 91 12 2 DESG.CARTERA NAC. En la definición de la matriz se tiene: IMAT0 DS 9 I 11092 AR1 Al compilar me da error en la definición de la matriz. De: [email protected] [mailto:[email protected]] En nombre de Carlos Pedrozo Enviado el: martes, 21 de abril de 2009 17:56 Para: [email protected] Asunto: RE: consulta técnica matrices RPG podrias dar un ejemplo de lo que queres hacer. saludos CP _____ From: [email protected] To: [email protected] Date: Tue, 21 Apr 2009 17:43:55 -0500 Subject: consulta técnica matrices RPG Compañeros: Necesito crear una matriz donde el campo que forma esta matriz es un vector, me pueden ayudar con la definición de esta estructura en RPG o donde puede consultar sobre el manejo de este tipo de matrices. Gracias. _____ Nota de descargo: La información contenida en este e - mail y sus anexos es confidencial y sólo puede ser utilizada por el destinatario del mismo. Esta información no debe ser distribuida, ni copiada total o parcialmente por ningún medio sin la autorización de DINERS/INTERDIN. Además, DINERS/INTERDIN no asume responsabilidad sobre información, opiniones o criterios contenidos en este e-mail. Disclaimer: The information contained in this e-mail and its attached files are confidential and intended only for the use of the person to which it is addressed. This information can not be totally or partially distributed nor copied by any media without the authorization from DINERS/INTERDIN. In addition, DINERS/INTERDIN does not assume responsibility about this information, opinions or criteria contented in this e-mail. _____ See all the ways you can stay connected to friends and family <http://www.microsoft.com/windows/windowslive/default.aspx> _____ Get news, entertainment and everything you care about at Live.com. Check it out! <http://www.live.com/getstarted.aspx%20> _____ __________________________________________________ Forum.HELP400 es un servicio m&#225;s de ServerNEWS. &#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 -- .::. Nicolas Machado Metodo Argentina S.A. _____________________ Tel: 02262 527431 Necochea, Buenos Aires.
__________________________________________________ Forum.HELP400 es un servicio m&#225;s de ServerNEWS. &#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
