pasar datos numéricos en un PF a un TXT una carpeta...

[miguel miguel]

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