Hola, Has probado un RPG sencillo con ciclo lógico? ;-)
Cuando haces un CPYF, el mandato reclama exclusividad para el miembro donde se ha de copiar si lo haces con *REPLACE.... con *ADD, creo que no te ocurriria este problema. Pero claro, si lo que has de hacer no es un recolector, si de antemano tu controlas la calidad de los datos, puedes declarar los archivos con clave *UNIQUE, y hacer el CPYF con *UPDADD, que no bloquea el miembro. Esta opción añade los registros huerfanos de clave en el destino, y actualiza los campos que existan fuera de la clave.... está guais, pero la mala noticia es que has de controlar la calidad de los datos de origen. Para la cuestión original, desaconsejaria ejecutar una copia de datos en trabajos diferentes. El principio de atomización lo pierdes, y si cruje uno cualquiera de los trabajos, tus datos en el contenedor final seran corruptos. Mirate el tema de las colas de datos, quizas te sirva... al menos ahorraràs tiempo de proceso en la apertura y cierre de archivos intermedios. fins aviat... Àlex Corretgé On 8/27/05, Jaime Villa Torres <[EMAIL PROTECTED]> wrote: > Gracias Jesús, ya realice esa prueba, pero los tiempos de respuesta con el > insert, son n veces mayor que realizar el cpyf en un solo trabajo. > Gracias por tu tiempo. > > Jaime Villa T. > ----- Mensaje original ----- > De: "Jesus Olague" <[EMAIL PROTECTED]> > Para: <[email protected]> > Enviado: Viernes, 26 de Agosto de 2005 06:05 p.m. > Asunto: Re: Cpyf > > > A grosso modo: > > 1. Obtienes de un archivo los nombres de los archivos a y b > 2. Concatenas en una variable la sentencia SQL para que quede mas o menos > STRING = 'INSERT INTO b SELECT a WHERE blablabla' > 3. Preparas la sentencia > C/EXEC SQL > C+ PREPARE SENT FROM :STRING > C/END-EXEC > 4. Ejecutas la sentencia > C/EXEC SQL > C+ EXECUTE SENT > C/END-EXEC > > Y ya está. > > Saludos. > > -- > Jesús Olague > Zacatecas, México > > __________________________________________________ > Forum.HELP400 es un servicio más de NEWS/400. > (c) Publicaciones Help400, S.L. - Todos los derechos reservados > http://www.help400.es > _____________________________________________________ > > Para darte de baja visita la siguente URL: > http://coyote.combios.es/mailman/listinfo/forum.help400 > > > __________________________________________________ > Forum.HELP400 es un servicio más de NEWS/400. > (c) Publicaciones Help400, S.L. - Todos los derechos reservados > http://www.help400.es > _____________________________________________________ > > Para darte de baja visita la siguente URL: > http://coyote.combios.es/mailman/listinfo/forum.help400 > -- Fins aviat... Àlex Corretgé __________________________________________________ Forum.HELP400 es un servicio más de NEWS/400. © Publicaciones Help400, S.L. - Todos los derechos reservados http://www.help400.es _____________________________________________________ Para darte de baja visita la siguente URL: http://coyote.combios.es/mailman/listinfo/forum.help400
