How to generate csv ouput by using a procedure

Question

Hi All,
How do I generate a csv (comma separate value) output by using procedure. I have 2 SQL statements in my procedure, I need to generate a csv file with the result set of 2 SQL's. For Example;
I have the following 2 SQL's in my procedure
Cursor emp_det Is Select * From emp where sal < 4000;
Cursor sal_det Is Select e.* from emp e,dept d where d.dname = 'SALES'
My requirement is to generate a csv ouput with the result set of cursors emp_det & sal_det. How can I generate a csv ouput by using PL/SQL. I could generate the same by using tools like TOAD & PL/SQL Developer. But I need to generate csv output by using PL/SQL only...Your help would be more appreciated.

Answer 1

use tom kyte's dump_csv.
create or replace function  dump_csv( p_query     in varchar2,
                                      p_separator in varchar2
                                                    default ',',
                                      p_dir       in varchar2 ,
                                      p_filename  in varchar2 )
return number
AUTHID CURRENT_USER
is
    l_output        utl_file.file_type;
    l_theCursor     integer default dbms_sql.open_cursor;
    l_columnValue   varchar2(2000);
    l_status        integer;
    l_colCnt        number default 0;
    l_separator     varchar2(10) default '';
    l_cnt           number default 0;
     l_colDesc          dbms_sql.DESC_TAB;
begin
    l_output := utl_file.fopen( p_dir, p_filename, 'w' );
    dbms_sql.parse(  l_theCursor,  p_query, dbms_sql.native );
    for i in 1 .. 255 loop
        begin
            dbms_sql.define_column( l_theCursor, i,
                                    l_columnValue, 2000 );
            l_colCnt := i;
        exception
            when others then
                if ( sqlcode = -1007 ) then exit;
                else
                    raise;
                end if;
        end;
    end loop;
    dbms_sql.define_column( l_theCursor, 1, l_columnValue, 2000 );
    l_status := dbms_sql.execute(l_theCursor);
     dbms_sql.describe_columns(l_theCursor,l_colCnt, l_colDesc);
     l_separator := '';
     for lColCnt in 1..l_colCnt
     loop          
            utl_file.put( l_output, l_separator ||  '"' || Upper(l_colDesc(lColCnt).col_name) || '"');
               l_separator := p_separator;
     end loop;
     utl_file.new_line( l_output );
    loop
        exit when ( dbms_sql.fetch_rows(l_theCursor) <= 0 );
        l_separator := '';
        for i in 1 .. l_colCnt loop
            dbms_sql.column_value( l_theCursor, i,
                                   l_columnValue );
            utl_file.put( l_output, l_separator ||  '"' ||
                                    l_columnValue || '"');
            l_separator := p_separator;
        end loop;
        utl_file.new_line( l_output );
        l_cnt := l_cnt+1;
    end loop;
    dbms_sql.close_cursor(l_theCursor);
    utl_file.fclose( l_output );
    return l_cnt;
end dump_csv;Thanks,
Karthick.