MINI MINI MANI MO

@@?/rdbms/admin/sqlsessstart.sql
declare
  view_not_found exception;
  pragma exception_init(view_not_found, -00942);
  synonym_not_found exception;
  pragma exception_init(synonym_not_found, -01432);
  trigger_not_found exception;
  pragma exception_init(trigger_not_found, -04080);
  already_exists exception;
  pragma exception_init(already_exists, -00955);
begin
  begin
    execute immediate
      ' drop view OGIS_SPATIAL_REFERENCE_SYSTEMS ';
    exception
      when view_not_found then NULL;
      when others then
        SYS.DBMS_SYSTEM.KSDWRT(SYS.DBMS_SYSTEM.TRACE_FILE,
                               'EXCEPTION[sdocat.sql(' || $$PLSQL_LINE || ')1]: ' || SQLERRM); RAISE;
   end;
  begin
    execute immediate
      ' drop PUBLIC synonym OGIS_SPATIAL_REFERENCE_SYSTEMS  ';
    exception
      when synonym_not_found then NULL;
      when others then
        SYS.DBMS_SYSTEM.KSDWRT(SYS.DBMS_SYSTEM.TRACE_FILE,
                               'EXCEPTION[sdocat.sql(' || $$PLSQL_LINE || ')2]: ' || SQLERRM); RAISE;
   end;
  begin
    execute immediate
      ' drop trigger OGC_INS_TRIG ';
    exception
      when trigger_not_found then NULL;
      when others then
        SYS.DBMS_SYSTEM.KSDWRT(SYS.DBMS_SYSTEM.TRACE_FILE,
                               'EXCEPTION[sdocat.sql(' || $$PLSQL_LINE || ')3]: ' || SQLERRM); RAISE;
   end;

  begin
   execute immediate 
'create table OGIS_SPATIAL_REFERENCE_SYSTEMS (
   SRID        NUMBER CONSTRAINT pk_srid PRIMARY KEY,
   AUTH_NAME   VARCHAR2(100), -- Should be 128???
   AUTH_SRID   NUMBER,
   SRTEXT      VARCHAR2(1000),
   SRNUM       NUMBER) ';
  exception
    when already_exists then NULL;
    when others then
      SYS.DBMS_SYSTEM.KSDWRT(SYS.DBMS_SYSTEM.TRACE_FILE,
                             'EXCEPTION[sdocat.sql(' || $$PLSQL_LINE || ')4]: ' || SQLERRM); RAISE;
 end;
end;
/
SHOW ERRORS
begin
  execute immediate
 ' alter table OGIS_SPATIAL_REFERENCE_SYSTEMS
   modify ( AUTH_NAME   VARCHAR2(128) ) ';
  exception
    when others then
      SYS.DBMS_SYSTEM.KSDWRT(SYS.DBMS_SYSTEM.TRACE_FILE,
        'alter table OGIS_SPATIAL_REFERENCE_SYSTEMS ERROR=' || SQLERRM);
end;
/
SHOW ERRORS
grant select, insert, delete on OGIS_SPATIAL_REFERENCE_SYSTEMS to public;
declare
  already_exists exception;
  pragma exception_init(already_exists, -00955);
begin
  begin
   execute immediate 
'create table OGIS_GEOMETRY_COLUMNS (
   F_TABLE_SCHEMA       VARCHAR2(64),
   F_TABLE_NAME         VARCHAR2(64),
   F_GEOMETRY_COLUMN    VARCHAR2(64),
   G_TABLE_SCHEMA       VARCHAR2(64),
   G_TABLE_NAME         VARCHAR2(64),
   STORAGE_TYPE         NUMBER,
   GEOMETRY_TYPE        NUMBER,
   COORD_DIMENSION      NUMBER,
   MAX_PPR              NUMBER,
   SRID                 CONSTRAINT fk_srid
                        REFERENCES OGIS_SPATIAL_REFERENCE_SYSTEMS(SRID))' ;
  exception
    when already_exists then NULL;
    when others then
      SYS.DBMS_SYSTEM.KSDWRT(SYS.DBMS_SYSTEM.TRACE_FILE,
                             'EXCEPTION[sdocat.sql(' || $$PLSQL_LINE || ')5]: ' || SQLERRM); RAISE;
 end;
