Te envío ejemplo por si te sirve.
5722WDS V5R3M0 030905 LISTADO FUENTE SEU
23/02/10 12:39:08 CAMACHO PµG. 1
ARCHIVO FUENTE . . . . . TRAS/QRPGLESRC
MIEMBRO . . . . . . . . . FTP030R
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+...
7 ...+... 8 ...+... 9 ...+... 0
100 HDECEDIT(',') DATEDIT(*DMY)
27/02/01
200
**********************************************************************
27/07/07
300 ** Realizado por: Fco.Jose Medina Barajas para
EXCL.CAMACHO,S.L ** 27/07/07
400 ** Fecha. . . . : 27 de Julio de 2007
** 27/07/07
500 **
** 27/07/07
600 ** CREA SCRIPT PARA PROCESO DE FTP
** 30/11/07
700
**********************************************************************
27/07/07
800 FACPE11TA O A E DISK
30/07/07
900 * TEXTO INTRUCCIONES FTP
30/07/07
1000 DTXT S 100 DIM(20) PERRCD(1) CTDATA
30/07/07
1100 *
30/07/07
1200 * PARAMETROS DE PANTALLA CAMBIO DE PASWORD Y DIRECTORIO
28/09/02
1300 *
28/09/02
1400 C MOVEL *BLANKS FTPDATO
30/07/07
1500 * Usuario y Pasword
30/07/07
1600 C Eval FTPDATO = %trim(TXT(1))
30/07/07
1700 C WRITE PLANO1R
28/09/02
1800 * Directorio archivo
30/07/07
1900 C Eval FTPDATO = %trim(TXT(2))
30/07/07
2000 C WRITE PLANO1R
28/09/02
2100 * Tipo de datos
30/07/07
2200 C Eval FTPDATO = %trim(TXT(3))
30/07/07
2300 C WRITE PLANO1R
28/09/02
2400 * Nombre del archivo Recibido
30/07/07
2500 C Eval FTPDATO=%trim(TXT(4))
30/07/07
2600 C WRITE PLANO1R
30/07/07
2700 C Eval
FTPDATO=%trim(TXT(5))+%trim(FECHA)+
30/07/07
2800 C %trim(HORA)+'.txt'
30/07/07
2900 C WRITE PLANO1R
30/07/07
3000 * Cierre sesion FTP
30/07/07
3100 C Eval FTPDATO = %trim(TXT(6))
30/07/07
3200 C WRITE PLANO1R
28/09/02
3300 *
23/07/01
3400 * Finaliza el programa
30/07/07
3500 C EVAL *INLR = *ON
30/07/07
3600 *
30/07/07
3700
*---------------------------------------------------------------*
30/07/07
3800 * SUBRUTINA INICIAL
* 30/07/07
3900
*---------------------------------------------------------------*
30/07/07
4000 C *INZSR BEGSR
30/07/07
4100 *
30/07/07
4200 * Si el representante es el seleccionado por parms
30/07/07
4300 C *ENTRY PLIST
30/07/07
4400 C PARM FECHA 6
30/07/07
4500 C PARM HORA 4
30/07/07
4600 *
30/07/07
4700 C ENDSR
30/07/07
4800 ** TXT/Composicion Instruccion FTP
30/07/07
4900 Usuario pasword
30/07/07
5000 lcd tulib
30/07/07
5100 ascii
30/07/07
5200 put reco16f
30/11/07
5300 rename reco16f recog
30/11/07
5400 quit
30/07/07
* * * * F I N D E F U E N T E * * * *
_
Paco Medina
DEPT. INFORMÁTICA
Exclusivas Camacho, S. Ltd.
CIF B29145240
Av. J. Ortega y Gasset, 301 (Pol. San Luis)
Málaga, España
Tel. +34 952 322 900
Fax +34 952 314 900
www.e-camacho.com
[email protected]
Antes de imprimir piensa si es necesario, piensa en el MEDIO AMBIENTE
Este mensaje se dirige exclusivamente a su destinatario y puede contener
información privilegiada o confidencial. Si no es vd. el destinatario
indicado, queda notificado de que la utilización, divulgación y/o copia sin
autorización está prohibida en virtud de la legislación vigente. Si ha
recibido este mensaje por error, le rogamos que nos lo comunique
inmediatamente por esta misma vía y proceda a su destrucción. Gracias.
Before printing thinks if necessary, think of ENVIRONMENT
This message is intended exclusively for its addressee and may contain
information that is CONFIDENTIAL and protected by professional privilege. If
you are not the intended recipient you are hereby notified that any
dissemination, copy or disclosure of this communication is strictly
prohibited by law. If this message has been received in error, please
immediately notify us via e-mail and delete it. Thank you.
_____
De: [email protected]
[mailto:[email protected]] En nombre de Javier Mora
Enviado el: martes, 23 de febrero de 2010 12:38
Para: forum.help400
Asunto: RE: Ejecutar mandatos FTP
Yo utilizo un mandato hecho a medida (te lo puedo enviar a tu dirección
privada). También hay otras utilidades publicadas en Internet que podrían
servirte:
EZFTP en
<http://www.pentontech.com/IBMContent/Documents/article/53354_127_EzFTP.zip>
http://www.pentontech.com/IBMContent/Documents/article/53354_127_EzFTP.zip
EZFTPSAVF en
http://www.pentontech.com/IBMContent/Documents/article/53397_132_EzFtpSavf.z
ip
EZFTPSTMF en
http://www.pentontech.com/IBMContent/Documents/article/51963_51_EZFTPSTMF.zi
p
Scott Klement tiene un programa de servicio para programar este tipo de
conexiones desde ILE RPG, busca en http://www.scottklement.com/ftpapi/
Bob Cozzi publicó en su día FTPSNDFILE, busca los fuentes en
http://www.rpgiv.com/. Necesitarás registrarte, pero es un mero trámite.
Espero haberte servido de ayuda.
Javier
_____
De: [email protected]
[mailto:[email protected]] En nombre de Emma Bedoya
Enviado el: martes, 23 de febrero de 2010 11:05
Para: Foro AS/400
Asunto: Ejecutar mandatos FTP
Hola a todos.
Para enviar un archivo por FTP a un servidor he creado un miembro con los
mandatos a ejecutar algo como esto:
USUARIO CONTRASEÑA
ASCII
PUT BIBLITECA/ARCHIVO RUTA_SERVIDOR/FICHERO
QUIT
El tema es que el nombre del fichero es variable ¿Alguien me puede decir
cómo podría pasar ese nombre como un parámetro?
Gracias de antemano.
Emma Bedoya
____________________________________________________
© 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
