Borrar funciones

[Sherezade81]

Muy buenas tardes a todos!!
Estoy tratando de hacer un ejercicio... y me encuentro con cada complicación... Les cuento por si me pueden echar un cable.
Debo crear un procedimiento para eliminar todas las funciones y procedimientos (salvo el actual). De momento, y dado todos los problemas que me encontré estoy borrando las funciones:

CREATE OR REPLACE PROCEDURE BORRA_OBJETOS10 IS
CURSOR C1 IS SELECT * FROM USER_OBJECTS WHERE OBJECT_TYPE='FUNCTION' FOR UPDATE;
BEGIN
FOR REG IN C1 LOOP
EXECUTE IMMEDIATE 'DROP '|| C1.OBJECT_TYPE || ' "' || C1.OBJECT_NAME ||'" WHERE CURRENT OF C1';
END LOOP;
END;
/

Pero me da error: ERROR en línea 5: PLS-00225: la referencia al subprograma o cursor 'C1' está fuera del ámbito
¿Saben por qué? ¿Podrían aclararme un poquito?
Muchas gracias por su atención.
Un saludo!

[Sherezade81]

Creo haberlo resuelto, mi parra, parrita:

CREATE OR REPLACE PROCEDURE BORRA_OBJETOS10 IS
CURSOR C1 IS SELECT * FROM USER_OBJECTS WHERE OBJECT_TYPE='FUNCTION' FOR UPDATE;
BEGIN
FOR REG IN C1 LOOP
EXECUTE IMMEDIATE 'DROP '|| REG.OBJECT_TYPE || ' "' || REG.OBJECT_NAME ||'" WHERE CURRENT OF C1';
END LOOP;
END;
/
Muchas gracias a todos!

[Sherezade81]

Bueno, demasiado facil, intento llamar al procedimiento:
begin
borra_objetos10;
end;

Y me da el error para variar...: ORA-02014: no se puede seleccionar FOR UPDATE de la vista con DISTINCT, GROUP BY, etc.

¿Por qué? Vaya locura....
Un saludo

[jc3000]

Quita el FOR UPDATE del cursor, nada mas.

[Sherezade81]

Muchísimas gracias jc3000, funciona a la perfección.
La verdad es que no lo entiendo porque siguiendo los apuntes (estoy haciendo un módulo a distancia) entiendo que para utilizar los cursores de esta forma había que indicar for update en la declaración del cursor... qué locura!!
Un millón de gracias, y saludos!!!