Gracias por todAS LAS ID
De: [email protected] [mailto:[email protected]] En nombre de Carlos Bartolomé Enviado el: viernes, 23 de septiembre de 2016 12:19 Para: [email protected] 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: [email protected] [mailto:[email protected]] 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: [email protected] [mailto:[email protected]] 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.
____________________________________________________ Únete a Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd ) Forum.Help400 © Publicaciones Help400, S.L.
