-- step4.sql
set linesize 500
set pagesize 0
SET HEADING OFF ECHO OFF FEEDBACK OFF
set serveroutput on size 1000000
alter session set max_dump_file_size=unlimited;
ALTER session SET timed_statistics = true; 
exec DBMS_OUTPUT.ENABLE(1000000) ;
alter session set STATISTICS_LEVEL = ALL ;
WHENEVER SQLERROR CONTINUE NONE 
-- 
VARIABLE vgrantor varchar2(20);
BEGIN
     SELECT upper(to_char('&3')) INTO :vgrantor FROM DUAL;
	 dbms_output.put_line(:vgrantor);
END;
/

spool &1/step4_&2
SELECT 'select sysdate from dual ;'
  FROM dual ;
SELECT 'revoke ' || privilege || ' on ' || table_name || ' from ' || grantee || ' ;'
  FROM user_tab_privs p
 WHERE p.privilege NOT IN ('SELECT')
   AND p.grantor = :vgrantor ;
spool off