Buenos días, yo preparo una sentencia SQL ejecutada en CL intermedio que
cambia el nombre del miembro de envío.
Recupero primero el nombre del miembro que quiero enviar y modifico el fichero
de INPUT con esta sentencia SQL.
Una vez cambiado el fichero de INPUT, ya lo puedo ejecutar el FTP.
EXEC: /*PARTE EXEC */
CHGVAR VAR(&VAR1) VALUE('update libreria/objeto +
set initftp =')
CHGVAR VAR(&VAR2) VALUE('put')
CHGVAR VAR(&VAR3) VALUE('libreria/')
CHGVAR VAR(&VAR4) VALUE(&FICHERO)
CHGVAR VAR(&VAR5) VALUE(&DOCNAM)
CHGVAR VAR(&VAR6) VALUE('where initftp like')
CHGVAR VAR(&VAR7) VALUE('%put%')
CHGVAR VAR(&SENTENCIA) VALUE(&VAR1 *BCAT '''' *CAT +
&VAR2 *BCAT &VAR3 *CAT &VAR4 *BCAT &VAR5 +
*CAT '''' *BCAT &VAR6 *BCAT '''' *CAT +
&VAR7 *CAT '''')
/* EJECUTO LA SENTENCIA PARA CAMBIAR EL NOMBRE DEL FICHERO Y PODER +
HACER EL FTP */
EXECSQL STMT(&SENTENCIA)
Saludos
De: [email protected]
[mailto:[email protected]] En nombre de Paco Medina
Enviado el: miércoles, 14 de septiembre de 2016 9:40
Para: 'forum.help400' <[email protected]>
Asunto: RE: CAMBIAR CONTENIDO DE
si el DESTINO lo generas mediante programa o cl , lo puedes modificar no???
mediante parámetros un vez recuperado el nuevo numero no???
saludos
De:
[email protected]<mailto:[email protected]>
[mailto:[email protected]] En nombre de INFORMATICA
Enviado el: miércoles, 14 de septiembre de 2016 9:30
Para: forum.help400
Asunto: Re: CAMBIAR CONTENIDO DE
Paco, perdona pero no te entiendo.
Como puedo cambiar la QUINTA LINEA? a traves de lo que comentas de la DTAARA,
teniendo en cuenta que el miembro tiene 6 lineas.
*************** Principio de datos ************************************
USUARIO CONTRASEÑA
namefmt 1
bin
cd /SUDIRECTORIO
PUT /CARPETA/FICHERO.xls FIC9999999.xls
QUIT
****************** Fin de datos***************************************
----- Original Message -----
From: Paco Medina<mailto:[email protected]>
To: 'forum.help400'<mailto:[email protected]>
Sent: Wednesday, September 14, 2016 7:43 AM
Subject: RE: CAMBIAR CONTENIDO DE
y si lo haces con área de datos???
algo asi:
RTVDTAARA DTAARA(CAMACHO (700 8)) RTNVAR(&ORD)
CHGVAR VAR(&NUM) VALUE(&ORD)
CHGVAR VAR(&NUM) VALUE(&NUM + 1)
CHGVAR VAR(&ORD) VALUE(&NUM)
CHGDTAARA DTAARA(CAMACHO (700 8)) VALUE(&ORD)
-----Mensaje original-----
De:
[email protected]<mailto:[email protected]>
[mailto:[email protected]] En nombre de Jesus Manuel
Sanchez Montaña
Enviado el: martes, 13 de septiembre de 2016 19:25
Para: forum.help400
Asunto: Re: CAMBIAR CONTENIDO DE
Buenas tardes
Me imagino que Origen es un pfsrc, el cual podrás procesar antes con un
programa al efecto para poder cambiar el nombre del fichero xls, antes de
llamar al CL.
Saludo2.
________________________________________
De: [email protected]<mailto:[email protected]>
<[email protected]<mailto:[email protected]>>
Enviado: martes, 13 de septiembre de 2016 19:07
Para: forum.help400
Asunto: CAMBIAR CONTENIDO DE
Buenas tardes
Estoy enviando por FTP un fichero. Esto en principio funciona.
Ahora se me complica el tema porque el fichero a enviar va cambiando de
nombre.
para enviar ejecuto la siguiente CLP
CLRPFM FILE(BIBLIOTECA/FONTETE) MBR(DESTINO)
OVRDBF FILE(INPUT) TOFILE(BIBLIOTECA/FUENTE) MBR(ORIGEN)
OVRDBF FILE(OUTPUT) TOFILE(BIBLIOTECA/FUENTE) MBR(DESTINO)
STRTCPFTP RMTSYS('XXX.XXX.XXX.XXX')
DLTOVR FILE(INPUT)
DLTOVR FILE(OUTPUT)
EL MIEMBRO ORIGEN ES EL DEBE ENVIAR EL NOMBRE DEL FICHERO QUE VA CAMBIANDO
CONTENIDO DE "ORIGEN"
*************** Principio de datos ************************************
USUARIO CONTRASEÑA
namefmt 1
bin
cd /SUDIRECTORIO
PUT /CARPETA/FICHERO.xls FIC9999999.xls
QUIT
****************** Fin de datos***************************************
eL NOMBRE FIC9999999.xls es el que debe ir cambiando.
"ORIGEN" no es PF.
Alguien ha hecho algo parecido?
Gracias anticipadas
____________________________________________________
Únete a Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd )
Forum.Help400 © Publicaciones Help400, S.L.
________________________
This email was scanned by Bitdefender
____________________________________________________
Únete a Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd )
Forum.Help400 © Publicaciones Help400, S.L.
____________________________________________________
Únete a Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd )
Forum.Help400 © Publicaciones Help400, S.L.
____________________________________________________
Únete a Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd )
Forum.Help400 © Publicaciones Help400, S.L.
