Hola Rafael:
Te adjunto una utilidad que yo utilizo. Espero te sirva.
Saludo2.
-----Mensaje original-----
De: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] En nombre de Rafael Silva
Enviado el: jueves, 24 de enero de 2008 19:22
Para: [email protected]
Asunto: Ayuda con FTP
Hola a todos....
Necesito transferir por FTP en forma Batch desde un AS/400 a otro,
alquien tiene un programita por ahí que me lo facilite?... necesito
transferir como 300 archivos y dejarlo ejecutando de noche... Please!...
Help ........
Saludos,
Rafael Silva
__________________________________________________
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 visita la siguente URL:
http://listas.combios.es/mailman/listinfo/forum.help400
A) Pasos previos:
1º Crear bibliotecas en i5 y AS400-150 que van a contener los ficheros
savf; ejemplo:
i5-> CRTLIB LIB(ENVIAR)... (Biblioteca de envío datos a AS400-150)
150-> CRTLIB LIB(RECIBIR)... (Biblioteca de recepción datos de i5)
2º Crear fichero savf en biblioteca 'ENVIAR' creada en i5; ejemplo:
CRTSAVF FILE(ENVIAR/ENVIO)....(Fichero de envío de bibliotecas a
AS400-150)
B) CLP,s:
1º CBACKUPCL (Envía bibliotecas de i5 a AS400-150
*************** Principio de datos
************************************
0001.00 /***************** ENVÍA BIBLIOTECAS DESDE I5 A AS400-150 *******/
0002.00 INI: PGM
0003.00 /* */
0004.00 CLRSAVF FILE(ENVIAR/ENVIO)
0005.00 SAVLIB LIB(GESCOMF) DEV(*SAVF) SAVF(ENVIAR/ENVIO) +
0006.00 CLEAR(*ALL) SAVACT(*SYSDFN) DTACPR(*MEDIUM)
0007.00 /* MONMSG MSGID(CPF0000) EXEC(GOTO CMDLBL(E1)) */
0008.00 CALL PGM(XALCO/CFTPCL) PARM('CFTPTXT001')
0009.00 SAVLIB LIB(GESCOMFA) DEV(*SAVF) SAVF(ENVIAR/ENVIO) +
0010.00 CLEAR(*ALL) SAVACT(*SYSDFN) DTACPR(*MEDIUM)
0011.00 /* MONMSG MSGID(CPF0000) EXEC(GOTO CMDLBL(E2)) */
0012.00 CALL PGM(XALCO/CFTPCL) PARM('CFTPTXT002')
0013.00 /* MONMSG MSGID(CPF0000) EXEC(GOTO CMDLBL(E3)) */
0014.00 SAVLIB LIB(GESCOMFB) DEV(*SAVF) SAVF(ENVIAR/ENVIO) +
0015.00 CLEAR(*ALL) SAVACT(*SYSDFN) DTACPR(*MEDIUM)
0016.00 /* MONMSG MSGID(CPF0000) EXEC(GOTO CMDLBL(E2)) */
0017.00 CALL PGM(XALCO/CFTPCL) PARM('CFTPTXT003')
0018.00 /* MONMSG MSGID(CPF0000) EXEC(GOTO CMDLBL(E2)) */
0019.00 SAVLIB LIB(GESCOMFC) DEV(*SAVF) SAVF(ENVIAR/ENVIO) +
0020.00 CLEAR(*ALL) SAVACT(*SYSDFN) DTACPR(*MEDIUM)
0021.00 /* MONMSG MSGID(CPF0000) EXEC(GOTO CMDLBL(E2)) */
0022.00 CALL PGM(XALCO/CFTPCL) PARM('CFTPTXT004')
0023.00 /* MONMSG MSGID(CPF0000) EXEC(GOTO CMDLBL(E2)) */
0024.00 SAVLIB LIB(CONTABF) DEV(*SAVF) SAVF(ENVIAR/ENVIO) +
0025.00 CLEAR(*ALL) SAVACT(*SYSDFN) DTACPR(*MEDIUM)
0026.00 /* MONMSG MSGID(CPF0000) EXEC(GOTO CMDLBL(E2)) */
0027.00 CALL PGM(XALCO/CFTPCL) PARM('CFTPTXT005')
0028.00 /* MONMSG MSGID(CPF0000) EXEC(GOTO CMDLBL(E2)) */
0029.00 SAVLIB LIB(CONTABFA) DEV(*SAVF) SAVF(ENVIAR/ENVIO) +
0030.00 CLEAR(*ALL) SAVACT(*SYSDFN) DTACPR(*MEDIUM)
0031.00 /* MONMSG MSGID(CPF0000) EXEC(GOTO CMDLBL(E2)) */
0032.00 CALL PGM(XALCO/CFTPCL) PARM('CFTPTXT006')
0033.00 /* MONMSG MSGID(CPF0000) EXEC(GOTO CMDLBL(E2)) */
0034.00 SAVLIB LIB(CONTABFB) DEV(*SAVF) SAVF(ENVIAR/ENVIO) +
0035.00 CLEAR(*ALL) SAVACT(*SYSDFN) DTACPR(*MEDIUM)
0036.00 /* MONMSG MSGID(CPF0000) EXEC(GOTO CMDLBL(E2)) */
0037.00 CALL PGM(XALCO/CFTPCL) PARM('CFTPTXT007')
0038.00 /* MONMSG MSGID(CPF0000) EXEC(GOTO CMDLBL(E2)) */
0039.00 SAVLIB LIB(CONTABFC) DEV(*SAVF) SAVF(ENVIAR/ENVIO) +
0040.00 CLEAR(*ALL) SAVACT(*SYSDFN) DTACPR(*MEDIUM)
0041.00 /* MONMSG MSGID(CPF0000) EXEC(GOTO CMDLBL(E2)) */
0042.00 CALL PGM(XALCO/CFTPCL) PARM('CFTPTXT008')
0043.00 /* MONMSG MSGID(CPF0000) EXEC(GOTO CMDLBL(E2)) */
0044.00 SAVLIB LIB(QS36F) DEV(*SAVF) SAVF(ENVIAR/ENVIO) +
0045.00 CLEAR(*ALL) SAVACT(*SYSDFN) DTACPR(*MEDIUM)
0046.00 /* MONMSG MSGID(CPF0000) EXEC(GOTO CMDLBL(E2)) */
0047.00 CALL PGM(XALCO/CFTPCL) PARM('CFTPTXT009')
0048.00 /* MONMSG MSGID(CPF0000) EXEC(GOTO CMDLBL(E2)) */
0049.00 CLRSAVF FILE(ENVIAR/ENVIO)
0050.00 /* */
0051.00 FIN: ENDPGM
****************** Fin de datos ***************************************
2º CFTPCL (Automatización de FTP para envío)
FMT ** ...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7
*************** Principio de datos ************************************
0001.00 /***************** ENVÍA BIBLIOTECAS DESDE I5 A AS400-150 *******/
0002.00 INI: PGM PARM(&FFTP)
0003.00 DCL VAR(&FFTP) TYPE(*CHAR) LEN(10)
0004.00 /* */
0005.00 OVRDBF FILE(INPUT) TOFILE(XALCO/QCLSRC) +
0006.00 MBR(&FFTP)
0007.00 /* MONMSG MSGID(CPF0000) EXEC(GOTO CMDLBL(E1)) */
0008.00 E1:
0009.00 STRTCPFTP RMTSYS('192.168.1.150')
0010.00 /* MONMSG MSGID(CPF0000) EXEC(GOTO CMDLBL(E2)) */
0011.00 E2:
0012.00 DLTOVR FILE(*ALL)
0013.00 /* MONMSG MSGID(CPF0000) EXEC(GOTO CMDLBL(E3)) */
0014.00 /* */
0015.00 FIN: ENDPGM
****************** Fin de datos ***************************************
C) Crear los ficheros planos que contienen las instrucciones FTP. El número
dependerá
del número de bibliotecas que envíes, en mi caso nueve. Yo los tengo en la
QCLSRC,
sin tipo; ejemplo:
1º CFTPTXT001 (Fichero texto con instrucciones FTP para 'GESCOMF'
FMT ** ...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7
*************** Principio de datos ************************************
0001.00 usuario contraseña
0002.00 cd RECIBIR
0003.00 binary
0004.00 put ENVIAR/ENVIO RECIBIR/GESCOMF
0005.00 quit
****************** Fin de datos ***************************************
.... hasta CFTPTXT009.
D) ADDJOBSCDE, en su caso, llamando a CBACKUPCL, a la hora deseada.
Decir que este conjunto de bibliotecas de datos que yo envío deben ocupar
sobre unos
8Gb y lleva hacer el proceso unos 30 m.; pero claro esto ya dependerá de las
características
de la electrónica de red que cada uno tenga en su caso implementada.
__________________________________________________
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 visita la siguente URL:
http://listas.combios.es/mailman/listinfo/forum.help400
