MINI MINI MANI MO

Rem loce122.sql
Rem
Rem Copyright (c) 2016, 2017, Oracle and/or its affiliates. 
Rem All rights reserved.
Rem
Rem    NAME
Rem      loce122.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/loce122.sql
Rem    SQL_SHIPPED_FILE: md/admin/loce122.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    yhu         10/26/17 - add downgrade for sdo_join
Rem    sravada     10/12/17 - downgrade sdoaggrconcavehull
Rem    rjanders    10/08/17 - Add MDSYS to spatial type
Rem    sravada     08/25/17 - drop sdo_net_mem 
Rem    sravada     05/30/17 - drop type Extruded geometry
Rem    rjanders    05/10/17 - #26037683: Raise 'when other' exceptions
Rem    rjanders    04/27/17 - Correct "SQL_PHASE" metadata values
Rem    rjanders    04/25/17 - Remove 'set echo on' directive
Rem    rjanders    03/23/17 - #25437999: Remove 'when others then NULL'
Rem                           handlers
Rem    sravada     03/09/17 - update sdoeoper calls
Rem    sravada     02/10/17 - drop java classes on downgrade
Rem    sravada     01/20/17 - drop SDO_DIST_METADATA_TABLE syn
Rem    sravada     01/12/17 - add 12.2.0.1 downgrade actions
Rem    sravada     12/19/16 - Created
Rem

@@?/rdbms/admin/sqlsessstart.sql

alter session set current_schema=MDSYS;

declare
  table_not_found exception;
  pragma exception_init(table_not_found, -00942);
  synonym_not_found exception;
  pragma exception_init(synonym_not_found, -01432);
  object_not_found exception;
  pragma exception_init(object_not_found, -04043);
