RE: Pasar archivo de 400 a txt en IFS
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: forum.help400@combios.es
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]
*
[SPAM] RE: Pasar archivo de 400 a txt en IFS
Hola: Sobre el tema que planteas hay mucha información ya escrita en este forum. De todas formas, mírate el mandato CPYTOSTMF. Saludo2. De: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] En nombre de [EMAIL PROTECTED] Enviado el: viernes, 22 de septiembre de 2006 13:45 Para: forum.help400@combios.es 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] *
