Ejemplo mas o menos:
CLP:
2900
31/07/07
3000 /* COMPRUEBA SI HAY O NO REGISTROS EN ARCHIVO ANTES DE ENVIO
*/ 31/07/07
3100 RTVMBRD FILE(TRBD/NOMBRE0F) NBRCURRCD(&NRR)
31/07/07
3200 IF COND(&NRR > 0) THEN(DO)
31/07/07
3300 DLTDLO DLO(NOMBRE.TXT) FLR(XXX) /* Borramos +
31/07/07
3400 Documento de la carpeta para la +
31/07/07
3500 siguiente instruccion */
31/07/07
3600 MONMSG MSGID(CPF0000)
31/07/07
3700 CPYTOPCD FROMFILE(NOMBRE0F) TOFLR(XXX) +
31/07/07
3800 TODOC(NOMBRE.TXT) REPLACE(*YES)
31/07/07
3900 DSPPFM FILE(NOMBRE0F)
31/07/07
4000 /* Proceso Envio Archivo 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
4400 /* La linea siguiente es opcional, aunque recomendable, ya que nos
*/ 31/07/07
4500 /* permite comprobar la correcta ejecucion del proceso
*/ 31/07/07
4600 /* Anota en el miembro FTPLOG los mensajes del sistema
*/ 31/07/07
4700 OVRDBF FILE(OUTPUT) TOFILE(TRAS/QFMTSRC)
MBR(FTPLOG) 31/07/07
4800 /* Iniciamos el FTP
*/ 31/07/07
4900 FTP RMTSYS('xxx.xxx.xxx.xxx')
31/07/07
5100 DLTOVR FILE(INPUT OUTPUT)
31/07/07
5200 /* Envia mensaje al usuario una vez finalizado el proceso
*/ 31/07/07
5300 SNDMSG MSG('Proceso finalizado') TOUSR(&WPUSR) +
31/07/07
5400 MSGTYPE(*INFO)
31/07/07
5500 ENDDO
31/07/07
5600 RCLRSC
31/07/07
5700 ENDPGM
31/07/07
RPG:
MIEMBRO . . . . . . . . . FTP010R
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
** 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 USUARIO CONTRASEÑA
30/07/07
5000 lcd TULYB
30/07/07
5100 ascii
30/07/07
5200 put NOMBRE
30/07/07
5300 rename NOMBRE0f NOMBRE
30/07/07
5400 quit
30/07/07
* * * * F I N D E F U E N T E * * * *
Saludos
Paco Medina
Dtor.Informatica
Exclusivas Camacho, S. L.
Av. J. Ortega y Gasset, 301 (Pol. San Luis)
29006 Málaga, España
Tel. +34 952 322 900
Fax +34 952 314 900
www.e-camacho.com
[EMAIL PROTECTED]
Este e-mail es confidencial. Si usted no es el receptor apropiado, rogamos
no use la información contenida en el mismo por ser personal e
intransferible.
Si usted lo ha recibido por equivocación o descuido, por favor, reenvíe el
e-mail inmediatamente al remitente y destruya el documento.
EXCLUSIVAS CAMACHO S.L. no se hará responsable del mal uso de la
información recibida en estas condiciones, tomando las pertinentes acciones
legales contra la persona o entidad que incumpla el siguiente clausulado.
-----Mensaje original-----
De: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] En nombre de
[EMAIL PROTECTED]
Enviado el: martes, 06 de noviembre de 2007 18:14
Para: [email protected]
Asunto: mandar fichero del as400 a una carpeta .
Buenas tardes , necesito mandar un fichero del as400 y dejarlo en una
carpeta del cliente ftp://xxxxx:[EMAIL PROTECTED]/, hasta ahora mando
el fichero a un pc, y luego trabajo a nivel de pc, me gustaria mandarlo
directamente para automatizar el trabajo si es posible.
Muchas gracias
__________________________________________________
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
__________________________________________________
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
