Te envio un ejemplo:
LIBPGM/PROGRAMA
0001.00 PGM
0002.00
0005.00 DCL VAR(&FIL) TYPE(*CHAR) LEN(10) VALUE('QTXTSRC')
0006.00 DCL VAR(&LIBH) TYPE(*CHAR) LEN(10) VALUE('LOGS')
0007.00 DCL VAR(&INP) TYPE(*CHAR) LEN(10) VALUE('ENVIOFTP')
0008.00
0024.00 OVRDBF FILE(INPUT) TOFILE(FTPLIB/QTXTSRC) MBR(&INP)
0025.00 OVRDBF FILE(OUTPUT) TOFILE(&LIBH/LOGS) MBR(BORRADO)
0026.00
0027.00 FTP RMTSYS('AAA.BBB.CCC.DDD')
0029.00
0030.00 DLTOVR FILE(*ALL)
0031.00
0032.00 ENDPGM
FTPLIB/QTXTSRC MBR(ENVIOFTP)
0001.00 USUARIO PASSWORD
0005.00 ** PUT QTEMP/&FICH &FICH.TMP
0006.00 QUIT
-----Mensaje original-----
De: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] En nombre de
[EMAIL PROTECTED]
Enviado el: martes, 02 de marzo de 2004 16:49
Para: [EMAIL PROTECTED]
Asunto: FTP
Hola !!!
Necesitaria saber si alguien a probado de enviar via FTP de un AS a otro
un objeto.
Lo que quiero es hacer un CL donde invoque el comando ftp y necesitaria
colocarle usuario y contrase�a, pero no se como se hace solo se que el
parametro es
FTP RMTSYS('numero IP del otro AS')
pero donde le coloco el usuario y la contrase�a?.
Espero que me entiendan, porque me falta aprender mucha terminologia del
AS
Desde ya muchas gracias.
Pablo G.
--------
E-mail y acceso a Internet UltraVeloz totalmente GRATIS en Buenos Aires,
Rosario, Cordoba, Mendoza, La Plata y Pilar
http://www.Argentina.com
Nro. de acceso 5078-5000 Usuario: Argentina Password: Argentina
_____________________________________________________
Forum.HELP400 es un servicio m�s de NEWS/400.
� Publicaciones Help400, S.L. - Todos los derechos reservados
http://www.help400.es
_____________________________________________________
Para darte de baja, env�a el mensaje resultante de pulsar
mailto:[EMAIL PROTECTED]
_____________________________________________________
Forum.HELP400 es un servicio m�s de NEWS/400.
� Publicaciones Help400, S.L. - Todos los derechos reservados
http://www.help400.es
_____________________________________________________
Para darte de baja, env�a el mensaje resultante de pulsar
mailto:[EMAIL PROTECTED]
