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

["Lauritzen, Karl" <KLAURITZEN@xxxxxxxxxxxxx>]

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.



-----Original Message-----
From: Dan [mailto:dbcemid@yahoo.com]
Sent: Wednesday, November 06, 2002 8:14 AM
To: midrange-l@midrange.com
Subject: AS/400 app FTPs file to IFS???

I need to copy an AS/400 file to the IFS with the requirement that the
resulting file must be fixed length.  (The file on the AS/400 has only
alpha and signed numeric fields.)  The AS/400 is at v4r5.

I struggled with CPYTOSTMF with no success.  I found a reference to
using "quote site trim 0" in FTP and I was able to use FTP on my
Windoze box to get the desired results with the file being placed on my
PC.

But I need for an AS/400 app to do this work and I need the file to be
placed on the IFS.  I know how to FTP between different AS/400s, but
I've never had the occasion to FTP a file from the AS/400 QSYS.LIB to
an IFS location.

Pointers to TFM are welcome.

TIA, Dan

__________________________________________________
Do you Yahoo!?
HotJobs - Search new jobs daily now
http://hotjobs.yahoo.com/
_______________________________________________
This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing list
To post a message email: MIDRANGE-L@midrange.com
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/cgi-bin/listinfo/midrange-l
or email: MIDRANGE-L-request@midrange.com
Before posting, please take a moment to review the archives
at http://archive.midrange.com/midrange-l.