--* File Name    : Grant_Delete.sql
--* Author       : DR Timothy S Hall
--* Description  : Grants delete on current schemas tables to the specified user/role.
--* Call Syntax  : @Grant_Delete (schema-name)
--* Last Modified: 28/01/2001
SET PAGESIZE 0
SET FEEDBACK OFF
SET VERIFY OFF

SPOOL temp.sql

SELECT 'GRANT DELETE ON ' || u.table_name || ' TO &1;'
FROM   user_tables u
WHERE  NOT EXISTS (SELECT '1'
                   FROM   all_tab_privs a
                   WHERE  a.grantee    = UPPER('&1')
                   AND    a.privilege  = 'DELETE'
                   AND    a.table_name = u.table_name);

SPOOL OFF

@temp.sql

-- Comment out following line to prevent immediate run
@temp.sql

SET PAGESIZE 14
SET FEEDBACK ON
SET VERIFY ON