[Home] [Help]
1: package body rmjvm is
2:
3: procedure exec (x varchar2) as
4: begin
5: initjvmaux.exec(x);
6: end;
7:
8: procedure drp (x varchar2) as
9: begin
6: end;
7:
8: procedure drp (x varchar2) as
9: begin
10: initjvmaux.drp(x);
11: end;
12:
13: procedure run(remove_all boolean) as
14: begin
30: --
31:
32: dbms_output.enable(10000000); -- biggest size we can get
33:
34: initjvmaux.rollbacksetup;
35:
36: commit;
37: initjvmaux.rollbackset;
38:
33:
34: initjvmaux.rollbacksetup;
35:
36: commit;
37: initjvmaux.rollbackset;
38:
39: declare
40: c number;
41: begin
41: begin
42: select count(*) into c from java$rmjvm$aux;
43: if c = 0 then
44: commit;
45: initjvmaux.rollbackset;
46: if remove_all then
47: exec('insert into java$rmjvm$aux (select obj# from obj$ where ' ||
48: 'type#=28 or type#=29 or type#=30 or namespace=32)');
49: else
49: else
50: exec('insert into java$rmjvm$aux (select joxftobn from x$joxfc ' ||
51: 'where bitand(joxftflags,96)!=0)');
52: commit;
53: initjvmaux.rollbackset;
54: exec('insert into java$rmjvm$aux (select joxftobn from x$joxfr ' ||
55: 'where bitand(joxftflags,96)!=0)');
56: commit;
57: initjvmaux.rollbackset;
53: initjvmaux.rollbackset;
54: exec('insert into java$rmjvm$aux (select joxftobn from x$joxfr ' ||
55: 'where bitand(joxftflags,96)!=0)');
56: commit;
57: initjvmaux.rollbackset;
58: exec('insert into java$rmjvm$aux (select obj# from obj$ ' ||
59: 'where namespace=32)');
60: end if;
61: end if;
61: end if;
62: end;
63:
64: commit;
65: initjvmaux.rollbackset;
66:
67: dbms_output.put_line('drop or disable triggers with java implementations');
68:
69: drp('drop trigger JIS$ROLE_TRIGGER$');
79: drp('alter trigger CDC_DROP_CTABLE_BEFORE disable');
80: drp('delete from JAVA$CLASS$MD5$TABLE');
81: commit;
82:
83: initjvmaux.rollbackset;
84:
85: dbms_output.put_line('drop synonyms with java targets');
86:
87: DECLARE
171: total_to_delete number;
172: deletions_per_iteration number := 1000;
173: begin
174:
175: initjvmaux.rollbackset;
176:
177: dbms_output.put_line('delete from dependency$');
178:
179: if remove_all then
186: commit;
187:
188: loop
189: dbms_output.put_line(total_to_delete ||' remaining at ' || to_char(sysdate,'mm-dd hh:mi:ss'));
190: initjvmaux.rollbackset;
191: if remove_all then
192: delete from dependency$ where p_obj# in
193: (select obj# from java$rmjvm$aux)
194: and rownum <= deletions_per_iteration;
201: exit when total_to_delete <= deletions_per_iteration;
202: total_to_delete := total_to_delete - deletions_per_iteration;
203: end loop;
204:
205: initjvmaux.rollbackset;
206:
207: dbms_output.put_line('delete from error$');
208:
209: if remove_all then
216: end if;
217: commit;
218: loop
219: dbms_output.put_line(total_to_delete ||' remaining at ' || to_char(sysdate,'mm-dd hh:mi:ss'));
220: initjvmaux.rollbackset;
221: if remove_all then
222: delete from error$ where obj# in
223: (select obj# from java$rmjvm$aux)
224: and rownum <= deletions_per_iteration;
231: exit when total_to_delete <= deletions_per_iteration;
232: total_to_delete := total_to_delete - deletions_per_iteration;
233: end loop;
234:
235: initjvmaux.rollbackset;
236:
237: dbms_output.put_line('delete from objauth$');
238:
239: select count(*) into total_to_delete from objauth$
240: where obj# in (select obj# from java$rmjvm$aux);
241: commit;
242: loop
243: dbms_output.put_line(total_to_delete ||' remaining at ' || to_char(sysdate,'mm-dd hh:mi:ss'));
244: initjvmaux.rollbackset;
245: delete from objauth$ where obj# in (select obj# from java$rmjvm$aux)
246: and rownum <= deletions_per_iteration;
247: commit;
248: exit when total_to_delete <= deletions_per_iteration;
248: exit when total_to_delete <= deletions_per_iteration;
249: total_to_delete := total_to_delete - deletions_per_iteration;
250: end loop;
251:
252: initjvmaux.rollbackset;
253:
254: dbms_output.put_line('delete from javaobj$');
255:
256: select count(*) into total_to_delete from javaobj$
257: where obj# in (select obj# from java$rmjvm$aux);
258: commit;
259: loop
260: dbms_output.put_line(total_to_delete ||' remaining at ' || to_char(sysdate,'mm-dd hh:mi:ss'));
261: initjvmaux.rollbackset;
262: delete from javaobj$ where obj# in (select obj# from java$rmjvm$aux)
263: and rownum <= deletions_per_iteration;
264: commit;
265: exit when total_to_delete <= deletions_per_iteration;
265: exit when total_to_delete <= deletions_per_iteration;
266: total_to_delete := total_to_delete - deletions_per_iteration;
267: end loop;
268:
269: initjvmaux.rollbackset;
270:
271: dbms_output.put_line('delete from access$');
272:
273: select count(*) into total_to_delete from access$
274: where d_obj# in (select obj# from java$rmjvm$aux);
275: commit;
276: loop
277: dbms_output.put_line(total_to_delete ||' remaining at ' || to_char(sysdate,'mm-dd hh:mi:ss'));
278: initjvmaux.rollbackset;
279: delete from access$ where d_obj# in (select obj# from java$rmjvm$aux)
280: and rownum <= deletions_per_iteration;
281: commit;
282: exit when total_to_delete <= deletions_per_iteration;
283: total_to_delete := total_to_delete - deletions_per_iteration;
284: end loop;
285:
286: if remove_all then
287: initjvmaux.rollbackset;
288:
289: dbms_output.put_line('delete from javasnm$');
290: delete from javasnm$;
291: commit;
290: delete from javasnm$;
291: commit;
292: end if;
293:
294: initjvmaux.rollbackset;
295:
296: dbms_output.put_line('delete from idl_ub1$');
297:
298: select count(*) into total_to_delete
299: from idl_ub1$ where obj# in (select obj# from java$rmjvm$aux);
300: commit;
301: loop
302: dbms_output.put_line(total_to_delete ||' remaining at ' || to_char(sysdate,'mm-dd hh:mi:ss'));
303: initjvmaux.rollbackset;
304: delete from idl_ub1$ where obj# in (select obj# from java$rmjvm$aux)
305: and rownum <= deletions_per_iteration;
306: commit;
307: exit when total_to_delete <= deletions_per_iteration;
315: 'where obj# in (select obj# from java$rmjvm$aux)' into total_to_delete;
316: commit;
317: loop
318: dbms_output.put_line(total_to_delete ||' remaining at ' || to_char(sysdate,'mm-dd hh:mi:ss'));
319: initjvmaux.rollbackset;
320: execute immediate
321: 'delete from idl_ub2$ where obj# in (select obj# from java$rmjvm$aux) ' ||
322: 'and rownum <= :deletions_per_iteration' using deletions_per_iteration;
323: commit;
331: from idl_char$ where obj# in (select obj# from java$rmjvm$aux);
332: commit;
333: loop
334: dbms_output.put_line(total_to_delete ||' remaining at ' || to_char(sysdate,'mm-dd hh:mi:ss'));
335: initjvmaux.rollbackset;
336: delete from idl_char$ where obj# in (select obj# from java$rmjvm$aux)
337: and rownum <= deletions_per_iteration;
338: commit;
339: exit when total_to_delete <= deletions_per_iteration;
347: 'where obj# in (select obj# from java$rmjvm$aux)' into total_to_delete;
348: commit;
349: loop
350: dbms_output.put_line(total_to_delete ||' remaining at ' || to_char(sysdate,'mm-dd hh:mi:ss'));
351: initjvmaux.rollbackset;
352: execute immediate
353: 'delete from idl_sb4$ where obj# in (select obj# from java$rmjvm$aux) ' ||
354: 'and rownum <= :deletions_per_iteration' using deletions_per_iteration;
355: commit;
404: select count(*) into total_to_delete
405: from obj$ where obj# in (select obj# from java$rmjvm$aux);
406: commit;
407: loop
408: initjvmaux.rollbackset;
409: delete from obj$ where obj# in (select obj# from java$rmjvm$aux)
410: and rownum <= deletions_per_iteration;
411: commit;
412: exit when total_to_delete <= deletions_per_iteration;
412: exit when total_to_delete <= deletions_per_iteration;
413: total_to_delete := total_to_delete - deletions_per_iteration;
414: end loop;
415:
416: initjvmaux.rollbackset;
417: if not remove_all then
418: update obj$ set status=5 where type#=28 or type#=29;
419: end if;
420:
418: update obj$ set status=5 where type#=28 or type#=29;
419: end if;
420:
421: commit;
422: initjvmaux.rollbackset;
423: delete from java$rmjvm$aux;
424:
425: commit;
426: initjvmaux.rollbackset;
422: initjvmaux.rollbackset;
423: delete from java$rmjvm$aux;
424:
425: commit;
426: initjvmaux.rollbackset;
427:
428: insert into java$rmjvm$aux
429: (select obj# from obj$ where type#=10 and owner#=1);
430: delete from java$rmjvm$aux
446: end;
447:
448: commit;
449:
450: initjvmaux.rollbackcleanup;
451:
452: dbms_output.put_line('flush shared_pool');
453: execute immediate 'alter system flush shared_pool';
454: execute immediate 'alter system flush shared_pool';
472: pragma exception_init(foo,-28);
473: ct number;
474: begin
475: -- check whether registry says startup is pending
476: if initjvmaux.startup_pending_p then raise foo; end if;
477: -- check whether there are any KGL handles for non fixed objects which
478: -- do not appear in obj$. This can indicate that rmjvm has run in the
479: -- current instance
480: -- Ignore SYS temp tables created during optimizer statstics
496: -- be correctly interpreted by 8.1.5 to remain in place.
497: --
498:
499: dbms_output.enable(10000000); -- biggest size we can get
500: initjvmaux.rollbacksetup;
501: commit;
502: initjvmaux.rollbackset;
503:
504: delete from java$rmjvm$aux;
498:
499: dbms_output.enable(10000000); -- biggest size we can get
500: initjvmaux.rollbacksetup;
501: commit;
502: initjvmaux.rollbackset;
503:
504: delete from java$rmjvm$aux;
505:
506: exec('insert into java$rmjvm$aux (select joxftobn from x$joxfc ' ||
506: exec('insert into java$rmjvm$aux (select joxftobn from x$joxfc ' ||
507: 'where bitand(joxftflags,96)=0)');
508:
509: commit;
510: initjvmaux.rollbackset;
511:
512: exec('create or replace java source named java$rmjvm$src as import java.lang.Object;');
513:
514: commit;
511:
512: exec('create or replace java source named java$rmjvm$src as import java.lang.Object;');
513:
514: commit;
515: initjvmaux.rollbackset;
516:
517: dbms_output.put_line('strip 8.1.6 bytecode optimizations');
518:
519: DECLARE
572:
573: END;
574: commit;
575:
576: initjvmaux.rollbackset;
577:
578: exec('drop java source java$rmjvm$src');
579: delete from java$rmjvm$aux;
580:
579: delete from java$rmjvm$aux;
580:
581: commit;
582:
583: initjvmaux.rollbackcleanup;
584:
585: end;
586:
587: end;