Hola Es que sólo quiero unos campos determinados. Al programa le entra como parámetro un arrai( o estructura DS, que para el caso es el mismo) con la estructura de registro de un fichero externo, y N repeticiones. Dentro de la estructura del fichero, hay una serie de campos que quiero convertir en array, los otros no, lo típico...Iva1, iva2, iva3, base1, base2, base3...etc Con el fichero definido sí sé hacerlo, pero con el Extname no he encontrado la manera segura, aunque estoy probando con : D@iiva... D DS DAsimv1 Estos tres, son campos de registro externo DAsimv2 DAsimv3 DArr_iiva Like(Asimv1) D Overlay(@iiva) dim(3) lo que pasa es que hasta que no esté acabado no lo podré comprobar y es una currada para que luego no me funcione :( Pero ya os tendré informados
De: Cristina Cirera <[email protected]> Para: "forum.help400" <[email protected]> Fecha: 29/04/2015 08:37 Asunto: RE: Array a partir de campos Enviado por: [email protected] Hola, puedes hacerlo así DRfichero E DS ExtName(ficheroext) Qualified D dim(999) Saludos De: [email protected] [ mailto:[email protected]] En nombre de alberto Enviado el: martes, 28 de abril de 2015 15:27 Para: forum.help400 Asunto: Array a partir de campos Buenas Foro. Para crear un array a partir de unos campos, se hacía lo siguiente: 1) definir la variable en la hoja D D VariableA S 2 0 DIM(2) D VariableB S 5 0 DIM(2) y luego, se le cambiaba el nombre al campo en la hoja I: IRfichero I VariableA1 Variablea(1) I VariableA2 Variablea(2) I VariableB1 VariableB(1) I VariableB2 VariableB(2) El caso es que esto es cuando se define un fichero internamente, pero...aqui viene la pregunta: ..Y si el registro está descrito en un Extname? DRfichero E DS occurs(999) Extname(ficheroext) Gracias!!! Cristina Cirera Rble. Grupo ITFrontOffice [email protected] Tel. 902 202 214 (ext. 287) Skype: venca.es No imprimas si no es necesario. Protejamos el Medio Ambiente. SAVE PAPER - THINK BEFORE YOU PRINT AVISO: El contenido de este mensaje y sus anexos es confidencial. Le comunico la prohibición de su utilización, divulgación y/o copia, sin la correspondiente autorización. Si ha recibido este mensaje por error, agradecería lo comunique inmediatamente al remitente y proceda asimismo a su destrucción según indica la LOPD. ____________________________________________________ Únete a Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd ) Forum.Help400 © Publicaciones Help400, S.L.
____________________________________________________ Únete a Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd ) Forum.Help400 © Publicaciones Help400, S.L.
