Prueba con esto:

 

-----------------------

PGM                  

                                                    

             CPYTOSTMF  +                                                  

                          FROMMBR('/QSYS.LIB/KILOS.LIB/TER.FILE/CUADE+     

                          R19.MBR   ') TOSTMF('/TMP/TER.TXT') +            

                          CVTDTA(*AUTO) DBFCCSID(*FILE) +                  

                          STMFCODPAG(*PCASCII) ENDLINFMT(*CRLF)             

ENDPGM                                                                     

 

------------------

 

Un  saludo foreros

 

Vicente Aliaga

 

-----Mensaje original-----
De: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] En nombre de [EMAIL PROTECTED]
Enviado el: viernes, 22 de septiembre de 2006 13:45
Para: [email protected]
Asunto: Pasar archivo de 400 a txt en IFS

 


Hola a todos.

Me podria decir alguien como tengo que hacer para pasar el contenido de un archivo del AS400 a un archivo de texto plano y dejarlo en el IFS.


Gracias


*************************************************************************

Francisco Hergueta Sanchez

NAUTAS-TECHNOLOGIES S.A. - Depto. Desarrollo
Pza. Ruperto Chapí, 2 2º
03001-ALICANTE
TEL:+34 965 98 03 30 FAX: +34 965 21 59 48
www.nautas-tech.com
mailto:[EMAIL PROTECTED]

*************************************************************************

Responder a