Perfecto Alex, no sé cuantos favores te debo ya...
Gracias
miguel
On 11/6/06, alex martinez <[EMAIL PROTECTED]> wrote:
Hola:
Sino conoces la estructura una opción para pasar a texto es utilizar el mandato CPYTOIMPF
El error de datos numericos en el CPYF puede tener muchas causas, como por ejemplo que los datos numéricos estén empaquetados (haz un DSPFFD para ver la estructura del archivo original), lo que explica que en el fichero txt los datos numéricos no aparezcan bien.
SAlu2
2006/11/6, miguel miguel <[EMAIL PROTECTED]>:Tengo que pasar a TXT en una carpeta unos ficheros de los cuales desconozco el formato del fichero, uso lo siguiente:/* Reutilizamos el plano de entrada para la salida */
CLRPFM FILE(ATXTFIPG)
CPYF FROMFILE(MIGUELPG) TOFILE(ATXTFIPG) +
MBROPT(*REPLACE) FMTOPT(*NOCHK) <----- AQUI FALLA CON DATOS NUMÉRICOS
MONMSG MSGID(CPF2817)
/* Copiamos la salida a carpeta */
CPYTOSTMF +
FROMMBR('/qsys.lib/rschpru.lib/atxtfipg.fi+
le/atxtfipg.mbr') +
TOSTMF('/home/pconde/miguelpg.txt') +
STMFOPT(*REPLACE) STMFCODPAG(*PCASCII)
y lo copia, pero los datos numéricos no aparecen bien; conociendo la estructura del fichero de origen podría hacer un programa RPG que lo pase a TXT pero al desconocerla no tengo muy claro como puedo pasar datos numéricos al fichero ATXTFIPG que es un fichero creado con CRTPF y un solo campo.¿alguien tiene alguna solución?saludosmiguel
--
Mi blog sobre as400
http://www.ajut400.com
