-- grant all privileges to entire schema
 

SET SERVEROUTPUT ON 
DEF sch=&& 1 
DEF touser=&& 2 


DECLARE

  cursor C1 is
    select 'grant all on ' || owner || '.' || object_name ||
           ' to ' || '&&touser'
    from   all_objects
    where  owner = '&&sch'
  ;

  ddl_cursor INTEGER;
  ddl_query  VARCHAR2(  400  );

BEGIN
  ddl_cursor := DBMS_SQL.OPEN_CURSOR;
  open C1;
  DBMS_OUTPUT.ENABLE(  409600  );
  loop
    fetch C1 into ddl_query;
    exit when C1%NOTFOUND;
    begin
      DBMS_OUTPUT.PUT_LINE( ddl_query );
      DBMS_SQL.PARSE( ddl_cursor, ddl_query, DBMS_SQL.NATIVE );
    exception when OTHERS then NULL;
    end;
  end loop;
  DBMS_OUTPUT.DISABLE;
  DBMS_SQL.CLOSE_CURSOR( ddl_cursor );
  close C1;
END;
/
exit;