exporting to .csv file -Reply

[Archie Cameron <AGCAMER@xxxxxxxxxxxxxxxxxxxxxxx>]

If you are using Client Access you use the file transfer facility to xfer
data to a file on your PC in .csv format.  You must indicate the file name
on your PC.  Then e-mail.  
Once you've done this you can save it and next time click on the icon.

Archie Cameron
Polaris Industries Inc.

>>> Alan Novick <anovick@bellatlantic.net> 07/22/99 12:14pm >>>
Hello:

I'm trying to export an AS/400 physical file to a comma separated
variable file in a folder so I can email the data to someone who can
open the file in Excel.  Right now I am doing it in two steps.

Step 1. Export the file:

 CPYTOIMPF FROMFILE(EDI002P) +         
           TOSTMF('qdls/folder/edi002') +
           RCDDLM(*CRLF)      

Step 2. Convert to ASCII using the COPY command:

 COPY OBJ('qdls/folder/edi002') +      
      TOOBJ('qdls/folder/edi002.csv') +
      TOCODEPAGE(*PCASCII) +         
      DTAFMT(*TEXT)     

Is there an easier/better way to do this?

Thanks,

Alan Novick
Pressman Toy Corporation
New Brunswick, NJ
+---
| This is the Midrange System Mailing List!
| To submit a new message, send your mail to
MIDRANGE-L@midrange.com.
| To subscribe to this list send email to
MIDRANGE-L-SUB@midrange.com.
| To unsubscribe from this list send email to
MIDRANGE-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator:
david@midrange.com
+---

+---
| This is the Midrange System Mailing List!
| To submit a new message, send your mail to MIDRANGE-L@midrange.com.
| To subscribe to this list send email to MIDRANGE-L-SUB@midrange.com.
| To unsubscribe from this list send email to MIDRANGE-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---