Hola:
Necesitas un CL y un miembro fuente con las instrucciones.
El CL podr�a ser algo as�:
----------------------------------------------------------------------------
------------------------------------------
0001.00              PGM
0002.00              DCL        VAR(&FTPCMD) TYPE(*CHAR) LEN(9)
0003.00              DCL        VAR(&IP) TYPE(*CHAR) LEN(20)
0004.00
0005.00 /* Informa variables IP del servidor FTP y l�neas de comandos
*/
0006.00              CHGVAR     VAR(&IP) VALUE('direccion_ip')
0007.00              CHGVAR     VAR(&FTPCMD) VALUE('FTPCMD')
0008.00
0009.00 /* Lee el miembro FTPCMD
*/
0010.00              OVRDBF     FILE(INPUT) TOFILE(*LIBL/QCLSRC)
MBR(&FTPCMD)                                    040211
0012.00 /* Anota en el miembro LOGFTP los mensajes del sistema
*/
0013.00              OVRDBF     FILE(OUTPUT) TOFILE(*LIBL/QLOGFTP)
MBR(FTPLOG)
0014.00              CLRPFM     FILE(*LIBL/QLOGFTP) MBR(FTPLOG)
0015.00
0016.00 /* Inicia FTP
*/
0017.00              STRTCPFTP  RMTSYS(&IP)
0018.00              DLTOVR     FILE(INPUT OUTPUT)
0019.00              ENDPGM
----------------------------------------------------------------------------
-----------------------------------------------
Y el miembro fuente (llamado FTPCMD en la variable &FTPCMD) algo as�:

0001.00 usuario contrase�a
0002.00 bin
0003.00 PUT BibliotecaOrigen/Objeto BibliotecaDestino/Objeto
0006.00 QUIT

Si env�as varios objetos te recomiendo meterlos todos en una biblioteca y
salvarla en forma de SAVF.
Saludos cordiales,
Xavier Estrems

----- Original Message ----- 
From: <[EMAIL PROTECTED]>
To: <[EMAIL PROTECTED]>
Sent: Tuesday, March 02, 2004 4:48 PM
Subject: 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]

Responder a