Hola Alberto
Los fuentes que uso están en este mail Basicamente es lo que dices: me traigo los archivos sin problemas, tengo los nombres en List2 pero lo que no se es como volver a ponerlos en el FTP usando el mismo nombre con lo que me los traje uno a ino De: [email protected] [mailto:[email protected]] En nombre de alberto Enviado el: martes, 26 de noviembre de 2013 7:55 Para: forum.help400 Asunto: Re: Re[2]: Hola Elvira. Vale, creo que ya te entiendo. A ver si es esto: estás haciendo el ftp 'a piñon' del servidor con un texto ya escrito y querrías hacerlos con variables, no? así con el mismo programa podrías hacer put o get según fuera el caso en varios sitios diferentes. Por lo que veo en el fuente que enviaste, el nombre y ruta del fichero los tienes en la variable &list2, o sea, que ya tienes algo. Ahora tendrías que enviarnos el fuente del programa que llena el FTPCMDG4, porque ese es el programa que habría que cambiar. Salu2 De: Elvira_vazquez <[email protected]> Para: "forum.help400" <[email protected]> Fecha: 25/11/2013 20:05 Asunto: Re[2]: _____ Hola Javier No me cabe duda que haceis procesos mas elaborados porque mis concocimientos son bastantes limitados por desgracia Cambie la rutina para tratar uno a uno borrando LOGONSP y NUEVOL.TXT y creo que eso esta resuelto Ahora una pregunta: como haces el PUT usando el nombre que te viene??? es variable y distinto cada vez Repito: ademas de tener cocnocimientos un poco rudimentarios estoy bloqueada Agradezco toda la ayuda por tonta y simple que parezca Gracias _____ -----Mensaje original----- De: "Javier Mora" <[email protected]> A: forum.help400 <[email protected]> Fecha: 25/11/2013 11:57 Asunto: RE: Hola Elvira, creo que es bastante sencillo solucionar el problema: en lugar de ir acumulando todos los XML en el fichero LOGONSP sólo tienes que realizar el análisis por cada fichero insertando la llamada al programa validador dentro del bucle del programa 2, vaciando previamente NUEVOL.TXT y LOGONSP. Si la validación es correcta, realizas el PUT con el nombre del fichero que acabas de procesar. Nosotros también realizamos procesos similares al que describes, aunque utilizamos siempre el IFS para almacenar los archivos a procesar (la QDLS está totalmente descartada) y empleamos herramientas un poquito más elaboradas para recuperar la lista de archivos del IFS o del servidor FTP. Ye he visto que Alberto ha concretado mucho más la solución. Javier _____ De: [email protected] [ <mailto:[email protected]> mailto:[email protected]] En nombre de Elvira Vázquez Enviado el: viernes, 22 de noviembre de 2013 16:29 Para: 'forum.help400' Asunto: RE: Pido disculpas por no haber contestado antes pero no tenia acceso al mail. Esto es lo que uso en el proceso. PROGRAMA 1 0001.00 PGM 0001.01 CLRPFM FILE(WFUENTE/FTPTXT) MBR(FTPLOGLG) 0001.02 MONMSG MSGID(CPF3141) EXEC(DO) 0001.03 ADDPFM FILE(WFUENTE/FTPTXT) MBR(FTPLOGLG) + 0001.04 TEXT('LOG DE LLEGADA LOGON') 0001.05 ENDDO 0002.00 OVRDBF FILE(INPUT) TOFILE(WFUENTE/FTPTXT) + 0003.00 MBR(FTPCMDG4) 0003.01 OVRDBF FILE(OUTPUT) TOFILE(WFUENTE/FTPTXT) + 0003.02 MBR(FTPLOGLG) 0003.04 STRTCPFTP RMTSYS(xxxxxxxxxxxxxxx) 0003.05 DLTOVR FILE(INPUT OUTPUT) 0004.00 ENDPGM ****************** End of data **************************************** FTPCMDG4 *************** Beginning of data ************************************* 0001.00 FTP PASSWORD 0001.01 locsite NAMEFMT 1 0001.02 bin 0002.01 cd /home_0000028800/edirecv/Order/LogOn 0002.02 lcd /ftp 0003.00 mget *.xml 0004.00 quit ****************** End of data **************************************** PROGRAMA 2 *************** Beginning of data ************************************* 0001.00 PGM 0001.01 DCLF FILE(WDBBASE/LISTL) 0001.02 DCL VAR(&LISTL2) TYPE(*CHAR) LEN(50) 0001.03 DCL VAR(&LSTPOS) TYPE(*DEC) LEN(3 0) 0001.04 DCL VAR(&RSLT) TYPE(*DEC) LEN(3 0) 0001.14 /*OBTENER LA LISTA DE ARCHIVOS*/ 0001.15 STRQSH CMD('LS /FTP/ > + 0001.16 /QSYS.LIB/WDBBASE.LIB/LISTL.FILE/LISTL.MBR') 0001.17 MONMSG MSGID(QSH0005) 0001.18 /*LEE EL ARCHIVO QUE CONTIEN LOS NOMBRES DESCONOCIDOS*/ 0001.19 START: 0001.20 RCVF RCDFMT(LISTL) 0001.21 MONMSG MSGID(CPF0864) EXEC(GOTO CMDLBL(END)) 0001.22 CHGVAR VAR(&LISTL2) VALUE('/ftp/' *tcat &listl) 0001.29 CPY OBJ(&LISTL2) TOOBJ('/QDLS/FTPX/NUEVOL.TXT') + 0001.30 REPLACE(*YES) 0001.31 CPYFRMPCD FROMFLR(FTPX) TOFILE(WDBBASE/LOGONSP) FROMDOC(NUEVOL.TXT) + 0001.32 TRNFMT(*NOTEXT) MBROPT(*ADD) 0001.33 RMVLNK OBJLNK(&LISTL2) 0001.35 GOTO CMDLBL(START) 0004.00 END: ENDPGM ****************** End of data **************************************** PROGRAMA DE LA APLICACION Trato los xml que guarde en LOGONSP y los correctos los voy guardando en otro fichero unico. Al final hago un PUT de ese fichero al FTP Este último paso es el que ahora tengo que cambiar y en lugar de dejar un único fichero, dejar tantos como he recibido y con el nombre original que los he recibido Elvira De: [email protected] [ <mailto:[email protected]> mailto:[email protected]] En nombre de alberto Enviado el: jueves, 21 de noviembre de 2013 8:09 Para: forum.help400 Asunto: RE: Hola Yo tampoco lo entiendo, o no sé si lo entiendo bien...El primer FTP, qué es? una carpeta? Tuya o remota? porque dices que los 'dejas' ahí. Si dices que los correctos los 'dejas ahí', quiere decir que sólo los lees, no tienes que hacer nada con ellos, y borras los incorrectos.Pero supongo que alguien tendrá un proceso que limpie esa carpeta, o que marque los ficheros como procesados, porque cada vez vas a tener más ficheros en esa carpeta, y evidentemente la mayoría ya los habrás procesado. cómo los distingues? O ese FTP no lo haces tú? sino que alguien se conecta a una carpeta de tu AS y te hace un Put? Lees una carpeta remota, copias los ficheros en tu AS y los tratas allí? o directamente los lees de la remota, los procesas todos y sólo borras los 'incorrectos'? Detalla un poco más, porfa De: Elvira Vázquez < <mailto:[email protected]> [email protected]> Para: "'forum.help400'" < <mailto:[email protected]> [email protected]> Fecha: 20/11/2013 23:08 Asunto: RE: _____ Javier Trabajo con FTP pero de forma bastante básica. Los traigo del FTP original pero los junto todos en un fichero del AS LO que hacia era que los correctos todos juntos los dejaba en otro FTP pero ahora tengo que dejar por separado cada uno de los originales y es ahí donde me pierdo De: <mailto:[email protected]> [email protected] [ <mailto:[email protected]> mailto:[email protected]] En nombre de Javier Mora Enviado el: miércoles, 20 de noviembre de 2013 18:40 Para: forum.help400 Asunto: RE: Elvira, ¿qué problema técnico tienes para realizar lo que te piden? Tienes claro lo que quieres conseguir, lo que no entiendo es cual es el problema real. Por ejemplo, ¿sabes manejarte con el FTP? Parece que sí porque ya lo estás haciendo. ¿Estás ya tratando varios archivos del FTP origen? Parece que sí, porque estás revisando uno a uno y los correctos los estás cocatenando en otro. ¿Qué problema hay en dejarlo con el mismo nombre en el otro FTP? ¿Puedes explicarnos con un poco más de detalle lo que necesitas? Yo, de momento, no tengo muy claro como ayudarte. Un saludo, Javier Mora _____ De: <mailto:[email protected]> [email protected] [ <mailto:[email protected]> mailto:[email protected]] En nombre de Elvira Vázquez Enviado el: miércoles, 20 de noviembre de 2013 16:15 Para: 'forum.help400' Asunto: RV: Hola foro Alguien me puede ayudar con esto. Estoy bastante perdida y no se adonde recurrir y me están presionando desde el cliente Tengo un proceso donde traigo ficheros .xml de un FTP, los proceso y los correctos los dejo en otro FTP. Hasta ahora lo hacia dejando los correctos en una sola carpeta del segundo FTP todos juntos en una mismo fichero Ahora me dicen que una vez procesados en el AS debo seguir dejando solo los correctos como hasta ahora pero los originales recibidos en el primer FTP y con el nombre con el que fueron dejados. Gracias Elvira____________________________________________________ Únete a Recursos AS400, nuestra Comunidad ( <http://bit.ly/db68dd> http://bit.ly/db68dd ) Forum.Help400 © Publicaciones Help400, S.L. _____ ____________________________________________________ Únete a Recursos AS400, nuestra Comunidad ( <http://bit.ly/db68dd> http://bit.ly/db68dd ) Forum.Help400 © Publicaciones Help400, S.L.____________________________________________________ Únete a Recursos AS400, nuestra Comunidad ( <http://bit.ly/db68dd> 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.
