Re: exporting to .csv file

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:

 CPYTluxury.ROMFILE(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



Here's is what I do but I don't know if this is easier for you or not. Mine
depends on the ';' as a separation character being added between the fields as I
write the record. Since my data comes from different files, I have the luxury of
putting the separation charater in the file using the EVAL from RPGLE. In
Housekeeping I even write a "Column Header" for the E-mail.

The field ANMAIL is 200 character long.

C* All the necessary fields are strung together with a ';' in between
C                   EVAL      ANMAIL = YRDTC + ';' + YRDNO + ';' + YRCUST +
C                             ';' + %TRIM(OICNAS) + ';' + DATE8  + ';' +
C                             OIPMCD + ';' + %TRIM(R323PD) + ';' +
C                             %TRIM(USRSD2) + ';' + %TRIM(SKSRLN) + ';' +
C                             Sign + DOL$11 + '.' + Dol$2 + ';' + ODUDS1



I then CALLB a CL that uses CPYTOPCD  (This converts to ASCII automagicly)


 CPYTOPCD   FROMFILE(&FILE) TOFLR(&FOLDER) +
              FROMMBR(&MEMBER) REPLACE(*YES)

 SNDDST     TYPE(*DOC) TOUSRID((&GROUP &ADDRES)) +
              DSTD(&Group) CFMDEL(*YES) DOC(&MEMBER) +
              FLR(&Folder)












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