SQL Procedure doesn't work with "current of cursor" Oracle 11g

Question

hi all
i have written a procedure which should update every row for a given column on a given table.
here is the code:
CREATE OR REPLACE PROCEDURE "xxx"."loop_update_autowert_x"
startwert number,
column_name VARCHAR2,
table_name varchar2
AS
stmt varchar2(2000);
stmt2 varchar2(2000);
zaehler number;
sum_gesamt number;
TYPE obj_ref_type IS REF CURSOR;
obj_cur obj_ref_type;
begin
stmt2:='select rownum , rowid from ' || table_name || ' for update';
OPEN obj_cur FOR stmt2;
dbms_output.enable(1000000);
dbms_output.put_line ('Startwert ist: ' ||startwert);
dbms_output.put_line ('Column Name ist: ' ||column_name);
dbms_output.put_line ('Table Name ist: ' ||table_name);
loop
fetch obj_cur into zaehler , my_rowid;
exit WHEN obj_cur%NOTFOUND;
sum_gesamt:=zaehler + startwert;
stmt:='update ' || table_name || ' set ' || column_name || ' = ' || sum_gesamt || ' WHERE current of obj_cur';
dbms_output.put_line (stmt);
execute immediate stmt;
end loop;
close obj_cur;
end;
the error i get is:
Anmeldung bei der Datenbank Oracle Test2.
ORA-03001: Funktion nicht implementiert
ORA-06512: in "xxx.loop_update_autowert_x", Zeile 29
ORA-06512: in Zeile 10
Startwert ist: 5
Column Name ist: a
Table Name ist: T
update T set a = 6 WHERE current of obj_cur
Prozess beendet.
Abmeldung von der Datenbank Oracle Test2.
have anybody an idea what is wrong or is this construction with the clause "open cursor for statement" not possible with where current of cursor
thx for helping
best regards
Hans-Peter

Answer 1

Hello
You're using rownum in your query so why not just use it in the update?
CREATE OR REPLACE PROCEDURE "xxx"."loop_update_autowert_x" (
   startwert      NUMBER,
   column_name    VARCHAR2,
   table_name     VARCHAR2)
AS
   stmt         VARCHAR2 (2000);
BEGIN
   DBMS_OUTPUT.enable (1000000);
   DBMS_OUTPUT.put_line ('Startwert ist: ' || startwert);
   DBMS_OUTPUT.put_line ('Column Name ist: ' || column_name);
   DBMS_OUTPUT.put_line ('Table Name ist: ' || table_name);
      stmt :=
            'update '
         || table_name
         || ' set '
         || column_name
         || ' = ROWNUM + :startwert'
      DBMS_OUTPUT.put_line (stmt);
      EXECUTE IMMEDIATE stmt USING startwert;
END;Wherever possible, I would suggest you try to avoid dynamic SQL as it hides dependencies and so can make maintenance more difficult.
Also, it's not a great idea to splatter your code with DBMS_OUTPUT all over the place. It's better to wrap it in something so you have a bit of control over when it is used - something like log4plsql would be an example...
HTH
David