Hola, Wilfredo.
Tienes otra opción, mitad cpyf, mitad rpg:
Se trataría de crear un archivo FileB con la siguiente estructura:
Campo_1 3,0
Campo_1B 3A
Campo_2 5A
Campo_3 7,2
Campo_4 3,0
Campo_4B 3A
Copiar los datos con CPYF .... FMTOPT(*map *drop)
Hasta aquí tienes todos los campos con datos exceptuando campo_1b y campo_4b
Con un programa RPG mueves los datos de Campo_1 a Campo_1B y Campo_4 a Campo_4B
ya sólo queda eliminar de la estructura Campo_1 y Campo_4 y cambiar después los
nombres de los nuevos campos.
Un saludo.
Víctor Díaz
----- Original Message -----
From: Wilfredo Ramirez
To: Victor Almonacid ; forum.help400
Sent: Wednesday, February 10, 2010 2:33 PM
Subject: 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
____________________________________________________
© 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
