--receive progress
DECLARE
V_ALERTNAME VARCHAR2(30) := 'alert_test';
V_STATUS INTEGER;
V_MSG VARCHAR2(20);
BEGIN
DBMS_ALERT.REGISTER(V_ALERTNAME);
DBMS_ALERT.WAITONE(V_ALERTNAME, V_MSG, V_STATUS);
IF V_STATUS != 0 THEN
DBMS_OUTPUT.PUT_LINE('waitone error');
END IF;
DBMS_OUTPUT.PUT_LINE(V_MSG);
END;
/
--send progress
DECLARE
V_ALERTNAME VARCHAR2(30) := 'alert_test';
BEGIN
DBMS_ALERT.signal(V_ALERTNAME, 'test send message..');
COMMIT;
END;
/
来自 “ ITPUB博客 ” ,链接:http://blog.itpub.net/16179598/viewspace-729963/,如需转载,请注明出处,否则将追究法律责任。
转载于:http://blog.itpub.net/16179598/viewspace-729963/