end;
/
SHOW ERRORS
begin
  execute immediate
 ' alter table OGIS_GEOMETRY_COLUMNS
   modify ( F_TABLE_SCHEMA       VARCHAR2(260),
            F_TABLE_NAME         VARCHAR2(260),
            F_GEOMETRY_COLUMN    VARCHAR2(260),
            G_TABLE_SCHEMA       VARCHAR2(260),
            G_TABLE_NAME         VARCHAR2(260) ) ';
  exception
    when others then
      SYS.DBMS_SYSTEM.KSDWRT(SYS.DBMS_SYSTEM.TRACE_FILE,
                             'EXCEPTION[sdocat.sql(' || $$PLSQL_LINE || ')6]: ' || SQLERRM); RAISE;
end;
/
SHOW ERRORS
grant select,insert,delete on OGIS_GEOMETRY_COLUMNS to public;
create or replace public synonym OGIS_GEOMETRY_COLUMNS for
MDSYS.OGIS_GEOMETRY_COLUMNS;
commit;
create or replace view MDSYS.DBA_GEOMETRY_COLUMNS as 
select * from OGIS_GEOMETRY_COLUMNS;
grant select on MDSYS.DBA_GEOMETRY_COLUMNS to select_catalog_role;
create or replace  public synonym 
DBA_GEOMETRY_COLUMNS for mdsys.DBA_GEOMETRY_COLUMNS;
create or replace view ALL_GEOMETRY_COLUMNS as 
select * from OGIS_GEOMETRY_COLUMNS where
(exists (select table_name from SYS.all_tables
         where table_name=f_table_name and owner=f_table_schema)
 or
 exists (select view_name from sys.all_views
         where view_name=f_table_name and owner=f_table_schema)
 or
 exists (select table_name from all_object_tables
         where table_name=f_table_name and owner=f_table_schema)
)
and 
(exists (select table_name from SYS.all_tables
         where table_name=g_table_name and owner=g_table_schema)
 or
 exists (select view_name from sys.all_views
         where view_name=g_table_name and owner=g_table_schema)
 or
 exists (select table_name from sys.all_object_tables
         where table_name=g_table_name and owner=g_table_schema)
);
grant read on ALL_GEOMETRY_COLUMNS to public;
create or replace  public synonym ALL_GEOMETRY_COLUMNS for 
mdsys.ALL_GEOMETRY_COLUMNS;
create or replace view USER_GEOMETRY_COLUMNS as
select * from OGIS_GEOMETRY_COLUMNS
where f_table_schema=sys_context('userenv', 'CURRENT_USER')
  and g_table_schema=sys_context('userenv', 'CURRENT_USER');
grant read on USER_GEOMETRY_COLUMNS to public;
create or replace  public synonym USER_GEOMETRY_COLUMNS for 
mdsys.USER_GEOMETRY_COLUMNS;
grant read on OGIS_SPATIAL_REFERENCE_SYSTEMS to public;
create or replace  public synonym OGIS_SPATIAL_REFERENCE_SYSTEMS
for mdsys.OGIS_SPATIAL_REFERENCE_SYSTEMS;
commit;
create or replace package mdsys.sdo_catalog wrapped 
a000000
1
abcd
abcd
abcd
abcd
abcd
abcd
abcd
abcd
abcd
abcd
abcd
abcd
abcd
abcd
abcd
9
498 179
zlXuuIybd97FdTAdOiIdNB+2RFQwg5W3f642qC8CO/7qaSfgARI9dl9W8wRl3SlcXVH08PqU
krXvI7nNJ8I53s9DFA+LCIvzZxk3YAiS9VbQB8Rq2QiTZ9yMzObJydImXeNWystPnlnTXMmO
1LFCxdPTVCWcxGyvPOD0wKJbUZcwLR2n76XXgco8IVIcdkEbO25gwHUwDxQxis/vsNoQ/NxP
f/OxqQyDB1hOMXn3qgXf7c1fDWnx41zM1GvQQM/vQ49rRt1toZmUvitdE/93PclUEUhZy57T
0avHRa/qGkwy3u1MxhtVAyYrCIAUsi+TXJ9wTk8jQwg/ROyGT4zqEVIAkrVz2Cw/s9XzlC45
eB+7TjPNeQ==

/
show errors;
commit;
@?/rdbms/admin/sqlsessend.sql