Si te sirve como ejemplo:
El nombre inicial en qdls es por ejemplo Repre001.txt
Después en el servidor se queda así: AUT_001_10084071.txt
5722WDS V5R3M0 030905 LISTADO FUENTE SEU
22/12/10 08:18:45 CAMACHO PµG. 1
MIEMBRO . . . . . . . . . CONS22RC
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+...
7 ...+... 8 ...+... 9 ...+... 0
100 PGM PARM(&REP)
04/07/05
101 /* DEFINICION DE VARIABLES
*/ 07/02/08
300 DCL VAR(&REP) TYPE(*CHAR) LEN(3)
12/05/05
301 DCL VAR(&PED) TYPE(*CHAR) LEN(10)
07/02/08
302 DCL VAR(&NUM) TYPE(*DEC) LEN(8 0)
04/07/05
303 DCL VAR(&ORD) TYPE(*CHAR) LEN(8)
04/07/05
304 DCL VAR(&WPUSR) TYPE(*CHAR) LEN(10)
07/02/08
305 /* Recupera Usuario
*/ 07/02/08
306 RTVJOBA USER(&WPUSR)
07/02/08
401
/*********************************************************************/
04/07/05
402 /* Recuperamos numerador de descarga para procesos
*/ 08/07/05
404 RTVDTAARA DTAARA(CAMACHO (700 8)) RTNVAR(&ORD)
04/07/05
405 CHGVAR VAR(&NUM) VALUE(&ORD)
04/07/05
406 CHGVAR VAR(&NUM) VALUE(&NUM + 1)
04/07/05
407 CHGVAR VAR(&ORD) VALUE(&NUM)
04/07/05
410 CHGDTAARA DTAARA(CAMACHO (700 8)) VALUE(&ORD)
04/07/05
411
/*********************************************************************/
04/07/05
800 /* Copia datos de carpeta del Servidor a s: Historico
*/ 07/02/08
801 /* cambiando numero
*/ 07/02/08
802 CHGVAR VAR(&PED) VALUE(&WPUSR)
07/02/08
803 STRPCCMD PCCMD('copy s:\REP_AS400\rep' *CAT &REP *CAT
+ 07/02/08
804 '\repre' *CAT &REP *CAT '.txt +
07/02/08
805 s:\Historico\' *TCAT &PED *TCAT &REP +
07/02/08
806 *TCAT &ORD *TCAT '.txt') PAUSE(*NO)
07/02/08
807 STRPCCMD PCCMD('del /Q s:\REP_AS400\rep' *CAT &REP +
05/07/05
808 *CAT '\repre' *CAT &REP *CAT '.txt') +
05/07/05
809 PAUSE(*NO)
05/07/05
1600 ENDPGM
12/05/05
* * * * F I N D E F U E N T E * * * *
_
De: [email protected]
[mailto:[email protected]] En nombre de Elvira Vázquez
Enviado el: miércoles, 19 de enero de 2011 9:39
Para: 'forum.help400'
Asunto: ayuda
Buenos dias
Preciso de vuestra ayuda. Tengo que cambiar el nombre externo de un fichero
para mandarlo a un FTP. El nombre sería variable empezando por SXXX fijo y
las siguientes posiciones podrian ser por ejemplo el dia y la hora o sólo
la hora.
Alguien sabe como hacerlo???
Gracias
Elvira
____________________________________________________
Únete a Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd )
Forum.Help400 © Publicaciones Help400, S.L.
