Grant y Revoke sobre objetos - dinamico

-----Grant
BEGIN
   FOR R IN (SELECT owner, object_name ,object_type FROM All_Objects WHERE OWNER = 'OTELO' AND object_type IN ('VIEW','TABLE')) LOOP
      Begin
        EXECUTE IMMEDIATE 'grant select on '||R.owner||'.'||R.object_name||' to AUDITOR';
      Exception 
         When Others Then
           DBMS_OUTPUT.put_line(Sqlerrm);  
      End ;
   END LOOP;
END;
-----revoke
 
BEGIN
   FOR R IN (SELECT owner, object_name ,object_type FROM All_Objects WHERE OWNER = 'APEX_030200' AND object_type IN ('VIEW','TABLE')) LOOP
      Begin
        EXECUTE IMMEDIATE 'REVOKE All ON '||R.owner||'.'||R.object_name||' FROM AUDITOR';
      Exception 
         When Others Then
           DBMS_OUTPUT.put_line(Sqlerrm);  
      End ;
   END LOOP;
END;