How to take output of execute immediate 'select * from table' into a file ?

Question

hi all,
below is my code .....
declare
var_column_name varchar2(2000);
main_string varchar2(12000);
var_table_name varchar2(30);
base_string varchar2(2000);
final_string varchar2(2000);
cursor c1 is
select
object_name
from user_objects
where object_type in ('TABLE','VIEW') and rownum < 2 ;
cursor c2 is
select
column_name
from user_tab_columns
where upper(table_name) = upper(var_table_name);
begin
--var_column_name := null;
-- main_string :=null;
-- table_name :=null ;
-- base_string :=null;
-- final_string := null;
open c1;
fetch c1 into var_table_name;
close c1;
for c2_var in c2
loop
main_string := c2_var.column_name||','||main_string;
end loop;
select rtrim(main_string,',') into final_string from dual;
dbms_output.put_line(final_string);
base_string := 'Select '||final_string ||' from '||var_table_name||'' ;
dbms_output.put_line(base_string);
spool tete.lst;
execute immediate base_string;
spool off;
end;
i want to take the output of the execute immediate in a file on unix server ....
please suggest
rgds
s

Answer 1

Were you looking for something like this?
SELECT
     CASE WHEN Columns.Column_Id = 1 THEN 'SELECT ' || CHR(10) END
          || CHR(09) || Columns.Column_Name
          || CASE
               WHEN Columns.Column_Id = Info.Total_Columns THEN
                       CHR(10) || 'FROM'
                    || CHR(10) || CHR(09) || Columns.Table_Name || ';'
                    || CHR(10)
               ELSE ','
             END          Statement
FROM
     User_Tab_Columns     Columns,
      SELECT
          Table_Name,
          MAX(Column_Id) Total_Columns
      FROM
          User_Tab_Columns
      GROUP BY
          Table_Name
     )               Info
WHERE
     Columns.Table_Name = Info.Table_Name
ORDER BY
     Columns.Table_Name,
     Columns.Column_Id;