Jaime, te envio un par de ejemplos con CPYTOIMPF y con CPYTOSTMF.
Este comando lo utilizo para desempacar campos numericos en un archivo de datos y generar un archivo de texto que después es transferido por FTP a una carpeta en un servidor NT
CPYTOIMPF FROMFILE(&LIBSRC/&FILSRC &MBRSRC) +
TOSTMF('/tmp/FL' *TCAT &USER *TCAT +
'.txt') MBROPT(*REPLACE) +
STMFCODPAG(*PCASCII) RCDDLM(*CRLF) +
DTAFMT(*FIXED) STRDLM(*NONE) FLDDLM('')
TOSTMF('/tmp/FL' *TCAT &USER *TCAT +
'.txt') MBROPT(*REPLACE) +
STMFCODPAG(*PCASCII) RCDDLM(*CRLF) +
DTAFMT(*FIXED) STRDLM(*NONE) FLDDLM('')
Este otro comando forma parte de una utileria para convertir archivos de datos a valores separados por comas, va seguido de CPYTOIMPF y también se transfiere por FTP a un servidor NT
CPYTOSTMF FROMMBR('/qsys.lib/qtemp.lib/colheads.file/pf+
colhead.mbr') TOSTMF(&TOSTMF) +
STMFOPT(*REPLACE) STMFCODPAG(*PCASCII) +
ENDLINFMT(*CRLF)
CPYTOIMPF FROMFILE(&FROMLIB/&FROMFILE &FROMMBR) +
TOSTMF(&TOSTMF) MBROPT(*ADD) +
STMFCODPAG(*PCASCII) RCDDLM(*CRLF) +
DTAFMT(*DLM) STRDLM('"') +
FLDDLM(',') DECPNT(*PERIOD)
colhead.mbr') TOSTMF(&TOSTMF) +
STMFOPT(*REPLACE) STMFCODPAG(*PCASCII) +
ENDLINFMT(*CRLF)
CPYTOIMPF FROMFILE(&FROMLIB/&FROMFILE &FROMMBR) +
TOSTMF(&TOSTMF) MBROPT(*ADD) +
STMFCODPAG(*PCASCII) RCDDLM(*CRLF) +
DTAFMT(*DLM) STRDLM('"') +
FLDDLM(',') DECPNT(*PERIOD)
Saludos.
--
Jesús Olague
Zacatecas, México
