Advanced Queuing - Oracle

SELECT t.user_data.data INTO lob_loc
FROM qt1 t
WHERE t.msgid = enq_msgid;
DBMS_LOB.WRITE(lob_loc, 2000, 1, buffer );
COMMIT;
END;
/* Dequeue lob data: */
CREATE OR REPLACE PROCEDURE blobdequeue AS
dequeue_options DBMS_AQ.dequeue_options_t;
message_properties DBMS_AQ.message_properties_t;
mid RAW(16);
pload aq.message;
lob_loc BLOB;
amount BINARY_INTEGER;
buffer RAW(4096);
Enqueuing and Dequeuing Of Messages
BEGIN
DBMS_AQ.DEQUEUE(’aq.queue1’, dequeue_options, message_properties,
pload, mid);
lob_loc := pload.data;
-- read the lob data info buffer
amount := 2000;
DBMS_LOB.READ(lob_loc, amount, 1, buffer);
DBMS_OUTPUT.PUT_LINE(’Amount of data read: ’||amount);
COMMIT;
END;
/* Do the enqueues and dequeues: */
SET SERVEROUTPUT ON
BEGIN
FOR i IN 1..5 LOOP
blobenqueue(i);
END LOOP;
END;
BEGIN
FOR i IN 1..5 LOOP
blobdequeue();
END LOOP;
END;
Oracle Advanced Queuing by Example A-55