Ref Cursors in 10g

Question

Hi,
I have a problem. A PL/SQL code was running fine in 9i as per the required output(dbmsoutput) ,is not working in 10g.
The following is the PART OF THE CODE.
In 9i database the output reaches till 'TEST5' but not in 10gdatabase,where it reaches till 'TEST4'.
FOR tab1 IN c_tablename
LOOP
var_tablename := tab1.tname;
DBMS_OUTPUT.put_line(var_tablename);
var_string1 := 'select distinct uo.type from udb_object uo ,'||var_tablename||' a where uo.object = a.object';
DBMS_OUTPUT.put_line('TEST2');
DBMS_OUTPUT.put_line(var_string1);
DBMS_OUTPUT.put_line('TEST4');
OPEN var_table1 FOR var_string1;
LOOP
     DBMS_OUTPUT.put_line('TEST5');
     FETCH var_table1 INTO var_type;
PLease let me know is you know anything around.
Regards
Vallabh

Answer 1

Hi
Here is the program
CREATE OR REPLACE PROCEDURE udb_object_final(var_name VARCHAR2)
IS
var_type NUMBER;
var_tablename VARCHAR (80);
var_columnname VARCHAR (80);
CURSOR c_tablename
IS
SELECT tname
FROM TAB
WHERE UPPER(tname) = UPPER(var_name);
CURSOR c_columnname
IS
SELECT utc.column_name cname
FROM ALL_tab_columns utc               
WHERE utc.table_name =UPPER(var_tablename);
err_msg1 VARCHAR (80);
err_msg VARCHAR (80);
err_code NUMBER;
var_percentage NUMBER;
var_count1 NUMBER := 0;
TYPE c_table1 IS REF CURSOR;
var_table1 c_table1;
var_string1 VARCHAR2 (4000);
TYPE c_table2 IS REF CURSOR;
var_table2 c_table2;
var_string2 VARCHAR2 (4000);
var_count2 NUMBER (38);
TYPE c_table3 IS REF CURSOR;
var_table3 c_table3;
var_string3 VARCHAR2 (4000);
var_count3 NUMBER (38);
BEGIN
DBMS_OUTPUT.put_line('TEST1');
FOR tab1 IN c_tablename
LOOP
var_tablename := tab1.tname;
DBMS_OUTPUT.put_line(var_tablename);
var_string1 := 'select distinct uo.type from udb_object uo ,'||var_tablename||' a where uo.object = a.object';
DBMS_OUTPUT.put_line('TEST2');
DBMS_OUTPUT.put_line(var_string1);
DBMS_OUTPUT.put_line('TEST4');
OPEN var_table1 FOR var_string1;
LOOP
     DBMS_OUTPUT.put_line('TEST5');
     FETCH var_table1 INTO var_type;
                                   DBMS_OUTPUT.put_line(var_count1);
                                   var_string2 :='select count(*) from '||var_tablename||' tt, udb_object uo where uo.type='||var_type||' and tt.object = uo.object ';
                                   OPEN var_table2 FOR var_string2;
                                   FETCH var_table2 INTO var_count2;
                                   CLOSE var_table2;
                              FOR tab2 IN c_columnname
                              LOOP
                                   var_columnname := tab2.cname;
                                   var_string3 :='select count(*) from '||var_tablename|| ' where '||var_columnname|| ' is NOT NULL and object in (select object from udb_object where type = '||var_type|| ')';
                                   OPEN var_table3 FOR var_string3;
                                   FETCH var_table3 INTO var_count3;
                                   CLOSE var_table3;
                                   IF (var_count3 = 0)
                                   THEN
                                   var_percentage := 0;
                                   ELSE
                                   var_percentage := ROUND((var_count3/var_count2)*100);
                                   END IF;
                                   DBMS_OUTPUT.put_line ( var_tablename||'='|| var_columnname||': '||var_type||': '|| var_percentage);
                              END LOOP;
EXIT WHEN var_table1%NOTFOUND;
END LOOP;
CLOSE var_table1;
END LOOP;
EXCEPTION
WHEN NO_DATA_FOUND
THEN
DBMS_OUTPUT.put_line ('NO CORRESPONDING OBJECTS FOUND IN UDB_OBJECT');
WHEN OTHERS
THEN
err_code := SQLCODE;
err_msg := SUBSTR (SQLERRM, 1, 100);
END udb_object_final;
Cheers
Vallabh