Recht häufig braucht man auch in der SQL- und PL/SQL Programmierung eine "SLEEP"-Funktion, also eine Funktion, die einfach nur eine bestimmte Anzahl Sekunden wartet und gar nichts tut. In der Datenbank ist eine solche auch vorhanden. Im Package DBMS_LOCK gibt es die Prozedur SLEEP ...
SQL> desc dbms_lock : PROCEDURE SLEEP Argument Name Typ In/Out Defaultwert? ------------------------------ ----------------------- ------ -------- SECONDS NUMBER IN
So weit - so gut. Für den DBA.
Für den Entwickler ist es nicht so einfach - denn DBMS_LOCK gehört nun nicht zu den Paketen, auf die man normalerweise Zugriff hat. Ein GRANT von DBMS_LOCK an PUBLIC wird allerdings kaum ein DBA machen - aus guten Gründen, denn die anderen Funktionen in DBMS_LOCK sollten schon mit Vorsicht eingesetzt werden.
Es gibt aber Alternativen. Wenn APEX in der Datenbank installiert ist, steht im Paket APEX_UTIL (welches jeder APEX Entwickler kennt), die Prozedur PAUSE zur Verfügung. Diese arbeitet genauso wie DBMS_LOCK.SLEEP, mit einer Ausnahme: Sie wartet maximal 2 Minuten (120 Sekunden), wie man an der nicht gewrappten Package Spec sehen kann.
procedure pause (
--
-- Pause for number of seconds identified by p_seconds
-- (capped at 120 seconds)
--
p_seconds in number)
;
Da APEX_UTIL an PUBLIC gegranted ist, kann auch jeder andere Datenbankuser APEX_UTIL.PAUSE nutzen. Datenbanken, in denen APEX nicht installiert ist, haben kein APEX_UTIL. Allerdings könnte man sich (als DBA) APEX zum Vorbild nehmen und eine allgemein nutzbare SLEEP-Funktion bereitstellen. Da man die Datenbankprozesse unter Kontrolle behalten möchte, ist eine maximale Wartezeit (wie APEX es macht) eine gute Idee. Die eigene SLEEP-Funktion könnte also so aussehen:
create or replace procedure global_sleep(p_seconds in number) is
begin
if p_seconds > 300 or p_seconds < 0 then
raise_application_error(-20000, 'SLEEP IS ONLY ALLOWED BETWEEN 1 SECOND AND 5 MINUTES');
else
dbms_lock.sleep(p_seconds);
end if;
end global_sleep;
/
grant execute on global_sleep to public
/
create public synonym global_sleep for sys.global_sleep
/
Das Ergebnis ist eine SLEEP-Funktion, die jeder nutzen kann, ohne dass das Paket DBMS_LOCK freigegeben wird. Das Maximum liegt im Beispiel bei 5 Minuten - aber das kann ja jeder DBA so einstellen, wie er möchte. Ich würde diesen Ansatz sehr empfehlen - denn so bleiben die SLEEPs in einer kontrollierten Umgebung, mit mit DBA_DEPENDENCIES kann der DBA auch jederzeit nachprüfen, wo das genutzt wird.
Das ist aber noch nicht alles: Dem Entwickler bleibt, wenn der Zugriff auf DBMS_LOCK fehlt, APEX nicht installiert ist und der DBA keine GLOBAL_SLEEP Funktion bereitgestellt hat, noch eine dritte Möglichkeit: Nämlich mit Hilfe von Java in der Datenbank.
Java kennt die Methode sleep() in der Klasse java.lang.Thread. Da Java in der Datenbank niemals multithreaded abläuft, sondern alle Threads stets serialisiert werden, wirkt ein java.lang.Thread.sleep() genauso wie DBMS_LOCK.SLEEP(). Und die Nutzung ist sehr einfach - außer einem CREATE PROCEDURE sind keine besonderen Privilegien nötig.
create or replace procedure my_java_sleep ( p_milli_seconds in number ) as language java name 'java.lang.Thread.sleep(long)'; / SQL> exec my_java_sleep(5000); PL/SQL-Prozedur erfolgreich abgeschlossen. Abgelaufen: 00:00:05.00 SQL>
Wie man sieht: Es gibt einige Möglichkeiten für eine SLEEP-Funktion - Zugriff auf das mächtige DBMS_LOCK ist dafür (im Gegensatz zur landläufigen Meinung) gar nicht nötig.
1 Kommentar:
Another one I came up with is to exploit locking, it's relatively low cost and needs no special privileges at all.
The way it works is to intentionally block an autonomous transaction using the select for update wait x statement.
I have chosen to lock dual here, you can go for any other table but as dual is not meant for updates I think it's a sensible default. Before calling mylockingsleep you need to ensure that dual is locked. Simply issue a "select 1 from dual for update" and don't release that until done with the waiting.
procedure mylockingsleep as
pragma autonomous_transaction;
wait_expired exception;
pragma exception_init (wait_expired,-30006);
l_lock number;
BEGIN
select 1 into l_lock from dual for update wait &1;
commit;
exception when wait_expired then
--intentionally do nothing
rollback;
END;
Kommentar veröffentlichen