begin
  -- new Aggr ConcaveHull
   begin
   execute immediate
   'DROP TYPE MDSYS.AggrConcavehull ';
    exception
      when object_not_found then NULL;
      when others then
      SYS.DBMS_SYSTEM.KSDWRT(SYS.DBMS_SYSTEM.TRACE_FILE,
                             'EXCEPTION[loce122.sql(' || $$PLSQL_LINE || ')1]: ' || SQLERRM); RAISE;
   end;

   begin
   execute immediate
   'DROP FUNCTION MDSYS.SDO_AGGR_Concavehull ';
    exception
      when object_not_found then NULL;
      when others then
      SYS.DBMS_SYSTEM.KSDWRT(SYS.DBMS_SYSTEM.TRACE_FILE,
                             'EXCEPTION[loce122.sql(' || $$PLSQL_LINE || ')1]: ' || SQLERRM); RAISE;
   end;

   begin
   execute immediate
   'DROP PUBLIC SYNONYM SDO_AGGR_Concavehull ';
    exception
      when synonym_not_found then NULL;
      when others then
      SYS.DBMS_SYSTEM.KSDWRT(SYS.DBMS_SYSTEM.TRACE_FILE,
                             'EXCEPTION[loce122.sql(' || $$PLSQL_LINE || ')1]: ' || SQLERRM); RAISE;
   end;


  
   -- New distributed transaction index metadata table
   begin
   execute immediate
   'DROP TABLE MDSYS.SDO_DIST_METADATA_TABLE ';
    exception
      when table_not_found then NULL;
      when others then
      SYS.DBMS_SYSTEM.KSDWRT(SYS.DBMS_SYSTEM.TRACE_FILE,
                             'EXCEPTION[loce122.sql(' || $$PLSQL_LINE || ')1]: ' || SQLERRM); RAISE;
   end;

   -- Old common journal table ("Global Temporary Table")
   begin
   execute immediate
   'DROP TABLE MDSYS.SDO_TXN_JOURNAL ';
    exception
      when table_not_found then NULL;
      when others then
      SYS.DBMS_SYSTEM.KSDWRT(SYS.DBMS_SYSTEM.TRACE_FILE,
                             'EXCEPTION[loce122.sql(' || $$PLSQL_LINE || ')2]: ' || SQLERRM); RAISE;
   end;

   -- New common journal table ("Regular Database Table")
   begin
   execute immediate
   'DROP TABLE MDSYS.SDO_TXN_JOURNAL_REG ';
    exception
      when table_not_found then NULL;
      when others then
        SYS.DBMS_SYSTEM.KSDWRT(SYS.DBMS_SYSTEM.TRACE_FILE,
                               'EXCEPTION[loce122.sql(' || $$PLSQL_LINE || ')3]: ' || SQLERRM); RAISE;
   end;

   -- New common journal table ("Global Temporary Table")
   begin
   execute immediate
   'DROP TABLE MDSYS.SDO_TXN_JOURNAL_GTT ';
    exception
      when table_not_found then NULL;
      when others then
        SYS.DBMS_SYSTEM.KSDWRT(SYS.DBMS_SYSTEM.TRACE_FILE,
                               'EXCEPTION[loce122.sql(' || $$PLSQL_LINE || ')4]: ' || SQLERRM); RAISE;
   end;

   -- Old INSERTS journal table
   begin
   execute immediate
   'DROP TABLE MDSYS.SDO_TXN_IDX_INSERTS ';
    exception
      when table_not_found then NULL;
      when others then
        SYS.DBMS_SYSTEM.KSDWRT(SYS.DBMS_SYSTEM.TRACE_FILE,
                               'EXCEPTION[loce122.sql(' || $$PLSQL_LINE || ')5]: ' || SQLERRM); RAISE;
   end;

   begin
   execute immediate
   'DROP public synonym SDO_TXN_IDX_INSERTS ';
    exception
      when synonym_not_found then NULL;
      when others then
      SYS.DBMS_SYSTEM.KSDWRT(SYS.DBMS_SYSTEM.TRACE_FILE,
                             'EXCEPTION[loce122.sql(' || $$PLSQL_LINE || ')6]: ' || SQLERRM); RAISE;
   end;

   begin
   execute immediate
   'DROP public synonym SDO_NET_MEM ';
    exception
      when synonym_not_found then NULL;
      when others then
      SYS.DBMS_SYSTEM.KSDWRT(SYS.DBMS_SYSTEM.TRACE_FILE,
                             'EXCEPTION[loce122.sql(' || $$PLSQL_LINE || ')6]: ' || SQLERRM); RAISE;
   end;


   begin
   execute immediate
   'DROP package MDSYS.SDO_NET_MEM ';
    exception
      when object_not_found then NULL;
      when others then
      SYS.DBMS_SYSTEM.KSDWRT(SYS.DBMS_SYSTEM.TRACE_FILE,
                             'EXCEPTION[loce122.sql(' || $$PLSQL_LINE || ')6]: ' || SQLERRM); RAISE;
   end;


   -- Old DELETES journal table
   begin
   execute immediate
   ' DROP TABLE MDSYS.SDO_TXN_IDX_DELETES ';
    exception
      when table_not_found then NULL;
      when others then
      SYS.DBMS_SYSTEM.KSDWRT(SYS.DBMS_SYSTEM.TRACE_FILE,
                             'EXCEPTION[loce122.sql(' || $$PLSQL_LINE || ')7]: ' || SQLERRM); RAISE;
   end;

   begin
   execute immediate
   ' DROP public synonym SDO_TXN_IDX_DELETES ';
    exception
      when synonym_not_found then NULL;
      when others then
      SYS.DBMS_SYSTEM.KSDWRT(SYS.DBMS_SYSTEM.TRACE_FILE,
                             'EXCEPTION[loce122.sql(' || $$PLSQL_LINE || ')8]: ' || SQLERRM); RAISE;
   end;

   begin
   execute immediate
   ' DROP TABLE MDSYS.SDO_TXN_IDX_EXP_UPD_RGN ';
    exception
      when table_not_found then NULL;
      when others then
    SYS.DBMS_SYSTEM.KSDWRT(SYS.DBMS_SYSTEM.TRACE_FILE,
                           'EXCEPTION[loce122.sql(' || $$PLSQL_LINE || ')9]: ' || SQLERRM); RAISE;
   end;

   begin
   execute immediate
   ' DROP public synonym SDO_TXN_IDX_EXP_UPD_RGN ';
    exception
      when synonym_not_found then NULL;
      when others then
    SYS.DBMS_SYSTEM.KSDWRT(SYS.DBMS_SYSTEM.TRACE_FILE,
                           'EXCEPTION[loce122.sql(' || $$PLSQL_LINE || ')10]: ' || SQLERRM); RAISE;
   end;

  BEGIN
  EXECUTE IMMEDIATE 'DROP public synonym SDO_TXN_JOURNAL_REG';
  EXCEPTION
    when synonym_not_found then NULL;
    when others then
    SYS.DBMS_SYSTEM.KSDWRT(SYS.DBMS_SYSTEM.TRACE_FILE,
                           'EXCEPTION[loce122.sql(' || $$PLSQL_LINE || ')11]: ' || SQLERRM); RAISE;
  END;

  BEGIN
  EXECUTE IMMEDIATE 'DROP public synonym SDO_DIST_METADATA_TABLE';
  EXCEPTION
    when synonym_not_found then NULL;
    when others then
    SYS.DBMS_SYSTEM.KSDWRT(SYS.DBMS_SYSTEM.TRACE_FILE,
                           'EXCEPTION[loce122.sql(' || $$PLSQL_LINE || ')12]: ' || SQLERRM); RAISE;
  END;


  BEGIN
  EXECUTE IMMEDIATE 'DROP public synonym SDO_TXN_JOURNAL_GTT';
  EXCEPTION
    when synonym_not_found then NULL;
    when others then
    SYS.DBMS_SYSTEM.KSDWRT(SYS.DBMS_SYSTEM.TRACE_FILE,
                           'EXCEPTION[loce122.sql(' || $$PLSQL_LINE || ')13]: ' || SQLERRM); RAISE;
  END;

  BEGIN
  EXECUTE IMMEDIATE 'DROP public synonym SDO_TXN_JOURNAL';
  EXCEPTION
    when synonym_not_found then NULL;
    when others then
    SYS.DBMS_SYSTEM.KSDWRT(SYS.DBMS_SYSTEM.TRACE_FILE,
                           'EXCEPTION[loce122.sql(' || $$PLSQL_LINE || ')14]: ' || SQLERRM); RAISE;
  END;

  BEGIN
    EXECUTE IMMEDIATE 'drop package MDSYS.SDO_VERS';
    EXCEPTION
      when object_not_found then NULL;
      when others then
    SYS.DBMS_SYSTEM.KSDWRT(SYS.DBMS_SYSTEM.TRACE_FILE,
                           'EXCEPTION[loce122.sql(' || $$PLSQL_LINE || ')15]: ' || SQLERRM); RAISE;
  END;


