Re: Copy multiple files to PC csv format

Frank,

Mailing is not an option, there are millions of records to transfer.

Regards

Anne

date: Wed, 1 Feb 2006 09:31:30 -0600
from: FrankKany@xxxxxxxxxxx
subject: Re: Copy multiple files to PC csv format

The following works for me:

I first copy the file to an IFS folder:
CPYTOIMPF  FROMFILE(QTEMP/MYFILE) +
             TOSTMF('/QDLS/MYFOLDER/MYFILE.CSV') +
             MBROPT(*REPLACE) STMFCODPAG(*PCASCII) +
             RCDDLM(*CRLF)

Then copy email the file to myself:
SNDDST     TYPE(*DOC) +
             TOINTNET((myemailaddress@xxxxxxxxx))       +
             DSTD('My File in CSV format to open in Excel')          +
             MSG('This goes into the body of the email') +
             DOC(MYFILE.CSV)                        +
             FLR('MYFOLDER')

hth,

Frank W. Kany IV
Senior Programmer/Analyst
Unipres USA, Inc.



"Anne d'Hooge" <a.dhooge@xxxxxxxxxx>
Sent by: midrange-l-bounces@xxxxxxxxxxxx
02/01/2006 09:14 AM
Please respond to
Midrange Systems Technical Discussion <midrange-l@xxxxxxxxxxxx>


To
midrange-l@xxxxxxxxxxxx
cc

Subject
Copy multiple files to PC csv format






Hi,

I need to copy a large amount of AS400 externally described files to PC in

.csv format.
Manually transferring is impossible due to the large amount, so I wanted
to
do this through CL, but how to get them to a PC environment ?
I've noticed a command CPYTOSTMF, but that doesn't work with externally
described files.

Can anyone help me ?

Regards

Anne d'Hooge