Urgent: Search all fields

Question

Hi,
I've a problem.
My job is to search a value which can stand in each field from each table.
There are 1054 tables and i should write a procedure which can look in each field if the value is 77669.
It's very urgent.
Thanks in advance.
With best regards
Nicole

Answer 1

Thanks i've solved the problem, but now i have an other problem.
I've to find colums which have different or the same value and if a column have the only one value in each field i want to know this value.
I've tried this procedure but i get a error message:
invalid cursur!
RIS5COLUMNS is a view which have all table_names, column_names,datatypes and max_value.
Here is the procedure:
Create or replace procedure analyse is
lob_length integer;
read_amount integer;
read_offset integer;
buffer varchar2(100);
loc varchar2(100) := 'usr_dir';
f_hand utl_file.file_type;
datatyp varchar2(20);
counter number;
value VARCHAR2(200);
tab_nam VARCHAR2(30);
col_nam VARCHAR2(31);
TYPE RefCurTyp is REF CURSOR;
CV REFCURTYP;
sql_statement VARCHAR2(2000);
max_len number(10);
Cursor cur_suche is
Select column_name,upper_table_name,dbms_type_string,char_max_length from RIS5COLUMNS
where upper_table_name in (Select table_name from user_tables);
BEGIN
read_offset := 1;
read_amount := 49;
-- read_amount := 81;
--Opening file
f_hand := Utl_File.Fopen(location =>'d:\oracle\utl_file\',
filename =>'analyse_Linz_AG.txt',
open_mode =>'w',
max_linesize => 32767);
utl_file.putf(f_hand,'Tabellenname;Feldname;Anzahl unterschiedlicher Einträge;Wert;Max. Länge');
Utl_File.New_Line (f_hand,1);
OPEN cur_suche;
LOOP
FETCH cur_suche into col_nam,tab_nam,datatyp,max_len;
exit when cur_suche%NotFound;
If datatyp <> 'date' then
sql_statement := 'SELECT DISTINCT( COUNT ('||col_nam||')) from '||tab_nam||'';
open CV for sql_statement;
loop
fetch cv into counter;
Close CV;
If value = 1 Then
     sql_statement := 'SELECT DISTINCT '||col_nam||' from '||tab_nam||'';
open CV for sql_statement;     
fetch cv into value;
utl_file.putf(f_hand,''||tab_nam||';'||col_nam||';'||counter||';'||value||';'||max_len||'');
Utl_File.New_Line (f_hand,1);
Else
utl_file.putf(f_hand,''||tab_nam||';'||col_nam||';'||value||';;'||max_len||'');
Utl_File.New_Line (f_hand,1);
End if;
END LOOP;
Close CV;
End if;
END LOOP;
Close cur_suche;
utl_file.fclose(f_hand);
end analyse;