RE: Copy multiple files to PC csv format

It's there if you press F10. Don't use QDLS. That's the old DOS 8.3 file
system. I'd use either QOpenSys or another folder in the /root file
system. You can make your own folder by doing a MD '/MyNewFolder'. Then
direct your CPYTOIMPF to that. 
 


Mark Walter
Senior Programmer/Analyst
IBM Certified RPG Developer
Hainey Business Systems
(717) 771-2362
mwalter@xxxxxxxxxxx
http://www.hbs-inc.com
 

-----Original Message-----
From: midrange-l-bounces@xxxxxxxxxxxx
[mailto:midrange-l-bounces@xxxxxxxxxxxx] On Behalf Of Anne d'Hooge
Sent: Thursday, February 02, 2006 8:44 AM
To: midrange-l@xxxxxxxxxxxx
Subject: Re: Copy multiple files to PC csv format 


Frank,

I've tried the CPYTOIMPF, however the keyword STMFCODPAG doesn't exist
in this command. The copy worked without it.
Now I have to find the file in a PC environment, I've scanned the
network through explorer, but I can't find QDLS, is an AS400 displayed
under another name ?
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

--
This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing
list To post a message email: MIDRANGE-L@xxxxxxxxxxxx To subscribe,
unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/midrange-l
or email: MIDRANGE-L-request@xxxxxxxxxxxx Before posting, please take a
moment to review the archives at http://archive.midrange.com/midrange-l.