Select from sys.all_ind_columns works in sql*plus but not in stored proc

Question

I'm writing a query to find duplicate rows in a temporary table which has no unique index defined before I insert the data into the real table. I'm trying to query the sys.all_ind_columns view for the target table which belongs to a different schema:
SELECT column_name colnm
FROM sys.all_ind_columns i
WHERE i.table_owner = 'SUSDB'
AND i.index_name LIKE '%LUK'
AND i.table_name = &tbnm
ORDER BY i.column_position;
This works from my GUI interface and returns five rows but when I put it into a stored procedure I get now data returned. I have granted my userid SELECT ANY DICTIONARY authority. What else do I need?

Answer 1

CREATE OR REPLACE FUNCTION bog_elsa2_leslie.diag_msg_1000_cursor(i_rept_inst IN VARCHAR2,
i_rept_time_frame IN VARCHAR2,
i_table_name IN VARCHAR2,
i_column_name IN VARCHAR2,
i_domain_table IN VARCHAR2,
i_domain_column IN VARCHAR2,
i_domain_code IN VARCHAR2,
i_trace_flg IN NUMBER := 0)
RETURN VARCHAR2 IS
cursor_stg VARCHAR2(4000);
|| File name: diag_msg_1000_cursor.fnc
|| Created by: ELSA.LESLIE
|| Created on: 20071215 4:08:20 AM
|| Purpose: Build the string that will retrieve PRIKEY and CONTENTS
|| from the target table, university, time frame, submission
|| and table passed as parameters for the 1000 dignostic.
|| Diagnostic 1000:
|| Validate that the table's logical unique key constraint
|| is not violated.
|| In: ***
|| *** ALL INPUT VARIABLES MUST BE DECLARED EVEN IF THEY ARE
|| *** NOT USED IN THIS PARTICULAR FUNCTION BECAUSE THE
|| *** EDIT_ANY_TABLE PROCEDURE CALLS THE FUNCTION IN AN
|| *** EXECUTE IMMEDIATE STATEMENT THAT REQUIRES THE 'USING'
|| *** PHRASE BE PART OF THE CALLING PROGRAM RATHER THAN BEING
|| *** INCLUDED IN THE RETURNED CURSOR_STG.
|| ***
|| i_rept_inst = reporting institution (eg. UF, FSU)
|| i_rept_time_frame = reporting time frame (eg., 200608, 20062007)
|| i_table_name = target table to be edited (eg. BUILDINGS, ENROLLMENTS)
|| i_trace_flg is optional and is used for debugging (values: TRUE/FALSE)
|| [not used] i_column_name = eg. ALTER_YR, BASE_YR
|| [not used] i_domain_table = the name of the domain table containing valid values
|| [not used] (eg. DOMAIN_MAIN_VALUES, DOMAIN_UNIV)
|| [not used] i_domain_column = the name of the column in the domain table that
|| [not used] contains the valid values (eg. CODE, OPEID_CD)
|| [not used] i_domain_code = the 5-digit domain code (eg. 10021, 01045)
|| Out: cursor_stg = executable SQL to return error row information
|| Dependencies: Logical Unique Key for tables must be have the string 'LUK'
|| postpended to it's name.
|| Exceptions: none
|| Copyright: BOG 2007
|| ***************************************************
|| Modifications:
|| Userid - Date - Modification description
-- Constants and special assignments
rept_inst VARCHAR2(4) := upper(i_rept_inst);
rept_time_frame VARCHAR2(8) := i_rept_time_frame;
table_name VARCHAR2(30) := upper(i_table_name);
column_name VARCHAR2(30) := upper(i_column_name);
domain_table VARCHAR2(30) := upper(i_domain_table);
domain_column VARCHAR2(30) := upper(i_domain_column);
domain_code VARCHAR2(5) := upper(i_domain_code);
trace_flg NUMBER := i_trace_flg;
file_name VARCHAR2(100) := 'diag_msg_1000_cursor: ';
unq_cols VARCHAR2(1000) := NULL;
unq_contents VARCHAR2(4000) := NULL;
unq_where VARCHAR2(4000) := NULL;
-- Accounting of process n/a all contained in the for loop
row_num NUMBER := 0;
-- Object types - n/a
-- Cursors
CURSOR ix_cols_curr(tbnm VARCHAR2 := table_name) IS
SELECT column_name colnm
FROM sys.all_ind_columns i
WHERE i.table_owner = 'SUSDB'
AND i.index_name LIKE '%LUK'
AND i.table_name = tbnm
ORDER BY i.column_position;
-- Cursor variables n/a
-- errors and exceptions
sql_code NUMBER;
sql_errm VARCHAR2(255);
BEGIN
-- output trace information if requested
IF trace_flg = 1
THEN
dbms_output.put_line(file_name || 'rept_inst = ' || rept_inst);
dbms_output.put_line(file_name || 'rept_time_frame = ' || rept_time_frame);
dbms_output.put_line(file_name || 'table_name = ' || table_name);
dbms_output.put_line(file_name || 'column_name = ' || column_name);
dbms_output.put_line(file_name || 'domain_table = ' || domain_table);
dbms_output.put_line(file_name || 'domain_column = ' || domain_column);
dbms_output.put_line(file_name || 'domain_code = ' || domain_code);
END IF;
-- ix_cols_loop builds a string of the columns contain in the
-- logical unique key which is then later incorporated into the
-- select cursor returned to the calling program.
FOR this_col IN ix_cols_curr(table_name)
LOOP
<<ix_cols_loop>>
-- output trace information if requested
IF trace_flg = 1
THEN
row_num := ix_cols_curr%ROWCOUNT;
dbms_output.put_line(file_name || 'row=' || row_num ||
'column_name=' || this_col.colnm);
END IF;
IF unq_cols IS NOT NULL
THEN
unq_cols := unq_cols || ', ';
unq_contents := unq_contents || ', ';
END IF;
unq_cols := unq_cols || this_col.colnm;
unq_contents := unq_contents || q'[']' || this_col.colnm ||
q'['=]' || this_col.colnm;
unq_where := unq_where || 'AND tbl.' || this_col.colnm ||
' = dups.' || this_col.colnm;
END LOOP ix_cols_loop;
IF trace_flg = 1
THEN
dbms_output.put_line(file_name || 'unq_cols =' || unq_cols);
dbms_output.put_line(file_name || 'unq_contents =' || unq_contents);
dbms_output.put_line(file_name || 'unq_where =' || unq_where);
END IF;
cursor_stg := 'SELECT prikey, ' || unq_contents || ' AS contents ' ||
'FROM univdb.' || table_name || ' tbl, (SELECT ' ||
unq_cols || ', COUNT(*) FROM univdb.' || table_name ||
q'[ WHERE rept_inst = ']' || rept_inst || q'[']' ||
q'[AND rept_time_frame = ']' || rept_time_frame || q'[']' ||
' GROUP BY ' || unq_cols || ' HAVING COUNT(*) > 1) dups' ||
q'[ WHERE tbl.rept_inst = ']' || rept_inst || q'[']' ||
q'[ AND tbl.rept_time_frame = ']' || rept_time_frame ||
q'[']' || unq_where;
-- output trace information if requested
IF trace_flg = 1
THEN
dbms_output.put_line(file_name || 'cursor_stg = ' || cursor_stg);
END IF;
RETURN(cursor_stg);
EXCEPTION
-- block exception
WHEN OTHERS THEN
sql_code := SQLCODE;
sql_errm := SQLERRM;
IF trace_flg = 1
THEN
dbms_output.put_line(file_name || ' ROW NUM ' || row_num || ' sql code ' ||
sql_code || ' sql message ' || sql_errm);
END IF;
END diag_msg_1000_cursor;