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?
 
saludos
miguel
 



--
Mi blog sobre as400
http://www.ajut400.com

Responder a