Ejemplo de cómo lo hago por si os sirve de ayuda:
ARCHIVO FUENTE . . . . . TuLib/QCLLESRC
MIEMBRO . . . . . . . . . FTP010C
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+...
7 ...+... 8 ...+... 9 ...+... 0
100 PGM
31/07/07
200 /* DEFINICION DE VARIABLES
*/ 31/07/07
500 DCL VAR(&WPUSR) TYPE(*CHAR) LEN(10)
31/07/07
700 DCL VAR(&NRR) TYPE(*DEC ) LEN(10 0)
31/07/07
800 /* RECUPERAMOS FECHA Y HORA ACTUAL
*/ 31/07/07
900 DCL VAR(&TIME) TYPE(*CHAR) LEN(16)
31/07/07
1000 DCL VAR(&FECHA) TYPE(*CHAR) LEN(6)
31/07/07
1100 DCL VAR(&HORA) TYPE(*CHAR) LEN(4)
31/07/07
1200 DCL VAR(&ERR) TYPE(*CHAR) LEN(4)
VALUE(X'00000000') 31/07/07
1300 CALL PGM(QWCCVTDT) PARM('*CURRENT' XX '*YMD' +
31/07/07
1400 &TIME &ERR)
31/07/07
1500 CHGVAR VAR(&FECHA) VALUE(%SST(&TIME 2 6))
31/07/07
1600 CHGVAR VAR(&HORA) VALUE(%SST(&TIME 8 4))
31/07/07
4000 /* Proceso Envio Archivo Redur por FTP
*/ 31/07/07
4100 CALL PGM(FTP010R) PARM(&FECHA &HORA)
31/07/07
4200 /* Lee el Miembro ACEP11TA
*/ 31/07/07
4300 OVRDBF FILE(INPUT) TOFILE(ACPE11TA)
31/07/07
4600 /* Anota en el miembro FTPLOG los mensajes del sistema
*/ 31/07/07
4700 OVRDBF FILE(OUTPUT) TOFILE(TuLibl/FTPLOGF)
02/01/08
4800 /* Iniciamos el FTP
*/ 31/07/07
5000 FTP RMTSYS('XXX.XXX.X.X')
28/12/07
5200 DLTOVR FILE(INPUT OUTPUT)
31/07/07
5300 /* Envia mensaje al usuario una vez finalizado el proceso
*/ 31/07/07
5400 SNDMSG MSG('Proceso finalizado') TOUSR(&WPUSR) +
31/07/07
5500 MSGTYPE(*INFO)
31/07/07
5600 ENDDO
31/07/07
5700 RCLRSC
31/07/07
5800 ENDPGM
31/07/07
ARCHIVO FUENTE . . . . . TuLib/QRPGLESRC
MIEMBRO . . . . . . . . . FTP010R
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+...
7 ...+... 8 ...+... 9 ...+... 0
100 HDECEDIT(',') DATEDIT(*DMY)
27/02/01
200
**********************************************************************
27/07/07
600 ** CREA SCRIPT PARA PROCESO DE FTP
** 27/07/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 UserFtp PasswordFtp
30/07/07
5000 lcd Tulib
30/07/07
5100 ascii
30/07/07
5200 put TuArchivo
30/07/07
5300 rename TuArchivo TuArchivoPC
23/01/08
5400 quit
30/07/07
Definicion archivo envio:
SEU==>
ACPE11TA
FMT PF
.....A..........T.Nombre++++RLon++TPdB......Funciones++++++++++++++++++
*************** Principio de datos
************************************
0001.00 A R PLANO1R
0002.00 *
0003.00 A FTPDATO 100A COLHDG('Datos
Generales')
0004.00 *
0005.00 *
Saludos,
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.
-----Mensaje original-----
De: [email protected]
[mailto:[email protected]] En nombre de Elvira Vázquez
Enviado el: lunes, 12 de julio de 2010 17:02
Para: 'forum.help400'
Asunto: RE: Fichero delimitado traspaso FTP
Aprovecho para preguntar:
Hasta ahora la transferencia desde el iseries al Pc la hago utilizando el
clien acces pero las ordenes las da el pc
Como puedo hacer para que la rutina de envío sea desde el AS400????
Elvira
-----Mensaje original-----
De: [email protected]
[mailto:[email protected]] En nombre de Peñaherrera,
Mauro
Enviado el: lunes, 12 de julio de 2010 15:48
Para: forum.help400
Asunto: RE: Fichero delimitado traspaso FTP
Usar el IFS y realizar el FTP desde el IFS, asi lo realizo yo.
-----Mensaje original-----
De: [email protected]
[mailto:[email protected]] En nombre de
[email protected]
Enviado el: lunes, 12 de julio de 2010 3:37
Para: [email protected]
Asunto: Fichero delimitado traspaso FTP
Buenos dias necesito exportar un fichero del iseries y dejarlo en una
carpeta via FTP, el fichero que debo exportar es un fichero de texto de
ancho fijo, el nombre del fichero es variable, ahora todo esto lo hago
por medio de un porgrama CL que realiza una transferencia al pc mediante
el client access y luego con un fichero bat lo subo al carpeta FTP me
gustaria si es posible realizar este proceso directamente desde el iseries
sin realizar la transferencia al pc ,¿Alguna sugerencia?
____________________________________________________
Únete a Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd )
Forum.Help400 © Publicaciones Help400, S.L.
En Diners Club tu puedes:
REDUCIR: Tus emisiones de CO2 yendo al trabajo en BICI, en transporte
colectivo o caminando.
RECICLAR: Pilas, celulares y sus accesorios, Plásticos y Papel, tráelos a
Diners y deposítalos en nuestras ánforas.
REUTILIZAR: El papel imprimiendo en ambos lados.
Nota de descargo: La información contenida en este e-mail y sus anexos es
confidencial y sólo puede ser utilizada por el destinatario del mismo. Esta
información no debe ser distribuida, ni copiada total o parcialmente por
ningún medio sin la autorización de DINERS/INTERDIN. Además,
DINERS/INTERDIN no asume responsabilidad sobre información, opiniones o
criterios contenidos en este e-mail.
Disclaimer: The information contained in this e-mail and its attached files
are confidential and intended only for the use of the person to which it is
addressed. This information can not be totally or partially distributed nor
copied by any media without the authorization from DINERS/INTERDIN. In
addition, DINERS/INTERDIN does not assume responsibility about this
information, opinions or criteria contented in this e-mail.
____________________________________________________
Ú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.
____________________________________________________
Únete a Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd )
Forum.Help400 © Publicaciones Help400, S.L.
