Re: CSVGEN?

and taking it one step farther and creating the IFS file

call qsys2.ifs_write_UTF8(
path_name => '/tmp/listagg.csv',
line => (SELECT LISTAGG(CAST(Qsys2.Delimit_Name(Column_Name) AS CLOB(1M)), ', ') WITHIN GROUP (ORDER BY
Ordinal_Position) AS Column_List FROM Qsys2.Syscolumns2 C
WHERE Table_Name = UPPER('QCUSTCDT') AND Table_Schema = 'QIWS' AND Hidden = 'N' ),
overwrite => 'REPLACE');


Bryan



Bryan Dietz wrote on 2/28/2024 1:26 PM:

I recall taking the file name being inputted and execute the following SQL to start the CSV creation process.

SELECT
    LISTAGG(CAST(Qsys2.Delimit_Name(Column_Name) AS CLOB(1M)), ', ') WITHIN GROUP (ORDER BY Ordinal_Position) AS Column_List
    FROM Qsys2.Syscolumns2 C
    WHERE Table_Name = UPPER('QCUSTCDT')
          AND Table_Schema = 'QIWS'
          AND Hidden = 'N' ;

Greg Wilburn wrote on 2/28/2024 1:10 PM:

I thought it appropriate to start a different thread...I've moved on from systools.generate_spreadsheet.

Maybe this belongs in RPG forum?



I'm currently experimenting with Scott's CSVGEN using DATA-GEN, but I'm not sure how to get column headings using this method.

I was hoping it worked like YAJLDTAGEN that uses the DS names.