Hola: A ver si va ser por este mismo motivo que ya comenté hace tiempo
http://www.mail-archive.com/[EMAIL PROTECTED]/msg05327.html El 13/04/07, XPC Foro AS400 <[EMAIL PROTECTED]> escribió:
Hola foro, Hace tiempo que uso una utilidad del foro para enviar mails desde el AS400 y siempre ha funcionado correctamente, ahora debo enviar mails adjuntando un fichero de texto. Es un fichero de texto plano que tiene los registros de longitud fija y los datos encolumnados en posiciones fijas. El mensaje llega perfectamente al destino con el fichero anexado, pero el PROBLEMA es que algunos de los registros han cambiado su longitud y los campos ya no estan encolumnados. En algun caso se ha "comido" caracteres en blanco, de forma aleatoria. La utilidad que uso esta en http://www.recursos-as400.com/utilidades15.shtml i tengo aplicadas las modificaciones de ALEX CORRETGE. La utilidad esta en el foro pero al pulsar sobre el enlace al código, la pagina ya no existe. Mi aplicación llena un PF, y lo copia al IFS con el comando CPY ... CPY OBJ('/QSYS.LIB/LIB.LIB/FRI070413.FILE/FRI070413.MBR') + TOOBJ('/FalbTDN/FRI070413.TXT') DTAFMT(*TEXT) REPLACE(*YES) .... o con el comando CPYTOSTMF (he probado con los dos ) ... CPYTOSTMF FROMMBR('/QSYS.LIB/LIB.LIB/FRI070413.FILE/FRI070413.MBR') + TOSTMF('/FalbTDN/FRI070413.TXT') STMFOPT(*REPLACE) CVTDTA(*NONE) + ENDLINFMT(*CRLF) El fichero se crea bien y en este momento mantiene su formato, para enviarlo por mail uso el mandato SNDEMAIL (la utilidad del foro) SNDMAIL ADDRESSEE(( [EMAIL PROTECTED])) + SENDER([EMAIL PROTECTED]) + SUBJECT('Fichero va ....') + ATTACHMENT((('/FalbTDN/FRI0700413.TXT') *MIME)) + MESSAGE('Adjuntamos Fichero') es al recibirlo por mail cuando, en ciertos registros, el fichero ha perdido caracteres en "blanco" y los campos han perdido su posición. si alguien se ha encontrado con este problema, o puede recomendarme otra utilidad, sera de gran ayuda ... estoy en una maquina con V5R3M0 !!! Un saludo a todos desde BCN, ... donde sigue lloviendo! Xavier P.C. __________________________________________________ Forum.HELP400 es un servicio m&#225;s de NEWS/400. &#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
-- Mi blog sobre as400 http://www.ajut400.com __________________________________________________ Forum.HELP400 es un servicio m&#225;s de NEWS/400. &#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
