22: end;
23:
24: procedure exec (x varchar2) as
25: begin
26: dbms_output.put_line(substr(x, 1, 250));
27: require_sys;
28: execute immediate x;
29: end;
30:
125: exception when others then
126: if sqlcode not in (-1545) then raise; end if;
127: end;
128: counter := counter + 1;
129: dbms_output.put_line('retrying because of ORA-01545');
130: dbms_lock.sleep(2);
131: exit when counter > 150;
132: exception when others then
133: if sqlcode in (-20000) then
130: dbms_lock.sleep(2);
131: exit when counter > 150;
132: exception when others then
133: if sqlcode in (-20000) then
134: dbms_output.disable;
135: dbms_output.enable;
136: else
137: raise;
138: end if;
131: exit when counter > 150;
132: exception when others then
133: if sqlcode in (-20000) then
134: dbms_output.disable;
135: dbms_output.enable;
136: else
137: raise;
138: end if;
139: end;
293: end;
294:
295: procedure abort_message(msg1 varchar2, msg2 varchar2 default null) as
296: begin
297: dbms_output.put_line('.');
298: dbms_output.put_line('###');
299: dbms_output.put_line('### ' || msg1);
300: if msg2 is not null then dbms_output.put_line('### ' || msg2);end if;
301: dbms_output.put_line('###');
294:
295: procedure abort_message(msg1 varchar2, msg2 varchar2 default null) as
296: begin
297: dbms_output.put_line('.');
298: dbms_output.put_line('###');
299: dbms_output.put_line('### ' || msg1);
300: if msg2 is not null then dbms_output.put_line('### ' || msg2);end if;
301: dbms_output.put_line('###');
302: dbms_output.put_line('.');
295: procedure abort_message(msg1 varchar2, msg2 varchar2 default null) as
296: begin
297: dbms_output.put_line('.');
298: dbms_output.put_line('###');
299: dbms_output.put_line('### ' || msg1);
300: if msg2 is not null then dbms_output.put_line('### ' || msg2);end if;
301: dbms_output.put_line('###');
302: dbms_output.put_line('.');
303: end;
296: begin
297: dbms_output.put_line('.');
298: dbms_output.put_line('###');
299: dbms_output.put_line('### ' || msg1);
300: if msg2 is not null then dbms_output.put_line('### ' || msg2);end if;
301: dbms_output.put_line('###');
302: dbms_output.put_line('.');
303: end;
304:
297: dbms_output.put_line('.');
298: dbms_output.put_line('###');
299: dbms_output.put_line('### ' || msg1);
300: if msg2 is not null then dbms_output.put_line('### ' || msg2);end if;
301: dbms_output.put_line('###');
302: dbms_output.put_line('.');
303: end;
304:
305: function jvmuscript(patchset varchar2) return varchar2 as
298: dbms_output.put_line('###');
299: dbms_output.put_line('### ' || msg1);
300: if msg2 is not null then dbms_output.put_line('### ' || msg2);end if;
301: dbms_output.put_line('###');
302: dbms_output.put_line('.');
303: end;
304:
305: function jvmuscript(patchset varchar2) return varchar2 as
306: result varchar2(30) := 'jvmempty.sql';
575: procedure set_debug_output_off as begin do_debug_output := false; end;
576:
577: procedure debug_output(line varchar2) as
578: begin
579: if do_debug_output then dbms_output.put_line(line);end if;
580: end;
581:
582: procedure set_alt_tablespace_limit(l number) as
583: begin