Hola, buenos días También puedes investigar con el mandato TRCTCPAPP. Yo no puedo probarlo ahora, pero te paso el enlace:
http://www.ibm.com/support/knowledgecenter/ssw_i5_54/rzaiq/rzaiqtraceserver.htm El apartado es: Tracing the FTP server with the Trace TCP/IP Application (TRCTCPAPP) command Un saludo El vie., 23 sept. 2016 a las 12:48, <forum.help400-requ...@listas.combios.es> escribió: > Envíe los mensajes para la lista Forum.help400 a > forum.help400@listas.combios.es > > Para subscribirse o anular su subscripción a través de la WEB > http://listas.combios.es/cgi-bin/mailman/listinfo/forum.help400 > > O por correo electrónico, enviando un mensaje con el texto "help" en > el asunto (subject) o en el cuerpo a: > forum.help400-requ...@listas.combios.es > > Puede contactar con el responsable de la lista escribiendo a: > forum.help400-ow...@listas.combios.es > > Si responde a algún contenido de este mensaje, por favor, edite la > linea del asunto (subject) para que el texto sea mas especifico que: > "Re: Contents of Forum.help400 digest...". Además, por favor, incluya > en la respuesta sólo aquellas partes del mensaje a las que está > respondiendo. > > > Asuntos del día: > > 1. RE: duda (Elvira Vázquez) > > > ---------------------------------------------------------------------- > > Message: 1 > Date: Fri, 23 Sep 2016 12:47:32 +0200 > From: Elvira Vázquez <elvira_vazq...@edasnet.com> > Subject: RE: duda > To: "'forum.help400'" <forum.help400@listas.combios.es> > Message-ID: <003201d21587$e3539680$a9fac380$@com> > Content-Type: text/plain; charset="iso-8859-1" > > Gracias por todas las respuestas > > > > De: forum.help400-boun...@listas.combios.es > [mailto:forum.help400-boun...@listas.combios.es] En nombre de Carlos > Bartolomé > Enviado el: viernes, 23 de septiembre de 2016 12:19 > Para: forum.help400@listas.combios.es > Asunto: Re: duda > > > > Elvira, te paso sentencias de un CL de muestra (este CL concretamente lo > que > hace es recibir parámetros origen y destino y enviar un fichero a un FTP > Server) y un RPG que uso como estándar para montar ficheros de > instrucciones > FTP. > Creo y espero que ésto te servirá. > > > > /*-------------------------------------------------------------------------- > --*/ > /* ENVIAR FICHEROS DESDE UN AS A OTRO AS VIA FTP */ > > > /*-------------------------------------------------------------------------- > --*/ > PGM PARM(&LIBORI &FILEORI &LIBDES &FILEDES) > /**/ > > DCL VAR(&LIBORI) TYPE(*CHAR) LEN(10) > DCL VAR(&FILEORI) TYPE(*CHAR) LEN(10) > DCL VAR(&LIBDES) TYPE(*CHAR) LEN(10) > DCL VAR(&FILEDES) TYPE(*CHAR) LEN(10) > /**/ > > DCL VAR(&CMD01) TYPE(*CHAR) LEN(100) > DCL VAR(&CMD02) TYPE(*CHAR) LEN(100) > DCL VAR(&CMD03) TYPE(*CHAR) LEN(100) > DCL VAR(&CMD04) TYPE(*CHAR) LEN(100) > DCL VAR(&CMD05) TYPE(*CHAR) LEN(100) > DCL VAR(&CMD06) TYPE(*CHAR) LEN(100) > DCL VAR(&CMD07) TYPE(*CHAR) LEN(100) > DCL VAR(&CMD08) TYPE(*CHAR) LEN(100) > DCL VAR(&CMD09) TYPE(*CHAR) LEN(100) > DCL VAR(&CMD09) TYPE(*CHAR) LEN(100) > DCL VAR(&CMD10) TYPE(*CHAR) LEN(100) > DCL VAR(&CMD11) TYPE(*CHAR) LEN(100) > DCL VAR(&CMD12) TYPE(*CHAR) LEN(100) > DCL VAR(&CMD13) TYPE(*CHAR) LEN(100) > DCL VAR(&CMD14) TYPE(*CHAR) LEN(100) > DCL VAR(&CMD15) TYPE(*CHAR) LEN(100) > DCL VAR(&CMD16) TYPE(*CHAR) LEN(100) > DCL VAR(&CMD17) TYPE(*CHAR) LEN(100) > DCL VAR(&CMD18) TYPE(*CHAR) LEN(100) > DCL VAR(&CMD19) TYPE(*CHAR) LEN(100) > DCL VAR(&CMD20) TYPE(*CHAR) LEN(100) > > /* HACER EL FTP */ > DLTF FILE(QTEMP/FTPOUT) > MONMSG MSGID(CPF0000) > CRTPF FILE(QTEMP/FTPOUT) RCDLEN(100) > MONMSG MSGID(CPF0000) > CLRPFM FILE(QTEMP/FTPOUT) > MONMSG MSGID(CPF0000) > DLTF FILE(QTEMP/FTP) > MONMSG MSGID(CPF0000) > CRTPF FILE(QTEMP/FTP) RCDLEN(100) > MONMSG MSGID(CPF0000) > CLRPFM FILE(QTEMP/FTP) > MONMSG MSGID(CPF0000) > OVRDBF FILE(FTP) TOFILE(QTEMP/FTP) SHARE(*YES) > CHGVAR VAR(&CMD01) VALUE('user password') > CHGVAR VAR(&CMD02) VALUE('LCD ' || &LIBORI) > CHGVAR VAR(&CMD03) VALUE('SENDEPSV') > CHGVAR VAR(&CMD04) VALUE('SENDEPRT') > CHGVAR VAR(&CMD05) VALUE('LCD ' || &LIBDES) > CHGVAR VAR(&CMD06) VALUE('PUT ' || &FILEORI || ' ' + > || &FILEDES) > CHGVAR VAR(&CMD07) VALUE('QUIT') > /* MONTARFTP REGISTRA EN QTEMP/INPUT LOS MANDATOS A UTILIZAR */ > CALL PGM(HMONTARFTP) PARM(&CMD01 &CMD02 &CMD03 + > &CMD04 &CMD05 &CMD06 &CMD07 &CMD08 &CMD09 + > &CMD10 &CMD11 &CMD12 &CMD13 &CMD14 &CMD15 + > &CMD16 &CMD17 &CMD18 &CMD19 &CMD20) > */ > OVRDBF FILE(INPUT) TOFILE(QTEMP/FTP) > OVRDBF FILE(OUTPUT) TOFILE(QTEMP/FTPOUT) > FTP RMTSYS('192.168.0.1') > OG FTP */ > RUNQRY QRYFILE((QTEMP/FTP)) OUTTYPE(*PRINTER) > RUNQRY QRYFILE((QTEMP/FTPOUT)) OUTTYPE(*PRINTER) > /**/ > ENDPGM > > > Fuente RPG (HMONTARFTP): > H DEBUG DECEDIT('0,') DATEDIT(*DMY-) datfmt(*DMY-) > F********************************************************************* > F* Montar archivo de instrucciones FTP. > F********************************************************************* > Fftp o f 100 disk > D x s 3 0 > * > D DS > D cmd 1 2000 inz > D DIM(20) > D cmd01 1 100 > D cmd02 101 200 > D cmd03 201 300 > D cmd04 301 400 > D cmd05 401 500 > D cmd06 501 600 > D cmd07 601 700 > D cmd08 701 800 > D cmd09 801 900 > D cmd10 901 1000 > D cmd11 1001 1100 > D cmd12 1101 1200 > D cmd13 1201 1300 > D cmd14 1301 1400 > D cmd15 1401 1500 > D cmd16 1501 1600 > D cmd17 1601 1700 > D cmd18 1701 1800 > D cmd19 1801 1900 > D cmd20 1901 2000 > * > C *entry plist > C parm c01 100 > C parm c02 100 > C parm c03 100 > C parm c04 100 > > C parm c05 100 > C parm c06 100 > C parm c07 100 > C parm c08 100 > C parm c09 100 > C parm c10 100 > C parm c11 100 > C parm c12 100 > C parm c13 100 > C parm c14 100 > C parm c15 100 > C parm c16 100 > C parm c17 100 > C parm c18 100 > C parm c19 100 > C parm c20 100 > * Montar serie > c eval cmd01=c01 > c eval cmd02=c02 > c eval cmd03=c03 > c eval cmd04=c04 > c eval cmd05=c05 > c eval cmd06=c06 > c eval cmd07=c07 > c eval cmd08=c08 > c eval cmd09=c09 > c eval cmd10=c10 > c eval cmd11=c11 > c eval cmd12=c12 > c eval cmd13=c13 > c eval cmd14=c14 > c eval cmd15=c15 > c eval cmd16=c16 > c eval cmd17=c17 > c eval cmd18=c18 > c eval cmd19=c19 > c eval cmd20=c20 > * Montar fichero de instrucciones > C for x=1 to 20 > C if cmd(x)<>*blanks > C except > C end > C endfor > * > C eval *inlr=*on > * > OFTP E > O cmd(x) 100 > > Saludos cordiales, > Carlos Bartolomé. > LIWE ESPAÑOLA, S.A. > > > > > El 23/09/2016 a las 11:30, Elvira Vázquez escribió: > > Javier > > > > Eso es lo que quiero hacer pero no se como > > > > De: forum.help400-boun...@listas.combios.es > [mailto:forum.help400-boun...@listas.combios.es] En nombre de Javier Mora > Enviado el: viernes, 23 de septiembre de 2016 11:27 > Para: 'forum.help400' > Asunto: RE: duda > > > > Yo utilizo unos mandatos “hechos en casa” como clientes FTP que dejan > rastro > en un log. En su día, busqué una fórmula para poder guardar la fecha y hora > de cada registro, pero no pudo ser. Lo solucioné grabando por programa en > el > archivo de salida del log un primer registro con la fecha y hora del inicio > de la sesión FTP. > > > > Saludos, > > > > Javier Mora > > > > De: forum.help400-boun...@listas.combios.es > [mailto:forum.help400-boun...@listas.combios.es] En nombre de Elvira > Vázquez > Enviado el: viernes, 23 de septiembre de 2016 9:23 > Para: 'forum.help400' > Asunto: duda > > > > Hola Foro > > > > Tengo un CL que deja en un FTP externo un fichero todos los día. > > Según mi LOG todo va bien pero alguna que otra vez después de varios días > nos dicen que no lo recibieron o lo recibieron dañado. > > Hay algun comando para poder comprobar que se ha recibido correctamente? > > Otra cosa: hay forma de incluir en el log la fecha y la hora. En este > momento lo se por los datos de modificación del fichero pero no los tengo > internamente > > > > Gracias como siempre a todos…. > > > > Elvira > > > > > > > > > > > Este mensaje puede contener información confidencial sujeta al secreto > profesional, cuya divulgación no está permitida por la ley y está dirigida > únicamente para el uso de la persona destinataria. Si usted no es la > persona > destinataria de este mensaje, por la presente se le comunica que no debe > usar, difundir, copiar de ninguna forma, ni emprender ninguna acción en > relación con ella. Si usted ha recibido este mensaje por error, le rogamos > que lo elimine, al igual que cualquier copia del mismo, y que proceda a la > eliminación de cualquier archivo adjunto al mismo, y nos notifique este > hecho de manera inmediata mediante correo electrónico remitido a nuestra > atención, o a través del teléfono (+34) 91 665 72 98. Asimismo, le > comunicamos que la distribución, copia o utilización de este mensaje, o de > cualquier documento adjunto al mismo, cualquiera que fuera su finalidad, > están prohibidas por la ley. > Le informamos, como destinatario de este mensaje, que el correo electrónico > y las comunicaciones por medio de Internet no permiten asegurar ni > garantizar la confidencialidad de los mensajes transmitidos, así como > tampoco su integridad o su correcta recepción, por lo que el emisor no > asume > responsabilidad alguna por tales circunstancias. Si no consintiese en la > utilización del correo electrónico o de las comunicaciones vía Internet, le > rogamos nos lo comunique y ponga en nuestro conocimiento de manera > inmediata. > This message may contain confidential and privileged information, protected > from disclosure by law, and is intended only for the use of the addressee > named above. If you are not the intended recipient of this message you are > hereby informed that you must not use, disseminate, copy it in any form or > take any action in reliance on it. If you have received this message in > error please delete it and any attachments or copies of it and notify the > sender by reply e-mail or by phone (+34) 91 665 72 98. In such case, you > are > hereby notified that any dissemination, distribution, copying or use of > this > message or any attachments, for any purpose, is strictly prohibited by law. > We hereby inform you, as addressee of this message, that e-mail and > Internet > do not guarantee the confidentiality, nor the completeness or proper > reception of the messages sent and, thus, the sender does not assume any > liability for those circumstances. Should you not agree to the use of > e-mail > or to communications via Internet, you are kindly requested to notify us > immediately. > > > > > P > > Antes de imprimir este e-mail piense bien si es necesario hacerlo: El > medioambiente es cosa de todos > > Before printing this e-mail think well if you must: The environment is > everyone's > > > > > > > > > > > ____________________________________________________ > Únete a Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd ) > Forum.Help400 © Publicaciones Help400, S.L. > > > > ------------ próxima parte ------------ > Se ha borrado un adjunto en formato HTML... > URL: < > http://listas.combios.es/cgi-bin/mailman/private/forum.help400/attachments/20160923/b3354451/attachment.htm > > > > ------------------------------ > > __________________________________________________ > Forum.HELP400 es un servicio m&amp;#225;s de ServerNEWS. > &amp;#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 > > Fin de Resumen de Forum.help400, Vol 119, Envío 30 > ************************************************** >
____________________________________________________ Únete a Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd ) Forum.Help400 © Publicaciones Help400, S.L.