RE: Sending column headings to a CSV file

["Carel Teijgeler" <coteijgeler@xxxxxxxxx>]

If you want a really quick-and-dirty-and-cheap solution and use SQL: use
UNION.

First query creates the rresult set
Union with the second query which have column headings hardcoded.

Caveat: numeric and date data types has to be converted to character .

Sample:

SELECT item, itemdesc, DIGITS(ZONED(itemprice),7,2) As price, x'41 'AS code
FROM itemmasterfile
UNION 'item' AS item, 'Description' As itemdesc, 'Price' AS price, x'40'
AS code
FROM sysdummy1
ORDER BY code, item

output to an file, then CPYTOIMPF into a csv-file.

With regards,
Carel Teijgeler

*********** REPLY SEPARATOR  ***********

On 23-1-2008 at 17:10 Eric Lehti wrote:

> Paul,
> If you don't have a commercial product that does column headings, use this
2-step process to add Column Headings to a .CSV flat file for
> Microsoft Excel.
>
> Table F55001B has one record with column header values (shown here).
>
> ....+....1....+....2....+....3....+....4....+....5....+....6....+....7..>..
+....8..
>      Column A              Column B              Column C     Column D  
> --------------------  --------------------  --------------------
> ----------------
> Order Number          Order Date            Customer Number Customer Name
 
> STEP 1.
> /*  Column Headings going to the worksheet*/ 
>             CPYTOIMPF  FROMFILE(F55001B)    +
>  TOSTMF('/QNTC/SCHROEDER/LIBRARY/rmaC/RMA.CSV') +                 
>        MBROPT(*REPLACE)  STMFCODPAG(*PCASCII  ) RCDDLM(*CRLF)
>                    
> STEP 2.
>             CPYTOIMPF  FROMFILE(F55001D )  +           
>  TOSTMF('/QNTC/SCHROEDER/LIBRARY/rmaC/RMA.CSV') 
>  MBROPT(*ADD    ) STMFCODPAG(*PCASCII) RCDDLM(*CRLF)
>
> Here are the first 3 rows in RMA.CSV
> "Order Number        ","Order Date          ","Customer Number ","Customer
Name       ",
> 209513    ,"01/05/06",17647     ,"ABC Sample Company Inc.",  
> 209594    ,"01/05/06",17640     ,"ACME Sales Company",