How to search all columns of all tables in a database

Question

i need to search all columns of all tables in a database , i already write the code below , but i've got the error message below when run this script
DECLARE
cnt number;
v_data VARCHAR2(20);
BEGIN
v_data :='5C4CA98EAC4C';
FOR t1 IN (SELECT table_name, column_name FROM all_tab_cols where owner='admin' and DATA_TYPE='VARCHAR2') LOOP
EXECUTE IMMEDIATE 'SELECT COUNT(*) FROM ' ||t1.table_name|| ' WHERE ' ||t1.column_name || ' = :1' INTO cnt USING v_data;
IF cnt > 0 THEN
dbms_output.put_line( t1.table_name ||' '||t1.column_name||' '||cnt );
END IF;
END LOOP;
END;
Error report:
ORA-00933: SQL command not properly ended
ORA-06512: at line 7
00933. 00000 - "SQL command not properly ended"
*Cause:   
*Action:
Any help please

Answer 1

SQL solutions by Michaels
michaels>  var val varchar2(5)
michaels>  exec :val := 'as'
PL/SQL procedure successfully completed.
michaels>  select distinct substr (:val, 1, 11) "Searchword",
                substr (table_name, 1, 14) "Table",
                substr (t.column_value.getstringval (), 1, 50) "Column/Value"
           from cols,
                table
                   (xmlsequence
                       (dbms_xmlgen.getxmltype ('select ' || column_name
                                                || ' from ' || table_name
                                                || ' where upper('
                                                || column_name
                                                || ') like upper(''%' || :val
                                                || '%'')'
                                               ).extract ('ROWSET/ROW/*')
                   ) t
--        where table_name in ('EMPLOYEES', 'JOB_HISTORY', 'DEPARTMENTS')
       order by "Table"or
11g upwards
SQL> select table_name,
       column_name,
       :search_string search_string,
       result
  from (select column_name,
               table_name,
               'ora:view("' || table_name || '")/ROW/' || column_name || '[ora:contains(text(),"%' || :search_string || '%") > 0]' str
          from cols
         where table_name in ('EMP', 'DEPT')),
       xmltable (str columns result varchar2(10) path '.')
TABLE_NAME                     COLUMN_NAME                    SEARCH_STRING                    RESULT   
DEPT                           DNAME                          es                               RESEARCH 
EMP                            ENAME                          es                               JAMES    
EMP                            JOB                            es                               SALESMAN 
EMP                            JOB                            es                               SALESMAN 
4 rows selected.