The following lines contain the word 'select', 'insert', 'update' or 'delete':
select count(*) into c from java$rmjvm$aux;
exec('insert into java$rmjvm$aux (select obj# from obj$ where ' ||
'type#=28 or type#=29 or type#=30 or namespace=32)');
exec('insert into java$rmjvm$aux (select joxftobn from x$joxfc ' ||
'where bitand(joxftflags,96)!=0)');
exec('insert into java$rmjvm$aux (select joxftobn from x$joxfr ' ||
'where bitand(joxftflags,96)!=0)');
exec('insert into java$rmjvm$aux (select obj# from obj$ ' ||
'where namespace=32)');
drp('delete from duc$ where owner=''SYS'' and pack=''JIS$INTERCEPTOR$'' ' ||
'and proc=''USER_DROPPED''');
drp('delete from aurora$startup$classes$ where ' ||
'classname=''oracle.aurora.mts.http.admin.RegisterService''');
drp('delete from aurora$dyn$reg');
drp('delete from JAVA$CLASS$MD5$TABLE');
cursor C1 is select name from java$rmjvm$aux2;
exec('delete from java$rmjvm$aux2');
exec('insert into java$rmjvm$aux2 (select unique o1.name from ' ||
'obj$ o1,obj$ o2 where o1.type#=5 and o1.owner#=1 and o1.name=o2.name and o2.type#=29)');
exec('insert into java$rmjvm$aux2 (select unique o1.name ' ||
'from obj$ o1,obj$ o2, java$rmjvm$aux j ' ||
'where o1.type#=5 and o1.owner#=1 and o1.name=o2.name and o2.obj#=j.obj#)');
select count(*) into iterations from java$rmjvm$aux2;
total_to_delete number;
dbms_output.put_line('delete from dependency$');
select count(*) into total_to_delete from dependency$
where p_obj# in (select obj# from java$rmjvm$aux);
select count(*) into total_to_delete from dependency$
where p_obj# in (select obj# from obj$ where (type#=29 or type#=56));
dbms_output.put_line(total_to_delete ||' remaining at ' || to_char(sysdate,'mm-dd hh:mi:ss'));
delete from dependency$ where p_obj# in
(select obj# from java$rmjvm$aux)
and rownum <= deletions_per_iteration;
delete from dependency$ where p_obj# in
(select obj# from obj$ where (type#=29 or type#=56))
and rownum <= deletions_per_iteration;
exit when total_to_delete <= deletions_per_iteration;
total_to_delete := total_to_delete - deletions_per_iteration;
dbms_output.put_line('delete from error$');
select count(*) into total_to_delete from error$
where obj# in (select obj# from java$rmjvm$aux);
select count(*) into total_to_delete from error$
where obj# in (select obj# from obj$
where type#=28 or type#=29 or type#=30 or type#=56);
dbms_output.put_line(total_to_delete ||' remaining at ' || to_char(sysdate,'mm-dd hh:mi:ss'));
delete from error$ where obj# in
(select obj# from java$rmjvm$aux)
and rownum <= deletions_per_iteration;
delete from error$ where obj# in
(select obj# from obj$ where type#=28 or type#=29 or type#=30 or type#=56)
and rownum <= deletions_per_iteration;
exit when total_to_delete <= deletions_per_iteration;
total_to_delete := total_to_delete - deletions_per_iteration;
dbms_output.put_line('delete from objauth$');
select count(*) into total_to_delete from objauth$
where obj# in (select obj# from java$rmjvm$aux);
dbms_output.put_line(total_to_delete ||' remaining at ' || to_char(sysdate,'mm-dd hh:mi:ss'));
delete from objauth$ where obj# in (select obj# from java$rmjvm$aux)
and rownum <= deletions_per_iteration;
exit when total_to_delete <= deletions_per_iteration;
total_to_delete := total_to_delete - deletions_per_iteration;
dbms_output.put_line('delete from javaobj$');
select count(*) into total_to_delete from javaobj$
where obj# in (select obj# from java$rmjvm$aux);
dbms_output.put_line(total_to_delete ||' remaining at ' || to_char(sysdate,'mm-dd hh:mi:ss'));
delete from javaobj$ where obj# in (select obj# from java$rmjvm$aux)
and rownum <= deletions_per_iteration;
exit when total_to_delete <= deletions_per_iteration;
total_to_delete := total_to_delete - deletions_per_iteration;
dbms_output.put_line('delete from access$');
select count(*) into total_to_delete from access$
where d_obj# in (select obj# from java$rmjvm$aux);
dbms_output.put_line(total_to_delete ||' remaining at ' || to_char(sysdate,'mm-dd hh:mi:ss'));
delete from access$ where d_obj# in (select obj# from java$rmjvm$aux)
and rownum <= deletions_per_iteration;
exit when total_to_delete <= deletions_per_iteration;
total_to_delete := total_to_delete - deletions_per_iteration;
dbms_output.put_line('delete from javasnm$');
delete from javasnm$;
dbms_output.put_line('delete from idl_ub1$');
select count(*) into total_to_delete
from idl_ub1$ where obj# in (select obj# from java$rmjvm$aux);
dbms_output.put_line(total_to_delete ||' remaining at ' || to_char(sysdate,'mm-dd hh:mi:ss'));
delete from idl_ub1$ where obj# in (select obj# from java$rmjvm$aux)
and rownum <= deletions_per_iteration;
exit when total_to_delete <= deletions_per_iteration;
total_to_delete := total_to_delete - deletions_per_iteration;
dbms_output.put_line('delete from idl_ub2$');
'select count(*) from idl_ub2$ ' ||
'where obj# in (select obj# from java$rmjvm$aux)' into total_to_delete;
dbms_output.put_line(total_to_delete ||' remaining at ' || to_char(sysdate,'mm-dd hh:mi:ss'));
'delete from idl_ub2$ where obj# in (select obj# from java$rmjvm$aux) ' ||
'and rownum <= :deletions_per_iteration' using deletions_per_iteration;
exit when total_to_delete <= deletions_per_iteration;
total_to_delete := total_to_delete - deletions_per_iteration;
dbms_output.put_line('delete from idl_char$');
select count(*) into total_to_delete
from idl_char$ where obj# in (select obj# from java$rmjvm$aux);
dbms_output.put_line(total_to_delete ||' remaining at ' || to_char(sysdate,'mm-dd hh:mi:ss'));
delete from idl_char$ where obj# in (select obj# from java$rmjvm$aux)
and rownum <= deletions_per_iteration;
exit when total_to_delete <= deletions_per_iteration;
total_to_delete := total_to_delete - deletions_per_iteration;
dbms_output.put_line('delete from idl_sb4$');
'select count(*) from idl_sb4$ ' ||
'where obj# in (select obj# from java$rmjvm$aux)' into total_to_delete;
dbms_output.put_line(total_to_delete ||' remaining at ' || to_char(sysdate,'mm-dd hh:mi:ss'));
'delete from idl_sb4$ where obj# in (select obj# from java$rmjvm$aux) ' ||
'and rownum <= :deletions_per_iteration' using deletions_per_iteration;
exit when total_to_delete <= deletions_per_iteration;
total_to_delete := total_to_delete - deletions_per_iteration;
dbms_output.put_line('delete from obj$');
select count(*) into c1 from syn$ where obj# in
(select o1.obj# from obj$ o1,obj$ o2
where o1.name=o2.name and
o1.type#=5 and o1.owner#=1 and o2.type#=29);
select count(*) into c2 from dependency$ where p_obj# in
(select obj# from java$rmjvm$aux);
select count(*) into c4 from javasnm$;
select count(*) into c1 from syn$ where obj# in
(select o1.obj# from obj$ o1,obj$ o2,java$rmjvm$aux j
where o1.name=o2.name and o1.type#=5 and o1.owner#=1
and o2.obj#=j.obj#);
select count(*) into c2 from dependency$ where p_obj# in
(select obj# from obj$ where
type#=28 or type#=29 or type#=30 or type#=56);
select count(*) into c3 from objauth$ where obj# in
(select obj# from java$rmjvm$aux);
select count(*) into c6 from javaobj$ where obj# in
(select obj# from java$rmjvm$aux);
select count(*) into c5 from access$ where d_obj# in
(select obj# from java$rmjvm$aux);
update java$jvm$status set rmjvmtime = (select startup_time from v$instance);
select count(*) into total_to_delete
from obj$ where obj# in (select obj# from java$rmjvm$aux);
delete from obj$ where obj# in (select obj# from java$rmjvm$aux)
and rownum <= deletions_per_iteration;
exit when total_to_delete <= deletions_per_iteration;
total_to_delete := total_to_delete - deletions_per_iteration;
update obj$ set status=5 where type#=28 or type#=29;
delete from java$rmjvm$aux;
insert into java$rmjvm$aux
(select obj# from obj$ where type#=10 and owner#=1);
delete from java$rmjvm$aux
where obj# in (select p_obj# from dependency$);
delete from obj$ where obj# in (select obj# from java$rmjvm$aux);
delete from java$rmjvm$aux;
select count(*) into ct from x$kglob,obj$ where
kglnacon=sys_context('USERENV', 'CON_NAME') and
kglnaobj=name(+) and name is null and kglobtyp in (28, 29, 30, 56);
delete from java$rmjvm$aux;
exec('insert into java$rmjvm$aux (select joxftobn from x$joxfc ' ||
'where bitand(joxftflags,96)=0)');
cursor C1(above number) is select
'ALTER JAVA CLASS "' || u.name || '"."' || o.name || '" RESOLVE',
o.obj# from
obj$ o, user$ u, java$rmjvm$aux j where
o.obj#=j.obj# and u.user# = o.owner# and j.obj# > above
order by j.obj#;
delete from java$rmjvm$aux;