Hola Sonia,
¿Seguro que el CPYF *NOCHK te ha funcionado?
Si es así, es que los campos numéricos eran desempaquetados, lo cual no es
muy habitual.
En el ejemplo que plantea Wilfredo el Campo_1 era 3.0, es decir, de 3
dígitos, empaquetados ocupando 2 bytes, con lo cual al hacer el CPY el
nuevo Campo_1 recibiría estos 2 bytes, posiblemente ilegibles, más el
primer byte del Campo_2.
Saludos,
---------------------------
Santiago Martí
Dusen, S.A.
---------------------------
Sonia Ramírez
Castillo
<srami...@grupobu Para
rke.com> [email protected],
Enviado por: "forum.help400"
forum.help400-bou <[email protected]>
[email protected] cc
os.es
Asunto
Re: Cambio de Estructura de Archivo
10/02/2010 15:00
Por favor,
responda a
"forum.help400"
<forum.help...@li
stas.combios.es>
Hola Wilfredo
La única manera es con CPYF y *NOCHK, siempre que tengan la misma longitud
de fichero. El mando CHGPF no te funciona si los campos son claves...
Deberías decirnos cuales son los verdaderos campos, porque en el ejemplo
que has puesto, si tiene que funcionar. Y por supuesto si haces un
programa debería de funcionar, ya que los campos de unos de los ficheros
los tienes que renombrar porque son distintos. Hace poco, he hecho algo
parecido cambiando la clave de númerica a alfa, y lo que he hecho es crear
el fichero vacio con las DDS's nuevas y luego CPYF con *NOCHK (porque
tienen la misma longitud).
Un saludo
Sonia Ramírez
Técnica de Sistemas
Burke (Sotfware y Servicios)
> 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
____________________________________________________
© 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
