人大金仓存储过程

存储过程
CREATE OR REPLACE PROCEDURE "PUBLIC"."GET_MSG"(OUT "OUT_MSG"TEXT)
As declare
    a_name VARCHAR(100);
    a_msg TEXT;
    a_status integer;

begin
     DBMS_ALERT.removeall();
commit;
    DBMS_ALERT.REGISTER('BDBSQK_ALERT');
commit;
    DBMS_ALERT.REGISTER('GCSBXX_ALERT');
commit;
    DBMS_ALERT.REGISTER('KJMBXX_ALERT');
commit;

LOOP
    SELECT OUTRELNAME, OUTMESSAGE, OUTSTATUS
    INTO a_name, a_msg, a_status
    FROM DBMS_ALERT.WAITANY(a_name, a_msg, a_status, 0);       
    out_msg:=a_msg;
    exit when a_status=0;
END LOOP;
end;