MINI MINI MANI MO

Rem
Rem $Header: sdo/admin/deinssdo_only.sql /main/7 2017/07/05 11:00:13 rjanders Exp $
Rem
Rem deinssdo_only.sql
Rem
Rem Copyright (c) 2009, 2017, Oracle and/or its affiliates. 
Rem All rights reserved.
Rem
Rem    NAME
Rem      deinssdo_only.sql - Drop only package bodies and non type related
Rem                          SDO objects to leave Locator in valid state
Rem
Rem    DESCRIPTION
Rem     This only drops the non Locator related packages to leave
Rem      Locator in a valid state 
Rem
Rem    NOTES
Rem      Do not invoke directly
Rem
Rem    BEGIN SQL_FILE_METADATA
Rem    SQL_SOURCE_FILE: sdo/admin/deinssdo_only.sql
Rem    SQL_SHIPPED_FILE: md/admin/deinssdo_only.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    06/30/17 - Add SYS/MDSYS prefixes
Rem    rjanders    04/27/17 - Correct "SQL_PHASE" metadata values
Rem    sravada     01/11/17 - bug 25370681
Rem    rjanders    01/02/15 - long identifier project phase 1
Rem    bkazar      12/09/14 - Regarding SDO_CSW package
Rem    rjanders    03/16/13 - #16473696: Start/End _ORACLE_SCRIPT
Rem                           initialization
Rem    sravada     03/11/09 - Created
Rem

Rem ********************************************************************
Rem #16473696: Indicate Oracle-Supplied object
@@?/rdbms/admin/sqlsessstart.sql
Rem ********************************************************************


declare
stmt varchar2(1000);
obj_name varchar2(260);
type                    cursor_type is REF CURSOR;
query_crs               cursor_type ;
begin
                                                                                
  stmt := ' select SNAME from sys.synonyms ' ||
          ' where creator=''MDSYS'' and SYNTYPE=''PUBLIC'' '||
          ' and TABTYPE<> ''JAVA CLASS'' ';
                                                                            
      OPEN query_crs FOR stmt;
  LOOP
    fetch query_crs into  obj_name;
    EXIT when query_crs%NOTFOUND ;
                                                                                
    begin
       EXECUTE immediate ' drop public synonym '||obj_name;
     EXCEPTION
     WHEN OTHERS THEN
      obj_name := ' ';
    end;
   END LOOP;
  close query_crs;
end;
/
                                                                                
commit;

 -- TRIGGER
declare
stmt varchar2(1000);
obj_name varchar2(260);
type                    cursor_type is REF CURSOR;
query_crs               cursor_type ;
begin
   stmt :=  ' select object_name from sys.all_objects where  ' ||
            ' object_type = ''TRIGGER'' and owner = ''MDSYS'' ';

      OPEN query_crs FOR stmt;
  LOOP
    fetch query_crs into  obj_name;
    EXIT when query_crs%NOTFOUND ;

    begin
       EXECUTE immediate ' drop TRIGGER mdsys.'||obj_name;
     EXCEPTION
     WHEN OTHERS THEN
      obj_name := ' ';
    end;
   END LOOP;
  close query_crs;
commit;

-- JAVA CLASS
   stmt :=  ' select object_name from sys.all_objects where  ' ||
            ' object_type = ''JAVA CLASS'' and owner = ''MDSYS'' ';

      OPEN query_crs FOR stmt;
  LOOP
    fetch query_crs into  obj_name;
    EXIT when query_crs%NOTFOUND ;

    begin
       EXECUTE immediate ' drop JAVA CLASS mdsys."'||obj_name||'" ';
       commit;
     EXCEPTION
     WHEN OTHERS THEN
      obj_name := ' ';
    end;
   END LOOP;
  close query_crs;
commit;



