Oracle Grant en todas las tablas del esquema

BEGIN
   FOR R IN (SELECT owner, table_name FROM all_tables 
             WHERE owner='OTHER_SCHEMA') LOOP
      EXECUTE IMMEDIATE 'GRANT SELECT, INSERT, UPDATE, DELETE ON ' ||
                         R.owner || '.' || R.table_name || ' TO MY_SCHEMA';
   END LOOP;
END;
VasteMonde