Saving result from query into CSV file

Question

Hi folks,
in our application we're generating pages source using general packages (like htp, owa_util, ...). and in this part I'm a really beginner.
I want to modify source one of our page, I want to add functionality to enable save result from query (cursor) into CSV file, to enable user choose place where generated file will be created and also change file name.
I searched this forum and I found procedure, that could be useful:
procedure p_getcsv is
cursor cur is
       select 'a1' col1, 'b1' col2, 'c1' col3 from dual
   union  select 'a2' col1, 'b2' col2, 'c2' col3 from dual
   union  select 'a3' col1, 'b3' col2, 'c3' col3 from dual;
   begin
        -- Set the MIME type
        owa_util.mime_header( 'application/octet', FALSE );
        -- Set the name of the file
        htp.p('Content-Disposition: attachment; filename="test.csv"');
        -- Close the HTTP Header
        owa_util.http_header_close;
        -- Loop through all rows in EMP
        for x in cur
        loop
            -- Print out a portion of a row,
            -- separated by commas and ended by a CR
             htp.prn(x.col1||','|| x.col2||','||x.col3|| chr(13));
        end loop;        
   end;What peace of code should I add to procedure that is generating web page to enable calling this procedure and whole saving process?
Can anybody help me with this?
Many thanks,
Tomas
Message was edited by:
Tomeo

Answer 1

Hi Marc,
thanks for reply, problem is that I'm not using APEX application, I'm just generating web page code straight using oracle general packages.
But I found this solution (maybe some tunning will be good):
In page where I want to display Download i have
  begin
         htp.anchor2 (
                       curl  =>  ... .p_getcsv'||'?term=2005&crn=123,
                       ctext => 'Download Class List'
         HTP.br;
      end;
...si I'm calling p_getcsv procedure:
  procedure p_getcsv( term  IN stvterm.stvterm_code%TYPE DEFAULT NULL,
                       crn   IN sirasgn.sirasgn_crn%TYPE DEFAULT NULL) is
   v_length      NUMBER;
   v_file_name   VARCHAR2 (2000);
   temp_blob  blob;
   line RAW(32767);
   begin
         DBMS_LOB.CREATETEMPORARY(temp_blob, TRUE);
         FOR i IN 1..6  LOOP
            line := UTL_RAW.CAST_TO_RAW(i||','||term||','||crn||',AAA,BBB,CCC'||chr(10));
            DBMS_LOB.WRITEAPPEND(temp_blob, LENGTH(UTL_RAW.CAST_TO_VARCHAR2(line)), line);
         END LOOP;
          v_file_name := 'ClassList.csv';
          v_length  := DBMS_LOB.getlength (temp_blob);
          -- set up HTTP header
             -- use an NVL around the mime type and
             -- if it is a null set it to application/octect
             -- application/octect may launch a download window from windows
           OWA_UTIL.mime_header (NVL ('csv', 'application/octet'), FALSE);
           -- set the size so the browser knows how much to download
           HTP.p ('Content-length: ' || v_length);
           -- the filename will be used by the browser if the users does a save as
           HTP.p (   'Content-Disposition:  attachment; filename="'
              || REPLACE (REPLACE (SUBSTR (v_file_name,
                                           INSTR (v_file_name, '/') + 1
                                   CHR (10),
                                   NULL
                          CHR (13),
                          NULL
              || '"'
             -- close the headers
             OWA_UTIL.http_header_close;
            -- download the BLOB
             WPG_DOCLOAD.download_file (temp_blob);
             -- release temporary blob
             dbms_lob.freetemporary(temp_blob);  
   end;Regards,
Tomas