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: forum.help400-boun...@listas.combios.es [mailto:forum.help400-boun...@listas.combios.es] 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:benit...@yahoo.com> benit...@yahoo.com> wrote: From: Benito Hernandez < <mailto:benit...@yahoo.com> benit...@yahoo.com> Subject: RE: parametros en un transfer automatico To: "forum.help400" < <mailto:forum.help400@listas.combios.es> forum.help400@listas.combios.es> 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:jm...@musgrave.es> jm...@musgrave.es> wrote: From: Javier Mora < <mailto:jm...@musgrave.es> jm...@musgrave.es> Subject: RE: parametros en un transfer automatico To: "forum.help400" < <mailto:forum.help400@listas.combios.es> forum.help400@listas.combios.es> Date: Monday, December 20, 2010, 8:28 AM ¿No te es más cómodo utilizar FTP o el IFS? _____ De: forum.help400-boun...@listas.combios.es [mailto:forum.help400-boun...@listas.combios.es] En nombre de Benito Hernandez Enviado el: viernes, 17 de diciembre de 2010 17:43 Para: forum.help400@listas.combios.es 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.