end;
/

declare
  EXTRUDED_GEOM_ARRAY exception;
  pragma exception_init(EXTRUDED_GEOM_ARRAY, -04043);
begin
  execute immediate 'drop type extruded_geom_array';
    exception
    when EXTRUDED_GEOM_ARRAY then
      null;
    when others then
      SYS.DBMS_SYSTEM.KSDWRT(SYS.DBMS_SYSTEM.TRACE_FILE,
                            'EXCEPTION[sdoutlh.sql(' || $$PLSQL_LINE || ')5.1]: ' || SQLERRM);
end;
/

declare
  EXTRUDED_GEOM exception;
  pragma exception_init(EXTRUDED_GEOM, -04043);
begin
  execute immediate 'drop type extruded_geom';
    exception
    when EXTRUDED_GEOM then
      null;
    when others then
      SYS.DBMS_SYSTEM.KSDWRT(SYS.DBMS_SYSTEM.TRACE_FILE,
                            'EXCEPTION[sdoutlh.sql(' || $$PLSQL_LINE || ')5.1]: ' || SQLERRM);
end;
/

declare
  ALTER_TYPE exception;
  pragma exception_init(ALTER_TYPE, -22324);
begin
  execute immediate 'alter type MDSYS.RtreeJoin_Imp_t drop 
  STATIC FUNCTION ODCITableStart(sctx OUT RtreeJoin_Imp_t,
                                 cur SYS_REFCURSOR, 
                                 ia1 IN SYS.ODCIIndexInfo, 
                                 ia2 IN SYS.ODCIIndexInfo,
                                 oper IN number, 
                                 masktype IN varchar2,
                                 dst_spec IN varchar2 default null,
                                 self_join IN number default null,
                                 ref_predicate in varchar2 default null,
                                 tab2_predicate in varchar2 default null) 
    RETURN NUMBER';
    exception
    when ALTER_TYPE then
      null;
    when others then
      SYS.DBMS_SYSTEM.KSDWRT(SYS.DBMS_SYSTEM.TRACE_FILE,
                            'EXCEPTION[sdoutlh.sql(' || $$PLSQL_LINE || ')5.1]: ' || SQLERRM);
