RE: AS/400 app FTPs file to IFS???

[Dan <dbcemid@xxxxxxxxx>]

I need to clarify.  The resulting file must be an "exact" image of the
AS/400 file as if viewing via DSPPFM.  The record length must be the
same in both files.  No delimiters and surrounding quotes allowed.  BTW
& FWIW, the last byte in the record is usually blank (the last field is
a description field).

--- "Lauritzen, Karl" <KLAURITZEN@natlloyds.com> wrote:
> Try this
>
> CPYTOSTMF  +
> FROMMBR('/qsys.lib/yourlib.lib/yoursrc.file/yourfile.file +
>              TOSTMF('/IFS/downloadedfilename.txt') +
>              STMFOPT(*REPLACE) STMFCODPAG(*PCASCII)
> CPYTOIMPF  FROMFILE(yourlib/yourfile) +
>              TOSTMF('/IFS/downloadedfilename.txt') +
>              MBROPT(*REPLACE) RCDDLM(*CRLF) FLDDLM(X'05')
>
> Creates a text file comma delimited with " around each field.
> You can then import this file into Excel or wherever.
>
> I had a hard time at first too with this but now I use it all the
> time.

__________________________________________________
Do you Yahoo!?
HotJobs - Search new jobs daily now
http://hotjobs.yahoo.com/