Buenas yo lo hago desde la qdls aunque luego envió el nombre al servidor
Y lo renombro no sé si te servirá de ayuda.
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 Benito
Hernandez
Enviado el: miércoles, 22 de diciembre de 2010 4:12
Para: forum.help400
Asunto: RE: parametros en un transfer automatico
BUENAS Y MEDIAS NOTICIAS NOTICIAS
Ya deje en el IFS el archivo de texto con el nombre que quiero (esas son
las buenas)
las medias es que aun me falta incluir en mi CL la transferencia del archivo
de texto que esta en el IFS a un servidor de windows en mi misma RED
si alguien tiene algo alrespecto se los agradecere (cuando este listo les
mandare como quedo mi CL
Saludos y Gracias a todos por sus aportaciones
Benito Hernandez
--- On Wed, 12/22/10, Benito Hernandez < <mailto:[email protected]>
[email protected]> wrote:
From: Benito Hernandez < <mailto:[email protected]> [email protected]>
Subject: RE: parametros en un transfer automatico
To: "forum.help400" < <mailto:[email protected]>
[email protected]>
Date: Wednesday, December 22, 2010, 12:18 AM
Gracias a todos por sus respuestas
les pongo un ejemplo del tamaño de mis archivos en el Iseries se llama uno
de los archivos (F956888001) este archivo lo creo de acuerdo a datos de mi
facturacion pero siempre sera de 10 caracteres esto ya esta resuelto
y el de texto debe de ser minimo de 25 caracteres incluyendo la extension
ejemplo (33_NPG_MEFAC_956888_F.txt)
en EL IFS solo me deja renombrar con 8 caracteres para el nombre y 3 para la
extension
separados por el punto.
Ya esutve buscando varias formas pero no encuentro la solucion
Mucho les agradecere su ayuda
Benito hernandez
--- On Mon, 12/20/10, Javier Mora < <mailto:[email protected]>
[email protected]> wrote:
From: Javier Mora < <mailto:[email protected]> [email protected]>
Subject: RE: parametros en un transfer automatico
To: "forum.help400" < <mailto:[email protected]>
[email protected]>
Date: Monday, December 20, 2010, 8:28 AM
¿No te es más cómodo utilizar FTP o el IFS?
_____
De: [email protected]
[mailto:[email protected]] En nombre de Benito
Hernandez
Enviado el: viernes, 17 de diciembre de 2010 17:43
Para: [email protected]
Asunto: parametros en un transfer automatico
Alguien ha hecho algun CL o PGM en el que corra automaticamente una
transferencia de datos pero cambaindo el nombre del archivo que se toma del
As400 y cambiando el nombre del archivo que se deja en la PC
estoy con lo de la factura electronica y debo pasar a un servidor de windows
un archivo de texto. con la informacion que se requiere. el problema es que
cada factura que genero es un nombre de archivo diferente con un solo campo
de 254 posiciones, y ese archivo lo debo de convertir a texto para pasarlo a
la PC, esto ya lo he logrado usando el Transfer de Personal COmunication
pero de forma manual (cambiando el nombre de entrada y cambiando el nombre
de salida. pero se debe hacer de forma automatica.
sabran algo de como hacer para que por parametros cambie esos nombres tanto
de entrada como de salida
Por su ayuda de antemano GRACIAS
Benito Hernandez Rivera
Mexico
-----Inline Attachment Follows-----
____________________________________________________
Únete a Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd )
Forum.Help400 © Publicaciones Help400, S.L.
-----Inline Attachment Follows-----
____________________________________________________
Únete a Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd )
Forum.Help400 © Publicaciones Help400, S.L.
P42000184204209000420900042CONTADO 000000001000000PAGADOS
REDUR 00100020101221Ruego
facturar pedido como roturas "12". Pedido urgente. Gracias.
0
D4200018420393213239 000000001000000000053000000000000CENTRO CRISTAL
_13X13 CM
D4200018420392816584 000000001000000000075000000000000BOMBONERA
CRISTAL TULIPANES LIALA 18X16 CM
D4200018420392942543 000000001000000000223000000000000PERCHERO CUERO
C/4 GANCHOS PLEGABLES _44X8X6CM.
D4200018420392544770 000000001000000000038000000000000MANIQUI RESINA
ROSA _29X13 CM
D4200018420391805663 000000001000000000065000000000000JGO. 3 BANDEJAS
DE MELAMINA _43X32X5 39X28X4 34X23X4 CM
D4200018420392665184 000000001000000000074000000000000VAJILLA INFANTIL
5 PZAS. MELAMINA ESTUCHE:28X22X12 CM
D4200018420392765185 000000001000000000074000000000000VAJILLA INFANTIL
5 PZAS. MELAMINA ESTUCHE:28X22X12 CM
D4200018420391907942 000000002000000000082000000000000JGO. 6 VASOS
CRISTAL 300CC. _10X8 CM
D4200018420392007943 000000001000000000086000000000000JGO. 6 VASOS
CRISTAL 400CC. _14X8 CM
D4200018420393180455 000000002000000000055000000000000JGO. 6 CUCHARAS
DELICATESSEN CERAMICA _10X5X2 CM
D4200018420393080456 000000001000000000036000000000000JGO. 6 CUCHARAS
DELICATESSEN _5,5X5X3 CM
D4200018420392283264 000000001000000000054000000000000PORTARROLLO
COCINA CROMADO/MADERA _31X16X16CM.
D4200018420392384408 000000001000000000064000000000000JGO. 4 PERCHAS
C/VENTOSA ACRILICAS _5X4,5 APROX
D4200018420392489634 000000001000000000029000000000000RELOJ
DESPERTADOR METAL _11,5X11,5X3 CM.
____________________________________________________
Únete a Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd )
Forum.Help400 © Publicaciones Help400, S.L.
