Re: exporting to .csv file

["Roger Pence" <rp@xxxxxxxxxxxxxx>]

Alan--

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

It's still a little grungy and requires the existence of a target template,
but that isn't that big of a deal. And, this method eliminates a
time-consuming copy of a large file after it's been CPYTOIMFed.  Why in the
%@#$@%@!# doesn't CPYTIMPF provide a codepage parameter!?

1. Create a single, empty correctly code-paged template target file in a
folder (with with CPY or from the PC).

2. Before you do the CPYTOIMPF, use CPY to copy the template target file to
the approrpiate folder with the appropriate name.

3. Use CPYTOIMPF to copy to that new target file. CPYTOIMPF will preserve
its codepage.

rp

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