end;
/

declare
  ALTER_TYPE exception;
  pragma exception_init(ALTER_TYPE, -22324);
begin
  execute immediate 'alter type MDSYS.RtreeJoin_Imp_t drop
  STATIC FUNCTION StartStub(sctx OUT RtreeJoin_Imp_t,
                            cur SYS_REFCURSOR, 
                            ia1 IN SYS.ODCIIndexInfo, 
                            ia2 IN SYS.ODCIIndexInfo,
                            oper IN number, 
                            masktype IN varchar2,
                            dst_spec IN varchar2 ,
                            self_join IN number,
                            ref_predicate in varchar2 ,
                            tab2_predicate in varchar2 ) 
    RETURN NUMBER';
    exception
    when ALTER_TYPE then
      null;
    when others then
      SYS.DBMS_SYSTEM.KSDWRT(SYS.DBMS_SYSTEM.TRACE_FILE,
                            'EXCEPTION[sdoutlh.sql(' || $$PLSQL_LINE || ')5.1]: ' || SQLERRM);
end;
/

declare
  ALTER_TYPE exception;
  pragma exception_init(ALTER_TYPE, -22324);
begin
  execute immediate 'alter type MDSYS.RtreeJoin_Imp_t add
  STATIC FUNCTION ODCITableStart(sctx OUT RtreeJoin_Imp_t,
                                 cur SYS_REFCURSOR, 
                                 ia1 IN SYS.ODCIIndexInfo, 
                                 ia2 IN SYS.ODCIIndexInfo,
                                 oper IN number, 
                                 masktype IN varchar2,
                                 dst_spec IN varchar2 default null,
                                 ref_predicate in varchar2 default null,
                                 tab2_predicate in varchar2 default null) 
    RETURN NUMBER';
    exception
    when ALTER_TYPE then
      null;
    when others then
      SYS.DBMS_SYSTEM.KSDWRT(SYS.DBMS_SYSTEM.TRACE_FILE,
                            'EXCEPTION[sdoutlh.sql(' || $$PLSQL_LINE || ')5.1]: ' || SQLERRM);
end;
/

declare
  ALTER_TYPE exception;
  pragma exception_init(ALTER_TYPE, -22324);
begin
  execute immediate 'alter type MDSYS.RtreeJoin_Imp_t add
  STATIC FUNCTION StartStub(sctx OUT RtreeJoin_Imp_t,
                            cur SYS_REFCURSOR, 
                            ia1 IN SYS.ODCIIndexInfo, 
                            ia2 IN SYS.ODCIIndexInfo,
                            oper IN number, 
                            masktype IN varchar2,
                            dst_spec IN varchar2 ,
                            ref_predicate in varchar2 ,
                            tab2_predicate in varchar2 ) 
    RETURN NUMBER';
    exception
    when ALTER_TYPE then
      null;
    when others then
      SYS.DBMS_SYSTEM.KSDWRT(SYS.DBMS_SYSTEM.TRACE_FILE,
                            'EXCEPTION[sdoutlh.sql(' || $$PLSQL_LINE || ')5.1]: ' || SQLERRM);
end;
/

ALTER SESSION SET CURRENT_SCHEMA = SYS;


alter session set current_schema=SYS;
COLUMN java_fname NEW_VALUE java_file NOPRINT;
SELECT dbms_registry.script('JAVAVM','@sdounloadj.sql') AS java_fname FROM SYS.DUAL;
@&java_file

@@sdoeoper.sql


ALTER SESSION SET CURRENT_SCHEMA = MDSYS;

@?/rdbms/admin/sqlsessend.sql