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

["DeLong, Eric" <EDeLong@xxxxxxxxxxxxxxx>]

Dan,

CPYTOSTMF would be my preference, but you need a little prep work to make it
happen.  The main problem is this command won't work for externally
described files, so you must copy the data to a non-described file first.

CRTPF FILE(LIBX/FILEX) RCDLEN(xxx)
CPYF .............. FMTOPT(*NOCHK)
CPYTOSTMF FROMMBR('/qsys.lib/libx.lib/filex.file/filex.mbr')
          TOSTMF('/ifs_path_here/file.dat') STMFCODPAG(*PCASCII)


Eric DeLong
Sally Beauty Company
MIS-Project Manager (BSG)
940-898-7863 or ext. 1863



> -----Original Message-----
> From: Dan [mailto:dbcemid@yahoo.com]
> Sent: Wednesday, November 06, 2002 9:03 AM
> To: midrange-l@midrange.com
> Subject: RE: AS/400 app FTPs file to IFS???
>
>
> 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/
> _______________________________________________
> 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.
>
>