Da prosto emu nado zapustit' "daemon"...

OS UNIX?

Togda eto luchshe sdelat' s pomosh'u "Java Messaging Services (JMS) Communications"

CREATE OR REPLACE PROCEDURE scott.MONITOR_QUEUE
IS
function f_monitor return number
Is
agent_w_message aq$_agent;
agent_list dbms_aq.agent_list_t;
wait_time INTEGER := 120;
no_message EXCEPTION;
pragma EXCEPTION_INIT(no_message, -25254);
order_msg boladm.order_typ;
new_status VARCHAR2(30);
monitor BOOLEAN := TRUE;
begin_time NUMBER;
end_time NUMBER;
BEGIN

WHILE (monitor)
LOOP
BEGIN

/* Construct the waiters list: */
agent_list(1) := aq$_agent('BILLED_ORDER', 'CS_billedorders_que', NULL);
agent_list(2) := aq$_agent('SHIPPED_ORDER', 'CS_shippedorders_que',
NULL);
agent_list(3) := aq$_agent('BACK_ORDER', 'CS_backorders_que', NULL);
agent_list(4) := aq$_agent('Booked_ORDER', 'CS_bookedorders_que', NULL);

/* Wait for order status messages: */
dbms_aq.listen(agent_list, wait_time, agent_w_message);

dbms_output.put_line('Agent' || agent_w_message.name || ' Address '||
agent_w_message.address);
/* Dequeue the message from the queue: */
dequeue_message(agent_w_message.address, agent_w_message.name, order_msg);

/* Update the status of the order depending on the type of the message,
* the name of the agent contains the new state: */
update_status(agent_w_message.name, order_msg);

/* Exit if we have been working long enough: */


EXCEPTION
WHEN no_message THEN
dbms_output.put_line('No messages in the past 2 minutes');
end_time := dbms_utility.get_time;
/* Exit if we have done enough work: */
END;

END LOOP;
return (0);
exception
when others then
return (-1);
END;

v_event number = 0;
begin
v_event := f_monitor;
end;

/

In win2K:: set DB service's status to manual
db_start.bat:

c:\oracle\ora9i\bin\ORACLE.EXE ORASU
sqlplus scott/tiger@my_host monitor_status