Hola Juan Antonio:
Crea en el AS400 un archivo de trabajo plano con una longitud de registro igual a la del archivo txt.
CRTPF FILE(LIB/TXT) RCDLEN(45)
Despues utiliza CPYF para copiarlo al archivo plano del AS:
CPYFRMIMPF FROMSTMF('/directorio/FILE.TXT') TOFILE(LIB/TXT) RCDDLM(*CRLF)
Despues utiliza CPYF para copiarlo al archivo donde quieras que esten los datos:
CPYF FROMFILE(LIB/TXT) TOFILE(LIB/FILE) MBROPT(*ADD) FMTOPT(*NOCHK)
CPYF FROMFILE(LIB/TXT) TOFILE(LIB/FILE) MBROPT(*ADD) FMTOPT(*NOCHK)
Saludos
El d�a 13/06/05, Juan Antonio <[EMAIL PROTECTED]> escribi�:
Abriendo el txt se ve lo siguiente, con c�digos de tres y descripciones m�s o menos largas...CODE CHARGE
XXX Angola load.cer.
YYY BACetc----- Original Message -----From: Marti RieraSent: Monday, June 13, 2005 11:07 AMSubject: Re: Pasar datos de un fichero txt a un fichero AS400
Hola:Nos puedes enviar un ejemplo de como es un registro que intentas subir?,a ver si de esa forma podemos ayudarte mejor.Saludos.
El d�a 13/06/05, Juan Antonio <[EMAIL PROTECTED] > escribi�:Lo he intentado modificando algunas opciones, pero no recupera los datos.La tabla presenta datos del tipoXXX YYYYYYYYYYYYYYYYYYYYYYYYYy siempre igual.Seguir� viendo otra combinaci�n de par�metros. Supongo que estar� en c�mo indicarle cuando y c�mo saltar a otro registro.Gracias.----- Original Message -----From: Marti RieraSent: Monday, June 13, 2005 9:27 AMSubject: Re: Pasar datos de un fichero txt a un fichero AS400
Hola Juan Antonio:Mira si te puede servir el siguiente mandato:CPYFRMIMPF FROMSTMF('/directorio/nombre_archivo.txt') TOFILE(BIBLIOTECA/FICHERO) RCDDLM(*CRLF) DTAFMT(*DLM) STRDLM('"') FLDDLM(',') DECPNT(*COMMA)Adaptalo a tus necesidades.Saludos.
El d�a 13/06/05, Juan Antonio <[EMAIL PROTECTED] > escribi�:Buenos d�as.Dispongo de un fichero txt, cuyos datos quiero pasarm�los a un fichero existente en AS400.�Alg�n m�todo directo tipo "Cpyf"?.Gracias.
--
Marti Riera
--
Marti Riera
--
Marti Riera
