DECLARE
v_PipeName VARCHAR2(30) := 'MyPipe';
v_Status INTEGER;
BEGIN
DBMS_PIPE.PACK_MESSAGE(SYSDATE);
DBMS_PIPE.PACK_MESSAGE(123456);
DBMS_PIPE.PACK_MESSAGE('This is a message sent from the pipe!');
v_Status := DBMS_PIPE.SEND_MESSAGE(v_PipeName);
IF v_Status != 0 THEN
DBMS_OUTPUT.PUT_LINE('Error ' || v_Status ||
' while sending message');
END IF;
END;
/
--