A*-------------------------------------------------------------- A R FORR PFILE(LIB1/FORF) A PFILE(LIB2/FORF) A K FORCA1 A K FORCA2 Yo lo tengo puesto asi y funciona perfectamente lo unico es que al compilar el programa da error debes compilarlo con GENLVL(51). Saludos August ----- Mensaje Original ----- De: "Josep Sanchez" <[EMAIL PROTECTED]> Fecha: Viernes, Octubre 22, 2004 10:39 am Asunto: Re: Logico de union de 2 ficheros IGUALES en bibliotecas distintas .....
> Quiza no me he explicado demasiado bien, tengo 2 ficheros fisicos > LIB1/PEPEy LIB2/PEPE los > 2 con el mismo nombre de registro, mismos campos, misma clave > UNIQUE etc. > Y quiero generar un logico con clave, aunque sea "NO UNIQUE" que > me entregue > registros de > los 2 fisicos por orden de la clave, y que tenga el mismo nombre de > resgistro que los archivos > originales, vamos que este se pueda usar para lectura en lugar de > LIB1/PEPE. > He probado con esto que os adjunto pero me dice que no puedo poner > 2 nombres > de registro iguales, > el caso es que los fisicos tienen ese nombre de registro los 2 > (son iguales) > y no se que exista un RENAME para el nombre de registro.... > > 0001.00 *---------------------------------------------------- > ------ > 0002.00 * TEST UNION > 0003.00 UNIQUE > 0004.00 R REG1 PFILE(LIB1/PEPE) > 0005.00 K BOCMP1 > 0006.00 K BOCMP2 > 0007.00 K BOCMP3 > 0010.00 R REG1 PFILE(LIB2/PEPE) > 0010.01 K BOCMP1 > 0010.02 K BOCMP2 > 0010.03 K BOCMP3 > > Alguna idea ???? > > Gracias > > > > > > > _____________________________________________________ > 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, env�a el mensaje resultante de pulsar > mailto:[EMAIL PROTECTED] > _____________________________________________________ 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, env�a el mensaje resultante de pulsar mailto:[EMAIL PROTECTED]
