MINI MINI MANI MO
Rem
Rem $Header: sdo/admin/sdordfctx_rm.sql /main/15 2017/05/26 16:34:19 rjanders Exp $
Rem
Rem sdordfctx_rm.sql
Rem
Rem Copyright (c) 2009, 2017, Oracle and/or its affiliates.
Rem All rights reserved.
Rem
Rem NAME
Rem sdordfctx_rm.sql - <one-line expansion of the name>
Rem
Rem DESCRIPTION
Rem <short description of component this file declares/defines>
Rem
Rem NOTES
Rem <other useful comments, qualifications, etc.>
Rem
Rem BEGIN SQL_FILE_METADATA
Rem SQL_SOURCE_FILE: sdo/admin/sdordfctx_rm.sql
Rem SQL_SHIPPED_FILE: md/admin/sdordfctx_rm.sql
Rem SQL_PHASE: DOWNGRADE
Rem SQL_STARTUP_MODE: NORMAL
Rem SQL_IGNORABLE_ERRORS: NONE
Rem SQL_CALLING_FILE: NONE
Rem END SQL_FILE_METADATA
Rem
Rem MODIFIED (MM/DD/YY)
Rem rjanders 05/10/17 - #26037683: Raise 'when other' exceptions
Rem rjanders 04/27/17 - Correct "SQL_PHASE" metadata values
Rem rjanders 03/23/17 - #25437999: Remove 'when others then NULL'
Rem handlers
Rem rjanders 03/09/17 - Add missing SQL_FILE_METADATA information
Rem matperry 12/21/15 - add PL/SQL blocks to catch exceptions
Rem rjanders 03/15/13 - #16473696: Start/End _ORACLE_SCRIPT
Rem initialization
Rem sdas 05/09/11 - SEM_CONTAINS_COUNT
Rem spsundar 06/29/10 - XbranchMerge spsundar_prll_semidx from
Rem st_sdo_11.2.0
Rem matperry 05/26/09 - remove WHENEVER SQLERROR EXIT
Rem ayalaman 05/18/09 - remove schema unset
Rem ayalaman 05/07/09 - remove gate extractor
Rem ayalaman 03/30/09 - rdfctx_select to contains_select
Rem ayalaman 03/10/09 - CTX entity extractor
Rem ayalaman 01/14/09 - uninstall RDF text search
Rem ayalaman 01/14/09 - Created
Rem
Rem ********************************************************************
Rem #16473696: Indicate Oracle-Supplied object
@@?/rdbms/admin/sqlsessstart.sql
Rem ********************************************************************
alter session set current_schema = MDSYS;
--WHENEVER SQLERROR EXIT;
declare
hasprfs NUMBER;
begin
begin
EXECUTE IMMEDIATE 'select count(*) from mdsys.rdfctx_index_policies$'
INTO hasprfs;
exception
when others then
if (sqlcode != -942) then
raise;
end if;
end;
if (hasprfs > 0) then
raise_application_error(-20000, 'RDFCTX index exists: '||
'Drop all indexes before uninstalling RDFCTX component');
end if;
end;
/
WHENEVER SQLERROR CONTINUE;
declare
dumvr VARCHAR2(30);
begin
select value into dumvr from mdsys.rdf_parameter
where namespace = 'COMPONENT' and attribute = 'RDFCTX';
if (dumvr is not null) then
execute immediate 'begin mdsys.sem_rdfctx_dr.cleanup_rdfctx; end;';
end if;
exception
when others then
SYS.DBMS_SYSTEM.KSDWRT(SYS.DBMS_SYSTEM.TRACE_FILE,
'EXCEPTION[sdordfctx_rm.sql(' || $$PLSQL_LINE || ')1]: ' || SQLERRM); -- RAISE;
end;
/
declare
stmt VARCHAR2(1000);
l_views sys.ODCIVarchar2List :=
sys.ODCIVarchar2List('RDFCTX_POLICIES','RDFCTX_INDEX_POLICIES',
'RDFCTX_INDEX_EXCEPTIONS');
l_tables sys.ODCIVarchar2List :=
sys.ODCIVarchar2List('RDFCTX_POLICIES$','RDFCTX_INDEX_POLICIES$',
'RDFCTX_INDEX_EXCEPTIONS$');
table_not_found exception;
pragma exception_init(table_not_found, -00942);
begin
-- cleanup tables/views
for i in 1 .. l_views.count loop
begin
EXECUTE IMMEDIATE 'drop view mdsys.'||l_views(i);
exception
when table_not_found then NULL;
when others then
SYS.DBMS_SYSTEM.KSDWRT(SYS.DBMS_SYSTEM.TRACE_FILE,
'SEM_INSTALL: error dropping RDFCTX metadata object :'||l_views(i)||'-'
||sqlerrm);
end;
end loop;
for i in 1 .. l_tables.count loop
begin
EXECUTE IMMEDIATE 'drop table mdsys.'||l_tables(i)||' PURGE';
exception
when table_not_found then NULL;
when others then
SYS.DBMS_SYSTEM.KSDWRT(SYS.DBMS_SYSTEM.TRACE_FILE,
'SEM_INSTALL: error dropping RDFCTX metadata object :'||l_tables(i)||'-'
||sqlerrm);
end;
end loop;
begin
stmt := 'drop package sem_rdfctx_dr'; execute immediate stmt;
exception
when others then
SYS.DBMS_SYSTEM.KSDWRT(SYS.DBMS_SYSTEM.TRACE_FILE,
'EXCEPTION[sdordfctx_rm.sql(' || $$PLSQL_LINE || ')2]: ' || SQLERRM); -- RAISE;
end;
begin
stmt := 'drop package sem_rdfctx_ir'; execute immediate stmt;
exception
when others then
SYS.DBMS_SYSTEM.KSDWRT(SYS.DBMS_SYSTEM.TRACE_FILE,
'EXCEPTION[sdordfctx_rm.sql(' || $$PLSQL_LINE || ')3]: ' || SQLERRM); -- RAISE;
end;
begin
stmt := 'drop package sem_rdfctx'; execute immediate stmt;
exception
when others then
SYS.DBMS_SYSTEM.KSDWRT(SYS.DBMS_SYSTEM.TRACE_FILE,
'EXCEPTION[sdordfctx_rm.sql(' || $$PLSQL_LINE || ')4]: ' || SQLERRM); -- RAISE;
end;
begin
stmt := 'drop public synonym sem_rdfctx'; execute immediate stmt;
exception
when others then
SYS.DBMS_SYSTEM.KSDWRT(SYS.DBMS_SYSTEM.TRACE_FILE,
'EXCEPTION[sdordfctx_rm.sql(' || $$PLSQL_LINE || ')5]: ' || SQLERRM); -- RAISE;
end;
begin
stmt := 'drop type calais_extractor force'; execute immediate stmt;
exception
when others then
SYS.DBMS_SYSTEM.KSDWRT(SYS.DBMS_SYSTEM.TRACE_FILE,
'EXCEPTION[sdordfctx_rm.sql(' || $$PLSQL_LINE || ')6]: ' || SQLERRM); -- RAISE;
end;
begin
stmt := 'drop type rdfctx_ws_extractor force'; execute immediate stmt;
exception
when others then
SYS.DBMS_SYSTEM.KSDWRT(SYS.DBMS_SYSTEM.TRACE_FILE,
'EXCEPTION[sdordfctx_rm.sql(' || $$PLSQL_LINE || ')7]: ' || SQLERRM); -- RAISE;
end;
begin
stmt := 'drop type gatenlp_extractor force'; execute immediate stmt;
exception
when others then
SYS.DBMS_SYSTEM.KSDWRT(SYS.DBMS_SYSTEM.TRACE_FILE,
'EXCEPTION[sdordfctx_rm.sql(' || $$PLSQL_LINE || ')8]: ' || SQLERRM); -- RAISE;
end;
begin
stmt := 'drop type ctx_entity_extractor force'; execute immediate stmt;
exception
when others then
SYS.DBMS_SYSTEM.KSDWRT(SYS.DBMS_SYSTEM.TRACE_FILE,
'EXCEPTION[sdordfctx_rm.sql(' || $$PLSQL_LINE || ')9]: ' || SQLERRM); -- RAISE;
end;
begin
stmt := 'drop type rdfctx_extractor force'; execute immediate stmt;
exception
when others then
SYS.DBMS_SYSTEM.KSDWRT(SYS.DBMS_SYSTEM.TRACE_FILE,
'EXCEPTION[sdordfctx_rm.sql(' || $$PLSQL_LINE || ')10]: ' || SQLERRM); -- RAISE;
end;
begin
stmt := 'drop indextype mdsys.SemContext'; execute immediate stmt;
exception
when others then
SYS.DBMS_SYSTEM.KSDWRT(SYS.DBMS_SYSTEM.TRACE_FILE,
'EXCEPTION[sdordfctx_rm.sql(' || $$PLSQL_LINE || ')11]: ' || SQLERRM); -- RAISE;
end;
begin
stmt := 'drop public synonym SEM_CONTAINS_SELECT'; execute immediate stmt;
exception
when others then
SYS.DBMS_SYSTEM.KSDWRT(SYS.DBMS_SYSTEM.TRACE_FILE,
'EXCEPTION[sdordfctx_rm.sql(' || $$PLSQL_LINE || ')12]: ' || SQLERRM); -- RAISE;
end;
begin
stmt := 'drop operator mdsys.SEM_CONTAINS_SELECT'; execute immediate stmt;
exception
when others then
SYS.DBMS_SYSTEM.KSDWRT(SYS.DBMS_SYSTEM.TRACE_FILE,
'EXCEPTION[sdordfctx_rm.sql(' || $$PLSQL_LINE || ')13]: ' || SQLERRM); -- RAISE;
end;
begin
stmt := 'drop public synonym SEM_CONTAINS_COUNT'; execute immediate stmt;
exception
when others then
SYS.DBMS_SYSTEM.KSDWRT(SYS.DBMS_SYSTEM.TRACE_FILE,
'EXCEPTION[sdordfctx_rm.sql(' || $$PLSQL_LINE || ')14]: ' || SQLERRM); -- RAISE;
end;
begin
stmt := 'drop operator mdsys.SEM_CONTAINS_COUNT'; execute immediate stmt;
exception
when others then
SYS.DBMS_SYSTEM.KSDWRT(SYS.DBMS_SYSTEM.TRACE_FILE,
'EXCEPTION[sdordfctx_rm.sql(' || $$PLSQL_LINE || ')15]: ' || SQLERRM); -- RAISE;
end;
begin
stmt := 'drop public synonym SEM_CONTAINS'; execute immediate stmt;
exception
when others then
SYS.DBMS_SYSTEM.KSDWRT(SYS.DBMS_SYSTEM.TRACE_FILE,
'EXCEPTION[sdordfctx_rm.sql(' || $$PLSQL_LINE || ')16]: ' || SQLERRM); -- RAISE;
end;
begin
stmt := 'drop operator mdsys.SEM_CONTAINS'; execute immediate stmt;
exception
when others then
SYS.DBMS_SYSTEM.KSDWRT(SYS.DBMS_SYSTEM.TRACE_FILE,
'EXCEPTION[sdordfctx_rm.sql(' || $$PLSQL_LINE || ')17]: ' || SQLERRM); -- RAISE;
end;
begin
stmt := 'drop type mdsys.SemContextIndexMethods'; execute immediate stmt;
exception
when others then
SYS.DBMS_SYSTEM.KSDWRT(SYS.DBMS_SYSTEM.TRACE_FILE,
'EXCEPTION[sdordfctx_rm.sql(' || $$PLSQL_LINE || ')18]: ' || SQLERRM); -- RAISE;
end;
begin
stmt := 'drop package mdsys.sem_rdfctx_oper'; execute immediate stmt;
exception
when others then
SYS.DBMS_SYSTEM.KSDWRT(SYS.DBMS_SYSTEM.TRACE_FILE,
'EXCEPTION[sdordfctx_rm.sql(' || $$PLSQL_LINE || ')19]: ' || SQLERRM); -- RAISE;
end;
begin
stmt := 'drop type prllidx_create'; execute immediate stmt;
exception
when others then
SYS.DBMS_SYSTEM.KSDWRT(SYS.DBMS_SYSTEM.TRACE_FILE,
'EXCEPTION[sdordfctx_rm.sql(' || $$PLSQL_LINE || ')20]: ' || SQLERRM); -- RAISE;
end;
begin
stmt := 'drop type doublenumlist'; execute immediate stmt;
exception
when others then
SYS.DBMS_SYSTEM.KSDWRT(SYS.DBMS_SYSTEM.TRACE_FILE,
'EXCEPTION[sdordfctx_rm.sql(' || $$PLSQL_LINE || ')21]: ' || SQLERRM); -- RAISE;
end;
begin
stmt := 'drop type fn_extarr'; execute immediate stmt;
exception
when others then
SYS.DBMS_SYSTEM.KSDWRT(SYS.DBMS_SYSTEM.TRACE_FILE,
'EXCEPTION[sdordfctx_rm.sql(' || $$PLSQL_LINE || ')22]: ' || SQLERRM); -- RAISE;
end;
begin
stmt := 'drop type fn_xmlpref'; execute immediate stmt;
exception
when others then
SYS.DBMS_SYSTEM.KSDWRT(SYS.DBMS_SYSTEM.TRACE_FILE,
'EXCEPTION[sdordfctx_rm.sql(' || $$PLSQL_LINE || ')23]: ' || SQLERRM); -- RAISE;
end;
begin
stmt := 'delete from rdf_parameter where namespace = ''RDFCTXOPT'''; execute immediate stmt;
exception
when others then
SYS.DBMS_SYSTEM.KSDWRT(SYS.DBMS_SYSTEM.TRACE_FILE,
'EXCEPTION[sdordfctx_rm.sql(' || $$PLSQL_LINE || ')24]: ' || SQLERRM); -- RAISE;
end;
begin
stmt := 'delete from rdf_parameter where namespace = ''COMPONENT'' and attribute = ''RDFCTX'''; execute immediate stmt;
exception
when others then
SYS.DBMS_SYSTEM.KSDWRT(SYS.DBMS_SYSTEM.TRACE_FILE,
'EXCEPTION[sdordfctx_rm.sql(' || $$PLSQL_LINE || ')25]: ' || SQLERRM); -- RAISE;
end;
begin
DBMS_NETWORK_ACL_ADMIN.drop_acl (
acl => 'mdsys_rdfctx.xml');
exception
when others then
SYS.DBMS_SYSTEM.KSDWRT(SYS.DBMS_SYSTEM.TRACE_FILE,
'EXCEPTION[sdordfctx_rm.sql(' || $$PLSQL_LINE || ')26]: ' || SQLERRM); -- RAISE;
end;
begin
stmt := 'drop role rdfctx_admin'; execute immediate stmt;
exception
when others then
SYS.DBMS_SYSTEM.KSDWRT(SYS.DBMS_SYSTEM.TRACE_FILE,
'EXCEPTION[sdordfctx_rm.sql(' || $$PLSQL_LINE || ')27]: ' || SQLERRM); -- RAISE;
end;
end;
/
commit;
Rem ********************************************************************
Rem #16473696: Indicate Oracle-Supplied object
@?/rdbms/admin/sqlsessend.sql
Rem ********************************************************************
OHA YOOOO