RE: FTP

Thu, 21 Mar 2002 02:19:51 -0800

Yo tento un proceso para enviar a Batch procesos FTP, te env�o el CL por si te puede servir.
 
    Saludos.
 
-----Mensaje original-----
De: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]]En nombre de Juan E. Garc�a
Enviado el: jueves 21 de marzo de 2002 10:52
Para: [EMAIL PROTECTED]
Asunto: FTP

 
Buenas,
 
               Quiero enviar un archivo desde el AS400 por FTP para ello desde una CL tengo que ejecutar los comandos USER PUT etc.
pero no s� que mandato tengo que utilizar. Me parece haber leido que se crea un fichero de mandatos FTP que luego se ejecuta desde la CL. �Es algo as�?
 
                �Alguien me puede echar un cable?
 
Slds
 
J. Enrique Garc�a
Dpto. An�lisis y Programaci�n
Mar�tima Valenciana, S.A. - Grupo Dragados
 
             PGM
/*-------------------------------------------------------------------*/
/*  *LDA                                                             */
/*  799 - 813   &RMT  - Direcci�n TCP-IP del servidor destino        */
/*-------------------------------------------------------------------*/
/*  &CNT = Contador                                                  */
/*  &FILF = Miembro de *Libl/qtxtsrc donde deben grabarse las        */
/*          instrucciones Ftp                                        */
/*  &FILT = Miembro de *Libl/qtxtsrc donde se graban las incidencias */
/*          del Ftp                                                  */
/*-------------------------------------------------------------------*/
             DCL        VAR(&RMT)  TYPE(*CHAR) LEN(15)
             DCL        VAR(&CNT)  TYPE(*DEC)  LEN(5 0) VALUE(0)
             DCL        VAR(&FILF) TYPE(*CHAR) LEN(10) +
                          VALUE('FTPXXXXXF')
             DCL        VAR(&FILT) TYPE(*CHAR) LEN(10) +
                          VALUE('FTPXXXXXT')
/*-------------------------------------------------------------------*/
             CHGVAR     VAR(&RMT) VALUE(%SST(*LDA 799 15))
/*-------------------------------------------------------------------*/
/* Creaci�n de los members en QTXTLESRC                              */
 UPCNTF:     CHGVAR     VAR(&CNT) VALUE(&CNT + 1)
             CHGVAR     VAR(%SST(&FILF 4 5)) VALUE(&CNT)
             ADDPFM     FILE(*LIBL/QTXTLESRC) MBR(&FILF)
             MONMSG     MSGID(CPF7306) EXEC(GOTO UPCNTF)

             CHGVAR     VAR(%SST(&FILT 4 5)) VALUE(&CNT)
             ADDPFM     FILE(*LIBL/QTXTLESRC) MBR(&FILT)
/*-------------------------------------------------------------------*/
/* Grabaci�n en el mbr &FILF de las sentencias FTP.                  */
             OVRDBF     FILE(FFTP) TOFILE(*LIBL/QTXTLESRC) MBR(&FILF)
             CALL       xxxxxx
             DLTOVR     FFTP
/*-------------------------------------------------------------------*/
/* Ejecuci�n del FTP.                                                */
             OVRDBF     FILE(INPUT) TOFILE(*LIBL/QTXTLESRC) +
                          MBR(&FILF)
             OVRDBF     FILE(OUTPUT) TOFILE(*LIBL/QTXTLESRC) +
                          MBR(&FILT)
             STRTCPFTP  RMTSYS(*INTNETADR) INTNETADR(&RMT)
             DLTOVR     FILE(INPUT)
             DLTOVR     FILE(OUTPUT)
             RMVM       FILE(*LIBL/QTXTLESRC) MBR(&FILF)
             RMVM       FILE(*LIBL/QTXTLESRC) MBR(&FILT)
             ENDPGM


Responder a