SET ECHO ON
SET FEEDBACK ON
SET PAGESIZE 49999
SET SERVEROUTPUT ON SIZE 1000000

DECLARE
   -- Define variables for functions and procedures.
   MESSAGE   VARCHAR2 (30 CHAR);
BEGIN
   -- Assign the unique session name to message.
   MESSAGE := DBMS_PIPE.UNIQUE_SESSION_NAME;
   
   -- Reset the local private pipe.
   DBMS_PIPE.RESET_BUFFER;

   -- Write a message to the local private pipe.
   DBMS_PIPE.PACK_MESSAGE (MESSAGE);

   -- Write what was written to the pipe.
   DBMS_OUTPUT.PUT_LINE ('Written to pipe [' || MESSAGE || ']');
END;
/

SET ECHO ON
SET FEEDBACK ON
SET PAGESIZE 49999
SET SERVEROUTPUT ON SIZE 1000000

-- Define an anonymous block to populate the local private pipe.

DECLARE
   -- Define variables for functions and procedures.
   MESSAGE   VARCHAR2 (30 CHAR);
BEGIN
   -- Read a message from the local private pipe.
   DBMS_PIPE.UNPACK_MESSAGE (MESSAGE);

   -- Print the contents of the message.
   DBMS_OUTPUT.PUT_LINE ('Message [' || MESSAGE || ']');
END;
/