Rem 
Rem Name : tu60rvke.sql 
Rem
Rem Prupose : This script revokes access from the CDE Tools Common schema 
Rem 
Rem Owner : Installation and Release Group
Rem 
Rem     Date     Modified by      Reason
Rem     ----     -----------      ------
Rem     12/15/94 gpadmana         Created
Rem 	  8/21/97  rmorin		    Commented out EXIT, taken care of by D2KRVKE.SQL 
Rem 

WHENEVER OSERROR EXIT 32767
WHENEVER SQLERROR EXIT SQL.SQLCODE

spool %ORACLE_HOME%\TOOLS\DBTAB60\tu60rvke.lst
PROMPT Log spooled in ORACLE_HOME\TOOLS\DBTAB60\tu60rvke.lst

accept uname char prompt 'Revoke access from user: ';

set verify off;

revoke all on de_attached_libs from &uname;

revoke all on gc_charting      from &uname;
revoke all on gc_field         from &uname;
revoke all on gc_reference     from &uname;

revoke all on ROSSTRUCTS       from &uname;
revoke all on ROSATTRIBS       from &uname;
revoke all on ROSSTRINGS       from &uname;
revoke all on ROSLFDESC        from &uname;
revoke all on ROSTFDESC        from &uname;
revoke all on ROSOBJMAP        from &uname;
revoke all on ROSSEQUENCES     from &uname;
revoke all on ROSLFDESC_ID     from &uname;
revoke all on ROSTFDESC_ID     from &uname;

revoke all on tool_access      from &uname;
revoke all on tool_accessible  from &uname;
revoke all on tool_library     from &uname;
revoke all on tool_module      from &uname;
revoke all on tool_ltext       from &uname;
revoke all on tool_lraw        from &uname;
revoke all on tool_plsql       from &uname;
revoke all on tool_comment     from &uname;
revoke all on tool_depend      from &uname;
revoke all on tool_dependent   from &uname;
revoke all on tool_modid       from &uname;
revoke all on tool_lraw_id     from &uname;
revoke all on tool_ltext_id    from &uname;

revoke all on vg_drawing       from &uname;
revoke all on vg_color         from &uname;
revoke all on vg_font          from &uname;
revoke all on vg_image         from &uname;

set verify on;

SPOOL OFF
REM exit;
