MINI MINI MANI MO
@@?/rdbms/admin/sqlsessstart.sql
declare
does_not_exist exception;
pragma exception_init(does_not_exist, -04043);
invalid_trigger exception;
pragma exception_init(invalid_trigger, -04098);
begin
begin
execute immediate
' drop type f81_nt_ind_type force ';
exception
when does_not_exist then NULL;
when others then
SYS.DBMS_SYSTEM.KSDWRT(SYS.DBMS_SYSTEM.TRACE_FILE,
'EXCEPTION[prvtsipt.sql(' || $$PLSQL_LINE || ')1]: ' || SQLERRM); RAISE;
end;
begin
execute immediate
' drop type f81_index_obj_array force ';
exception
when does_not_exist then NULL;
when invalid_trigger then NULL;
when others then
SYS.DBMS_SYSTEM.KSDWRT(SYS.DBMS_SYSTEM.TRACE_FILE,
'EXCEPTION[prvtsipt.sql(' || $$PLSQL_LINE || ')2]: ' || SQLERRM); RAISE;
end;
begin
execute immediate
' drop type f81_index_object force ';
exception
when does_not_exist then NULL;
when invalid_trigger then NULL;
when others then
SYS.DBMS_SYSTEM.KSDWRT(SYS.DBMS_SYSTEM.TRACE_FILE,
'EXCEPTION[prvtsipt.sql(' || $$PLSQL_LINE || ')3]: ' || SQLERRM); RAISE;
end;
begin
execute immediate
' drop type v81_nt_ind_type force ';
exception
when does_not_exist then NULL;
when invalid_trigger then NULL;
when others then
SYS.DBMS_SYSTEM.KSDWRT(SYS.DBMS_SYSTEM.TRACE_FILE,
'EXCEPTION[prvtsipt.sql(' || $$PLSQL_LINE || ')4]: ' || SQLERRM); RAISE;
end;
begin
execute immediate
' drop type v81_index_obj_array force ';
exception
when does_not_exist then NULL;
when invalid_trigger then NULL;
when others then
SYS.DBMS_SYSTEM.KSDWRT(SYS.DBMS_SYSTEM.TRACE_FILE,
'EXCEPTION[prvtsipt.sql(' || $$PLSQL_LINE || ')5]: ' || SQLERRM); RAISE;
end;
begin
execute immediate
' drop type v81_index_object force ';
exception
when does_not_exist then NULL;
when invalid_trigger then NULL;
when others then
SYS.DBMS_SYSTEM.KSDWRT(SYS.DBMS_SYSTEM.TRACE_FILE,
'EXCEPTION[prvtsipt.sql(' || $$PLSQL_LINE || ')6]: ' || SQLERRM); RAISE;
end;
begin
execute immediate
' drop type h81_nt_ind_type force ';
exception
when does_not_exist then NULL;
when invalid_trigger then NULL;
when others then
SYS.DBMS_SYSTEM.KSDWRT(SYS.DBMS_SYSTEM.TRACE_FILE,
'EXCEPTION[prvtsipt.sql(' || $$PLSQL_LINE || ')7]: ' || SQLERRM); RAISE;
end;
begin
execute immediate
' drop type h81_index_obj_array force ';
exception
when does_not_exist then NULL;
when invalid_trigger then NULL;
when others then
SYS.DBMS_SYSTEM.KSDWRT(SYS.DBMS_SYSTEM.TRACE_FILE,
'EXCEPTION[prvtsipt.sql(' || $$PLSQL_LINE || ')8]: ' || SQLERRM); RAISE;
end;
begin
execute immediate
' drop type h81_index_object force ';
exception
when does_not_exist then NULL;
when invalid_trigger then NULL;
when others then
SYS.DBMS_SYSTEM.KSDWRT(SYS.DBMS_SYSTEM.TRACE_FILE,
'EXCEPTION[prvtsipt.sql(' || $$PLSQL_LINE || ')9]: ' || SQLERRM); RAISE;
end;
end;
/
declare
object_exists exception;
pragma exception_init(object_exists, -00955);
begin
execute immediate 'create type F81_INDEX_OBJECT as OBJECT ( ' ||
'sdo_code RAW(255), ' ||
'sdo_status varchar2(1))';
exception
when object_exists then NULL;
when others then
SYS.DBMS_SYSTEM.KSDWRT(SYS.DBMS_SYSTEM.TRACE_FILE,
'EXCEPTION[prvtsipt.sql(' || $$PLSQL_LINE || ')8]: ' || SQLERRM); RAISE;
end;
/
declare
object_exists exception;
pragma exception_init(object_exists, -00955);
begin
execute immediate 'create type F81_index_obj_array as VARRAY (10000000) ' ||
'of F81_index_object';
exception
when object_exists then NULL;
when others then
SYS.DBMS_SYSTEM.KSDWRT(SYS.DBMS_SYSTEM.TRACE_FILE,
'EXCEPTION[prvtsipt.sql(' || $$PLSQL_LINE || ')8]: ' || SQLERRM); RAISE;
end;
/
declare
object_exists exception;
pragma exception_init(object_exists, -00955);
begin
execute immediate 'create type F81_nt_ind_type as table of F81_index_object';
exception
when object_exists then NULL;
when others then
SYS.DBMS_SYSTEM.KSDWRT(SYS.DBMS_SYSTEM.TRACE_FILE,
'EXCEPTION[prvtsipt.sql(' || $$PLSQL_LINE || ')8]: ' || SQLERRM); RAISE;
end;
/
create type V81_INDEX_OBJECT wrapped
a000000
1
abcd
abcd
abcd
abcd
abcd
abcd
abcd
abcd
abcd
abcd
abcd
abcd
abcd
abcd
abcd
d
64 89
KXdN7gcGljXRAZGUJCLju8OaEBIwg5n0dLhc5wN8X/7Sx1Lw4/6/m8Ayy8y4dCupwiFTrEzk
hpBzTHGUrHZqKl9ZLioy3ea8SvNUotaEdoTm1pQVdtZuAHbWXyF0Kio7iKY+iYjD
/
create type V81_index_obj_array as VARRAY (1000000) of V81_index_object;
/
create type V81_nt_ind_type as table of V81_index_object;
/
declare
object_exists exception;
pragma exception_init(object_exists, -00955);
begin
execute immediate 'create type H81_INDEX_OBJECT as OBJECT ( ' ||
'sdo_groupcode RAW(255), ' ||
'sdo_code RAW(255), ' ||
'sdo_maxcode RAW(255), ' ||
'sdo_status varchar2(1))';
exception
when object_exists then NULL;
when others then
SYS.DBMS_SYSTEM.KSDWRT(SYS.DBMS_SYSTEM.TRACE_FILE,
'EXCEPTION[prvtsipt.sql(' || $$PLSQL_LINE || ')8]: ' || SQLERRM); RAISE;
end;
/
declare
object_exists exception;
pragma exception_init(object_exists, -00955);
begin
execute immediate 'create type H81_index_obj_array as VARRAY (1000000) ' ||
'of H81_index_object';
exception
when object_exists then NULL;
when others then
SYS.DBMS_SYSTEM.KSDWRT(SYS.DBMS_SYSTEM.TRACE_FILE,
'EXCEPTION[prvtsipt.sql(' || $$PLSQL_LINE || ')8]: ' || SQLERRM); RAISE;
end;
/
declare
object_exists exception;
pragma exception_init(object_exists, -00955);
begin
execute immediate 'create type H81_nt_ind_type as table of H81_index_object';
exception
when object_exists then NULL;
when others then
SYS.DBMS_SYSTEM.KSDWRT(SYS.DBMS_SYSTEM.TRACE_FILE,
'EXCEPTION[prvtsipt.sql(' || $$PLSQL_LINE || ')8]: ' || SQLERRM); RAISE;
end;
/
grant execute on F81_INDEX_OBJECT to public;
grant execute on H81_INDEX_OBJECT to public;
grant execute on V81_INDEX_OBJECT to public;
grant execute on V81_index_obj_array to public;
grant execute on H81_index_obj_array to public;
grant execute on F81_index_obj_array to public;
grant execute on F81_nt_ind_type to public;
grant execute on H81_nt_ind_type to public;
grant execute on V81_nt_ind_type to public;
@?/rdbms/admin/sqlsessend.sql
OHA YOOOO