adjunto ejemplo en rpg por si te sirve de ayuda, le puedes incluir el
parámetro
para renombrar archivo
5761WDS V7R1M0 100416 LISTADO FUENTE SEU
14/09/16 13:14:33 CAMACHO PµG. 1
ARCHIVO FUENTE . . . . . TRAS/QRPGLESRC
MIEMBRO . . . . . . . . . FTP010MI
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. . . . : 19 de Enero de 2015
** 19/01/16
500 **
** 27/07/07
600 ** CREA SCRIPT PARA PROCESO DE FTP
** 19/01/16
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
20/01/16
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
2301 C Eval FTPDATO = %trim(TXT(4))
20/01/16
2302 C WRITE PLANO1R
20/01/16
2303 C Eval FTPDATO = %trim(TXT(5))
20/01/16
2304 C WRITE PLANO1R
20/01/16
2400 * Nombre del archivo Recibido
30/07/07
2601 * Eval
FTPDATO=%trim(TXT(6))+%trim(FECHA)+
20/01/16
2602 * %trim(HORA)+'.xls'
20/01/16
2603 * WRITE PLANO1R
20/01/16
3000 * Cierre sesion FTP
30/07/07
3100 C Eval FTPDATO = %trim(TXT(7))
20/01/16
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
20/01/16
4901 NAMEFMT 1
19/01/16
4902 lcd /qdls/redur
20/01/16
4903 bin
20/01/16
5200 put redur.xls
20/01/16
5201 rename redur.xls redur
20/01/16
5400 quit
30/07/07
* * * * F I N D E F U E N T E * * * *
_
De: [email protected]
[mailto:[email protected]] En nombre de INFORMATICA
Enviado el: miércoles, 14 de septiembre de 2016 12:48
Para: forum.help400
Asunto: Re: CAMBIAR CONTENIDO DE
Hola Paco
El "origen" no lo genero por rpg. Lo tengo hecho a piñon, y necesitaría
modificarlo
----- Original Message -----
From: Paco Medina <mailto:[email protected]>
To: 'forum.help400' <mailto:[email protected]>
Sent: Wednesday, September 14, 2016 11:06 AM
Subject: RE: CAMBIAR CONTENIDO DE
el origen si lo generas mediante rpg , puedes recuperar el parámetro del
area de datos y te valdría para ir modificando el nombre cada vez no?
De: [email protected]
[mailto:[email protected]] En nombre de INFORMATICA
Enviado el: miércoles, 14 de septiembre de 2016 11:02
Para: forum.help400
Asunto: Re: CAMBIAR CONTENIDO DE
Paco, cuando dices "si el DESTINO"... te refieres a éste?? --> "OVRDBF
FILE(OUTPUT) TOFILE(BIBLIOTECA/FUENTE) MBR(DESTINO)"
Este DESTINO es la salida del FTP.
Yo el que tengo que modificar para enviar es el "ORIGEN"
----- Original Message -----
From: Paco Medina <mailto:[email protected]>
To: 'forum.help400' <mailto:[email protected]>
Sent: Wednesday, September 14, 2016 9:40 AM
Subject: 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]] 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]] 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] <[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.
_____
____________________________________________________
Ú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.
