Y no podrías utilizar el CPYF FROMFILE(&bib/&file) TOFILE(BIBLIOTECA/DESTINO) MBROPT(*ADD)
A menos que sea algo mas complejo lo que necesites hacer. Saludos. From: [email protected] [mailto:[email protected]] On Behalf Of JAIME LOPEZ Sent: Lunes, 04 de Octubre de 2010 10:28 a.m. To: [email protected] Subject: RE: duda - Respuesta Importance: High Hola a todos En un programa CLP no conozco si se pueda hacer pero en un programa RPG si se puede: En la hoja F se define como variable el nombre del archivo: fDBFILE if f10000 disk extfile(FILEPF) f recno(NMRRGS) f usropn Se define como parámetros de entrada los siguientes: d my_pgm pr d nombrearc 10a Nombre de Archivo d nombrebib 10a Nombre de Biblioteca d my_pgm pi d nombrearc 10a Nombre de Archivo d nombrebib 10a Nombre de Biblioteca Define la variable donde quedará los datos del registro que se leerá del archivo de entrada: dREGDATA ds 10000 Con lo anterior lo que se hace es que realiza un open al archivo DBFILE, con una operación READ lee el archivo dejando los datos en REGDATA y con este dato graba en otro archivo donde quedara todos los datos consolidados. Cuando termine la lectura cierra (close) el archivo. Puede hacer la anterior operación con los archivos que necesite siempre y cuando tengan la misma estructura de registros tanto el archivo de lectura como el archivo donde grabará todos los registros. _____ From: [email protected] To: [email protected] Subject: duda Date: Mon, 4 Oct 2010 18:01:51 +0200 Alguien sabe como hacer un programa en CL que lea ficheros que no se sabe su nombre y los junte uno detrás de otro en otro que si se sabe su nombre y luego borre los primeros??? Elvira ____________________________________________________ �nete a Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd ) Forum.Help400 � Publicaciones Help400, S.L.
____________________________________________________ Únete a Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd ) Forum.Help400 © Publicaciones Help400, S.L.
