exporting to .csv file

[Alan Novick <anovick@xxxxxxxxxxxxxxxx>]

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
+---