System Packages Oracle PLSQL

SQL>
SQL> set serveroutput on size 1000000
SQL> DECLARE
  2
  3    message VARCHAR2(30 CHAR) := NULL;
  4    success INTEGER;
  5
  6  BEGIN
  7
  8    success := DBMS_PIPE.RECEIVE_MESSAGE('ORA$PIPE$00F3B7B50001',1);
  9
 10    IF (success = 0) THEN
 11      DBMS_PIPE.UNPACK_MESSAGE(message);
 12    ELSE
 13      DBMS_OUTPUT.PUT_LINE('Error');
 14      message := TO_CHAR(success);
 15    END IF;
 16
 17    DBMS_OUTPUT.PUT_LINE('Message ['||message||']');
 18
 19  END;
 20  /
Error
Message [1]
PL/SQL procedure successfully completed.
SQL>