ops falta el ejemplo http://mowyourlawn.com/blog/?p=161
El día 16 de marzo de 2012 13:23, Alex Martínez <[email protected]> escribió: > 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.
