Generating text file using PL/SQL

Question

can any body send sample program how to generate text file using PL/SQL program.I want to store table data into that text file.

Answer 1

Hi,
try this.
Thanks
CREATE OR REPLACE procedure write_index (TABLE_NAME_ACCEPT VARCHAR2) IS
id UTL_FILE.FILE_TYPE;
name VARCHAR2(20) := 'e:\db_coca\input';      
err VARCHAR2(100);      
ColNameLength Integer;
NumberoFColumns Integer;
num NUMBER;           
i integer;
loc_query VARCHAR2(2000);
cursor_name INTEGER;
ret INTEGER;
l_const_name VARCHAR2(30);
CURSOR c_columns(i_Constraint_name VARCHAR2) IS
     SELECT *
     FROM     all_cons_columns
     WHERE     CONSTRAINT_NAME = i_Constraint_name
     order by table_name;
BEGIN
DBMS_OUTPUT.PUT_LINE('BEFORe OPEN');
--id := UTL_FILE.FOPEN('e:\db_coca\input',name,'w');          
     --IF UTL_FILE.IS_OPEN(id) THEN
     --     DBMS_OUTPUT.PUT_LINE('Opened');
     --ELSE
     --     DBMS_OUTPUT.PUT_LINE('Still Closed');           
     --END IF;          
DBMS_OUTPUT.PUT_LINE('AFTER OPEN');
--The table generation script
     loc_query := 'Select CONSTRAINT_NAME from user_constraints ';
     loc_query := loc_query || ' where owner = ' || '''CPS''';
     loc_query := loc_query || ' AND CONSTRAINT_TYPE = ' || '''P''';
     dbms_output.put_line('TABLE_NAME_ACCEPT = ' || TABLE_NAME_ACCEPT);
     IF NOT (TABLE_NAME_ACCEPT IS NULL ) THEN
          loc_query := loc_query || ' AND TABLE_NAME like ''';
          loc_query := loc_query || TABLE_NAME_ACCEPT ;
          loc_query := loc_query || '''';
     END IF;
     cursor_name := DBMS_SQL.OPEN_CURSOR;
dbms_output.put_line('Query = ' || loc_query);
     DBMS_SQL.PARSE(cursor_name, loc_query, DBMS_SQL.v7);
dbms_output.put_line('After parse');
     dbms_sql.DEFINE_COLUMN(cursor_name, 1,l_const_name, 30);
     ret := DBMS_SQL.EXECUTE(cursor_name);
--     IF ret > 0 THEN
     LOOP
     dbms_output.put_line('return = ' || ret);
          IF DBMS_SQL.FETCH_ROWS(cursor_name) > 0 THEN
               dbms_sql.COLUMN_VALUE(cursor_name, 1,l_const_name);
          --     dbms_sql.BIND_VARIABLE(cursor_name,
l_const_name,CONSTRAINT_NAME);
          --     FOR C10 in Table_Loop Loop          --The cursor
for the table name
               Select COunt(*) INTO NumberoFColumns from
               all_cons_columns
               Where CONSTRAINT_NAME = l_const_name;
     --          FOR C11 IN c_columns(l_const_name) LOOP
     --          End loop;
     --          UTL_FILE.PUT(id, ');');
          ELSE EXIT;
          END if;     --THe 1 st cursor if is closed
     End Loop;     --The table loop ends here
          DBMS_SQL.CLOSE_CURSOR(cursor_name);
--     END IF;     
--     UTL_FILE.PUT_LINE(id,name);
--     UTL_FILE.PUT(id,'It worked and wrote to this file');
     UTL_FILE.FCLOSE(id);
     DBMS_OUTPUT.PUT_LINE('Successful write to file');          
EXCEPTION     
WHEN OTHERS THEN               
     err := SQLERRM;          
     num := SQLCODE;
     DBMS_OUTPUT.PUT_LINE(err);          
     DBMS_OUTPUT.PUT_LINE(num);
     DBMS_OUTPUT.PUT_LINE('Error in writing to file');     
END write_index;