Replacement variable

Question

I'm trying to use a replacement variable in the following script.
Someone can help me to find the error?
Thanks in advance
Paolo
SYS@orcl1 SQL> !uname -a
Linux localhost.localdomain 2.6.18-274.17.1.el5 #1 SMP Tue Jan 10 17:26:03 EST 2012 i686 i686 i386 GNU/Linux
SYS@orcl1 SQL> select * from v$version;
BANNER
Oracle Database 10g Enterprise Edition Release 10.2.0.1.0 - Prod
PL/SQL Release 10.2.0.1.0 - Production
CORE 10.2.0.1.0 Production
TNS for Linux: Version 10.2.0.1.0 - Production
NLSRTL Version 10.2.0.1.0 - Production
SYS@orcl1 SQL> !cat query1.sql
declare
TYPE QueryCurType is REF CURSOR;
query1 QueryCurType ;
cursor c1 is select owner,table_name from dba_tables where owner not in ('SYS','SYSTEM') and table_name not like '%$%';
cursor c2(t1 varchar2) is select column_name from dba_tab_columns where table_name=t1 and DATA_TYPE in ('NVARCHAR2','VARCHAR2','CHAR');
temp_var varchar2(3000);
query varchar2(3000);
begin
for tab1 in c1 loop
for col in c2(tab1.table_name) loop
query:='select '||col.column_name||' from '||tab1.owner||'.'||tab1.table_name||' where '||col.column_name||' like ' ||*'&&1'*;
dbms_output.put_line('executing..'||query);
open query1 for query;
loop
fetch query1 into temp_var;
if concat('a',temp_var) != 'a' then
dbms_output.put_line('Found String: "'||temp_var||'"# Column:'||col.column_name||'# Table:'||tab1.table_name);
end if;
exit when query1%NOTFOUND;
end loop;
end loop;
end loop;
end;
SYS@orcl1 SQL> @query1 '%TAB%';
old 11: query:='select '||col.column_name||' from '||tab1.owner||'.'||tab1.table_name||' where '||col.column_name||' like ' ||'&&1';
new 11: query:='select '||col.column_name||' from '||tab1.owner||'.'||tab1.table_name||' where '||col.column_name||' like ' ||'%TAB%';
declare
ERROR at line 1:
ORA-00911: invalid character
ORA-06512: at line 13
SYS@orcl1 SQL> @query1 %TAB%
old 11: query:='select '||col.column_name||' from '||tab1.owner||'.'||tab1.table_name||' where '||col.column_name||' like ' ||'&&1';
new 11: query:='select '||col.column_name||' from '||tab1.owner||'.'||tab1.table_name||' where '||col.column_name||' like ' ||'%TAB%';
declare
ERROR at line 1:
ORA-00911: invalid character
ORA-06512: at line 13

Answer 1

Hello,
DECLARE
    TYPE QueryCurType IS REF CURSOR;
    query1 QueryCurType ;
    CURSOR c1 IS
        SELECT  owner
               ,table_name
        FROM    dba_tables
        WHERE   owner NOT IN ('SYS','SYSTEM')
        AND     table_name NOT LIKE '%$%';
    CURSOR c2(t1 VARCHAR2) IS
        SELECT  column_name
        FROM    dba_tab_columns
        WHERE   table_name   =t1
        AND     data_type IN ('NVARCHAR2','VARCHAR2','CHAR');
    temp_var VARCHAR2(3000);
    query    VARCHAR2(3000);
BEGIN
    FOR tab1 IN c1 LOOP
        FOR col IN c2(tab1.table_name) LOOP
            query := 'select ' ||col.column_name||
                     ' from '||tab1.owner||'.'||tab1.table_name||
                     ' where '|| col.column_name ||
                     ' like ' ||'&&1';
            dbms_output.put_line('executing..'||query);
            OPEN query1 FOR query;
            LOOP
                FETCH   query1
                INTO    temp_var;
                IF CONCAT('a',temp_var) != 'a' THEN
                    dbms_output.put_line(
                        'Found String: "'||temp_var||'"# '||
                        'Column:'||col.column_name||'# '||
                        'Table:'||tab1.table_name);
                END IF;
                EXIT WHEN query1%NOTFOUND;
            END LOOP;
        END LOOP;
    END LOOP;
END;
/From your posting I cannot see where line 13 is. But my first attempt would be not to use Oracle keywords like QUERY as variable names.
Can you execute the block, when you manually replace the variable?
Regards
Marcus
P.S.: Please use tags around your code to preserve formatting.