MINI MINI MANI MO

Rem
Rem $Header: sdo/admin/sdomsttp.sql /main/5 2017/05/26 16:34:18 rjanders Exp $
Rem
Rem sdomsttp.sql
Rem
Rem Copyright (c) 2008, 2017, Oracle and/or its affiliates. 
Rem All rights reserved.
Rem
Rem    NAME
Rem      sdomsttp.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    MODIFIED   (MM/DD/YY)
Rem    rjanders    05/10/17 - #26037683: Raise 'when other' exceptions
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    rjanders    03/15/13 - #16473696: Start/End _ORACLE_SCRIPT
Rem                           initialization
Rem    sravada     05/07/08 - Created
Rem


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

declare
begin
   begin
     execute immediate ' drop type ST_GEOMETRY force ';
           exception when others then
    SYS.DBMS_SYSTEM.KSDWRT(SYS.DBMS_SYSTEM.TRACE_FILE,
                           'EXCEPTION[sdomsttp.sql(' || $$PLSQL_LINE || ')1]: ' || SQLERRM); RAISE;
   end;
   begin
     execute immediate ' drop type ST_POINT force ';
           exception when others then
    SYS.DBMS_SYSTEM.KSDWRT(SYS.DBMS_SYSTEM.TRACE_FILE,
                           'EXCEPTION[sdomsttp.sql(' || $$PLSQL_LINE || ')2]: ' || SQLERRM); RAISE;
   end;
   begin
     execute immediate ' drop type ST_POINT_ARRAY force ';
           exception when others then
    SYS.DBMS_SYSTEM.KSDWRT(SYS.DBMS_SYSTEM.TRACE_FILE,
                           'EXCEPTION[sdomsttp.sql(' || $$PLSQL_LINE || ')3]: ' || SQLERRM); RAISE;
   end;
   begin
     execute immediate ' drop type ST_CURVE force ';
           exception when others then
    SYS.DBMS_SYSTEM.KSDWRT(SYS.DBMS_SYSTEM.TRACE_FILE,
                           'EXCEPTION[sdomsttp.sql(' || $$PLSQL_LINE || ')4]: ' || SQLERRM); RAISE;
   end;
   begin
     execute immediate ' drop type ST_CURVE_ARRAY force ';
           exception when others then
    SYS.DBMS_SYSTEM.KSDWRT(SYS.DBMS_SYSTEM.TRACE_FILE,
                           'EXCEPTION[sdomsttp.sql(' || $$PLSQL_LINE || ')5]: ' || SQLERRM); RAISE;
   end;
   begin
     execute immediate ' drop type ST_SURFACE force ';
           exception when others then
    SYS.DBMS_SYSTEM.KSDWRT(SYS.DBMS_SYSTEM.TRACE_FILE,
                           'EXCEPTION[sdomsttp.sql(' || $$PLSQL_LINE || ')6]: ' || SQLERRM); RAISE;
   end;
   begin
     execute immediate ' drop type ST_SURFACE_ARRAY force ';
           exception when others then
    SYS.DBMS_SYSTEM.KSDWRT(SYS.DBMS_SYSTEM.TRACE_FILE,
                           'EXCEPTION[sdomsttp.sql(' || $$PLSQL_LINE || ')7]: ' || SQLERRM); RAISE;
   end;
   begin
     execute immediate ' drop type ST_CURVEPOLYGON force ';
           exception when others then
    SYS.DBMS_SYSTEM.KSDWRT(SYS.DBMS_SYSTEM.TRACE_FILE,
                           'EXCEPTION[sdomsttp.sql(' || $$PLSQL_LINE || ')8]: ' || SQLERRM); RAISE;
   end;
   begin
     execute immediate ' drop type ST_LINESTRING force ';
           exception when others then
    SYS.DBMS_SYSTEM.KSDWRT(SYS.DBMS_SYSTEM.TRACE_FILE,
                           'EXCEPTION[sdomsttp.sql(' || $$PLSQL_LINE || ')9]: ' || SQLERRM); RAISE;
   end;
   begin
     execute immediate ' drop type ST_LINESTRING_ARRAY force ';
           exception when others then
    SYS.DBMS_SYSTEM.KSDWRT(SYS.DBMS_SYSTEM.TRACE_FILE,
                           'EXCEPTION[sdomsttp.sql(' || $$PLSQL_LINE || ')10]: ' || SQLERRM); RAISE;
   end;
   begin
     execute immediate ' drop type ST_POLYGON force ';
           exception when others then
    SYS.DBMS_SYSTEM.KSDWRT(SYS.DBMS_SYSTEM.TRACE_FILE,
                           'EXCEPTION[sdomsttp.sql(' || $$PLSQL_LINE || ')11]: ' || SQLERRM); RAISE;
   end;
   begin
     execute immediate ' drop type ST_POLYGON_ARRAY force ';
           exception when others then
    SYS.DBMS_SYSTEM.KSDWRT(SYS.DBMS_SYSTEM.TRACE_FILE,
                           'EXCEPTION[sdomsttp.sql(' || $$PLSQL_LINE || ')12]: ' || SQLERRM); RAISE;
   end;
   begin
     execute immediate ' drop type ST_GEOMCOLLECTION force ';
           exception when others then
    SYS.DBMS_SYSTEM.KSDWRT(SYS.DBMS_SYSTEM.TRACE_FILE,
                           'EXCEPTION[sdomsttp.sql(' || $$PLSQL_LINE || ')13]: ' || SQLERRM); RAISE;
   end;
   begin
     execute immediate ' drop type ST_MULTIPOINT force ';
           exception when others then
    SYS.DBMS_SYSTEM.KSDWRT(SYS.DBMS_SYSTEM.TRACE_FILE,
                           'EXCEPTION[sdomsttp.sql(' || $$PLSQL_LINE || ')14]: ' || SQLERRM); RAISE;
   end;
   begin
     execute immediate ' drop type ST_MULTICURVE force ';
           exception when others then
    SYS.DBMS_SYSTEM.KSDWRT(SYS.DBMS_SYSTEM.TRACE_FILE,
                           'EXCEPTION[sdomsttp.sql(' || $$PLSQL_LINE || ')15]: ' || SQLERRM); RAISE;
   end;
   begin
     execute immediate ' drop type ST_MULTISURFACE force ';
           exception when others then
    SYS.DBMS_SYSTEM.KSDWRT(SYS.DBMS_SYSTEM.TRACE_FILE,
                           'EXCEPTION[sdomsttp.sql(' || $$PLSQL_LINE || ')16]: ' || SQLERRM); RAISE;
   end;
   begin
     execute immediate ' drop type ST_MULTILINESTRING force ';
           exception when others then
    SYS.DBMS_SYSTEM.KSDWRT(SYS.DBMS_SYSTEM.TRACE_FILE,
                           'EXCEPTION[sdomsttp.sql(' || $$PLSQL_LINE || ')17]: ' || SQLERRM); RAISE;
   end;
   begin
     execute immediate ' drop type ST_MULTIPOLYGON force ';
           exception when others then
    SYS.DBMS_SYSTEM.KSDWRT(SYS.DBMS_SYSTEM.TRACE_FILE,
                           'EXCEPTION[sdomsttp.sql(' || $$PLSQL_LINE || ')18]: ' || SQLERRM); RAISE;
   end;
   begin
     execute immediate ' drop type ST_CIRCULARSTRING force ';
           exception when others then
    SYS.DBMS_SYSTEM.KSDWRT(SYS.DBMS_SYSTEM.TRACE_FILE,
                           'EXCEPTION[sdomsttp.sql(' || $$PLSQL_LINE || ')19]: ' || SQLERRM); RAISE;
   end;
   begin
     execute immediate ' drop type ST_COMPOUNDCURVE force ';
           exception when others then
    SYS.DBMS_SYSTEM.KSDWRT(SYS.DBMS_SYSTEM.TRACE_FILE,
                           'EXCEPTION[sdomsttp.sql(' || $$PLSQL_LINE || ')20]: ' || SQLERRM); RAISE;
   end;
   begin
     execute immediate ' drop type ST_GEOMETRY_ARRAY force ';
           exception when others then
    SYS.DBMS_SYSTEM.KSDWRT(SYS.DBMS_SYSTEM.TRACE_FILE,
                           'EXCEPTION[sdomsttp.sql(' || $$PLSQL_LINE || ')21]: ' || SQLERRM); RAISE;
   end;
end;
/



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