Hola Habría otra opción, aunque puede ser un poco pesada si son muchos campos.
Con SQL haces un INSERT en el nuevo fichero de un SELECT del antiguo, con el formato que quieres. Algo así como: INSERT INTO FILEB SELECT DIGITS(CAMPO_1) AS CAMPO_1, CAMPO_2, CAMPO_3, DIGITS(CAMPO_4) AS CAMPO_4 FROM FILEA Saludos Carlos "Wilfredo Ramirez" <[email protected]> Enviado por: [email protected] 10/02/2010 14:37 Por favor, responda a [email protected]; Por favor, responda a "forum.help400" <[email protected]> Para "Victor Almonacid" <[email protected]>, "forum.help400" <[email protected]> cc Asunto Re: Cambio de Estructura de Archivo Gracias a todos por la ayuda, he intetado hacerlo con el CPYF y mueve datos no deseados, también lo hice con CHGPF y genera el error de 'Datos Decimales' He optado por hacer un programa Free donde creo una estructura de datos de ambos archivos con la opción QUALIFIED luego con la función EVAL_CORR mover los datos, lamentablemente también genera datos no deseable y da un error de datos decimales. La única solución es tratar de mover cada campo individualmente. Gracias amigos. From: "Victor Almonacid" <[email protected]> Sent: Tuesday, February 09, 2010 4:38 PM To: [email protected], "forum.help400" <[email protected]> Subject: Re: Cambio de Estructura de Archivo El siguiente comando hace una copia de todos los registros de un archivo fisico a otro, moviendo el registro completo, sin considerar los campos individualmente... Es ideal cuando ambos registros son del mismo largo...en caso contrario hay que tener cuidado porque se puede truncar o rellenar con valores no deseados y ahí quizás conviene hacer un programa para mover campo a campo.... CPYF FROMFILE(BIBLIOTECA/PFILEA) TOFILE(BIBLIOTECA/PFLIEB) MBROPT(*REPLACE) FMTOPT(*NOCHK) Espero te sirva From: Wilfredo Ramirez Sent: Tuesday, February 09, 2010 5:11 PM To: [email protected] Subject: Cambio de Estructura de Archivo Saludos amigos del Forum, a ver si alguien me da una idea o me pueda dar un ejemplo con este inconveniente que tengo. Resulta que la empresa donde laboro me ha asignado un proyecto el cual involucra alrededor de mil programas. Este consiste en cambiar la estructura de varios archivos físicos, Ejemplo, el PF Filea esta estructurado como sigue, Campo_1 3,0 Campo_2 5A Campo_3 7,2 Campo_4 3,0 y la nueva estructura seria PF Fileb, Campo_1 3A Campo_2 5A Campo_3 7,2 Campo_4 3A Despues de hacer esto cambio he ejecutado el comando CHGPF para que asuma el nuevo cambio pero este genera un error de datos no compatible, he optado por hacer un un programa para mover campo a campo hacia la nueva estructura (tienen los mismo nombre de campo), mi pregunta es si existe una una mejor manera de mover de forma conjunta todos los campos del archivo Filea al archivo Fileb, de ser esto posible me pueden dar un ejemplo. Gracias a todos por toda la ayuda posible... Wilfredo Ramírez Outsourcing Externo Santo Domingo, Rep. Dominicana ____________________________________________________ © Publicaciones Help400, S.L. - Todos los derechos reservados http://www.help400.es ---------------------------------------------------- Para darte de baja visita la siguente URL: http://listas.combios.es/mailman/listinfo/forum.help400 ____________________________________________________ © Publicaciones Help400, S.L. - Todos los derechos reservados http://www.help400.es ---------------------------------------------------- Para darte de baja visita la siguente URL: http://listas.combios.es/mailman/listinfo/forum.help400 -------------------- AVISO LEGAL: Este mensaje se dirige exclusivamente a su destinatario y puede contener información reservada y/o CONFIDENCIAL. Si Vd. no es el destinatario original no está autorizado a copiar o distribuir esta comunicación a ninguna otra persona. Si ha recibido este mensaje por error, le rogamos nos lo comunique inmediatamente por esta misma vía y proceda a su borrado. Gracias. DISCLAIMER: This message is intended exclusively for its addressee and may contain information that is CONFIDENTIAL and protected by professional privilege. If you are not the intended recipient you are hereby notified that any dissemination, copy or disclosure of this communication is strictly prohibited by law. If this message has been received in error, please immediately notify us via e-mail and delete it. Thank you. --------------------
____________________________________________________ © Publicaciones Help400, S.L. - Todos los derechos reservados http://www.help400.es ---------------------------------------------------- Para darte de baja visita la siguente URL: http://listas.combios.es/mailman/listinfo/forum.help400
