RE: Header for .csv file from PF

["Bob Cozzi" <cozzi@xxxxxxxxx>]

Frank,
If you have my RPG Toolkit (www.rpglib.com) you can use the CrtFldList()
procedure to generate the list of field names.  You could, of course, also
just use the CpyToCSV() subprocedure that does the conversion for your
anyway, and includes the row for column headings.
If you don't have the tookit, use the QUSLFLD API and dump the fields into a
User space and then retrieve them back into your program. Of course from
there you can build a fld1,fld2,fld3  header as needed.
If you don't like to use APIs, you will need to use the DSPFFD command and
send the data to an output file, then read the field names into your RPG IV
program and build the column name header record.
Hope this helps.
-Bob Cozzi


-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx]
On Behalf Of fkany@xxxxxxxxxxxxxxxxxx
Sent: Friday, March 26, 2004 12:31 PM
To: RPG400-L@xxxxxxxxxxxx
Subject: Header for .csv file from PF


Hello,

I have an RPGIV program that writes records to a file that will be sent as
an excel .csv file.  When the .csv file is opened, the records are there,
but ofcourse there's no header because the .csv file just shows the data.

If all the fields were character, I could just use EVAL the fields with the
header info and write it as the first record, but some fields are numeric
and some are character.

The .csv file is created each time the program is ran and then emailed.  As
much as I don't like using the MOVE operation, I tried it anyways and the
program compiled, but I the program received a data decimal error when it
was ran.

Does anyone have an idea of how I can put header info into this .csv file
each time the RPG program is ran?

Thanks,

Frank



_______________________________________________
This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list
To post a message email: RPG400-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/rpg400-l.