-- PACKAGE
   stmt :=  ' select object_name from sys.all_objects where  ' ||
            ' object_type = ''PACKAGE BODY'' and owner = ''MDSYS'' ';

      OPEN query_crs FOR stmt;
  LOOP
    fetch query_crs into  obj_name;
    EXIT when query_crs%NOTFOUND ;

    begin
       EXECUTE immediate ' drop PACKAGE BODY mdsys.'||obj_name;
     EXCEPTION
     WHEN OTHERS THEN
      obj_name := ' ';
    end;
   END LOOP;
  close query_crs;
commit;

-- PROCEDURE
   stmt :=  ' select object_name from sys.all_objects where  ' ||
            ' object_type = ''PROCEDURE'' and owner = ''MDSYS'' ';

      OPEN query_crs FOR stmt;
  LOOP
    fetch query_crs into  obj_name;
    EXIT when query_crs%NOTFOUND ;

    begin
       EXECUTE immediate ' drop PROCEDURE mdsys.'||obj_name;
     EXCEPTION
     WHEN OTHERS THEN
      obj_name := ' ';
    end;
   END LOOP;
  close query_crs;
commit;

-- SEQUENCE
   stmt :=  ' select object_name from sys.all_objects where  ' ||
            ' object_type = ''SEQUENCE'' and owner = ''MDSYS'' ';

      OPEN query_crs FOR stmt;
  LOOP
    fetch query_crs into  obj_name;
    EXIT when query_crs%NOTFOUND ;

    begin
       EXECUTE immediate ' drop SEQUENCE mdsys.'||obj_name;
     EXCEPTION
     WHEN OTHERS THEN
      obj_name := ' ';
    end;
   END LOOP;
  close query_crs;
commit;

-- SYNONYMS
  stmt := ' select SNAME from sys.synonyms ' ||
          ' where creator=''MDSYS'' and SYNTYPE=''PUBLIC'' ';

   OPEN query_crs FOR stmt;
  LOOP 
  BEGIN
    fetch query_crs into  obj_name;
    EXIT when query_crs%NOTFOUND ;

    begin
      EXECUTE immediate ' drop public synonym '||obj_name;
     EXCEPTION 
     WHEN OTHERS THEN 
      obj_name := ' ';
    end;

  end;
  END LOOP;
  close query_crs;


end;
/



drop type body MDSYS.SDO_TOPO_GEOMETRY;
drop package MDSYS.SDO_TOPO;
drop package MDSYS.SDO_TOPO_MAP;
drop package MDSYS.SDO_GEOR;
drop package MDSYS.SDO_GEOR_INT;
drop package MDSYS.SDO_GEOR_DEF;
drop package MDSYS.SDO_GEOR_AUX;
drop package MDSYS.SDO_GEORX;
drop package MDSYS.SDO_GEOR_ADMIN;
drop package MDSYS.SDO_GEOR_UTL;
drop package MDSYS.SDO_GCDR;
drop package MDSYS.SDO_NET;
drop package MDSYS.MD_NET;
drop type body MDSYS.SDO_NETWORK_MANAGER_I;
drop type body MDSYS.SDO_NODE_I;
drop type body MDSYS.SDO_LINK_I;
drop type body MDSYS.SDO_PATH_I;
drop type body MDSYS.SDO_NETWORK_I;
drop type body MDSYS.SAMCLUST_IMP_T;
drop package MDSYS.SDO_NET_MEM;
drop package MDSYS.SDO_SAM;
drop function MDSYS.SPCLUSTERS;
drop package MDSYS.PRVT_SAM;
drop package MDSYS.SDO_WFS_PROCESS;
drop package MDSYS.SDO_CSW_PROCESS;
drop package MDSYS.SDO_CSW;
drop package MDSYS.SDO_PC_PKG;
drop package MDSYS.PRVT_PC;
drop package MDSYS.SDO_TIN_PKG;
drop package MDSYS.PRVT_TIN;

Rem ********************************************************************
Rem #16473696: Indicate Oracle-Supplied object
@@?/rdbms/admin/sqlsessend.sql
Rem ********************************************************************