Tambien es posible........ no ve o la dificultad Lees el fichero con read() y troceas con strtok
Aqui un ejemplo para leer del IFS y con la variable bytesRead la pasas por strtok El 16 de marzo de 2012 12:47, alberto <alberto/[email protected]> escribió: > > A ficheros planos? > de las IFS? > > > > De: Alex Martínez <[email protected]> > Para: "forum.help400" <[email protected]> > Fecha: 16/03/2012 11:17 > Asunto: Re: Movea en Free > Enviado por: [email protected] > ________________________________ > > > > Hola > > Tiene muchas aplicaciones la utilización de strtok > > En el foro se preguntó por un tema parecido con ficheros EDI y el ejemplo era > para utilizar como posibles delimitadores de series los caracteres definidos > Delimiters + y : > > Tambien se puede aplicar a fichero planos, tipo CSV o similares. > > Salu2 > > El 16 de marzo de 2012 11:00, alberto <alberto/[email protected]> > escribió: > Gracias Alex, ya me lo estoy mirando. > Por cierto, veo que el ejemplo lo has construido con una cadena de caracteres > de un fichero plano EDI, no? > Gracias > > > > De: Alex Martínez <[email protected]> > Para: "forum.help400" <[email protected]> > Fecha: 16/03/2012 10:53 > Asunto: Re: Movea en Free > Enviado por: [email protected] > ________________________________ > > > > Hola Alberto > > Para lo que quieres hacer, descomponer una cadena en diferentes elementos > puedes utilizar la función strtok > > En mi blog publiqué un ejemplo, aunque no está codificado en free, adaptado a > su vez de otro publicado en el Redbook > > https://sites.google.com/site/ajut400/Tecnicas/tokens > > Who Knew You Could Do That with RPG IV? A Sorcerer's Guide to System Access > and More > http://www.redbooks.ibm.com/abstracts/sg245402.html > > El 16 de marzo de 2012 08:01, alberto <alberto/[email protected]> > escribió: > > > > Hola > > Un cliente me envia un fichero plano con registros del tipo > > |||||1009||H9M|||||||||||||...etc > > Cada pipe '|' marca la posición de un campo, y quiero desglosarlo todo en > > un array, llenar unas posiciones determinadas y devolverlo a la cadena que > > le tengo que retornar al cliente. > > P.Ej: > > FFentradaIF E K DISK > > Fftrstmfbp UF A E K DISK Rename(ftrstmfbp:Registro) Campo a > > llenar del fichero del cliente > > DCampoarray S 50 Varying Dim(219) Array que creo yo > > con 219 posiciones > > IRegistro > > I Ftrstmfbp @Campo > > En Fentrada me llega un campo con 219 'pipes', lo quiero desglosar en > > Campoarray, llenar Campoarray(x) y Campoarray(y) con dos valores que tengo > > que calcular y devolver la cadena resultante a @campo para llenar el > > fichero plano. > > Lo suyo sería Movea Campoarray @campo, pero en Free no sé cómo hacerlo. > > Salut > > > > > > > > > > > > > > > > De: Pedro Molina <[email protected]> > > Para: <[email protected]> > > Fecha: 15/03/2012 19:30 > > Asunto: RE: Movea en Free > > Enviado por: [email protected] > > ________________________________ > > > > > > > > Hola. > > > > Que es lo que quieres hacer específicamente? porque hay varios modos > > depende de lo que quieras hacer xej; mover un arreglo completo a una DS o > > mover una parte del arreglo o mover de una DS a un arreglo...en fin no sé... > > > > Saludos!! > > > > ________________________________ > > To: [email protected] > > Subject: Movea en Free > > Date: Thu, 15 Mar 2012 18:16:36 +0100 > > From: alberto/[email protected] > > > > Hola > > Pues la pregunta es simple: > > cómo habéis sustituido, o cómo se puede sustituir el movea en RPG FREE? > > Gracias > > > > ____________________________________________________ �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. > > > > ____________________________________________________ > > Ú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. > > ____________________________________________________ > Ú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. > > ____________________________________________________ > Ú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.
