SQL>
SQL> CREATE OR REPLACE PROCEDURE send_message (pipe IN VARCHAR2, dtval IN DATE)
2 IS
3 stat PLS_INTEGER;
4 BEGIN
5 DBMS_PIPE.PACK_MESSAGE (dtval);
6 stat := DBMS_PIPE.SEND_MESSAGE (pipe, timeout => 60);
7 IF stat != 0
8 THEN
9 DBMS_OUTPUT.PUT_LINE ('Unable to send message to ' || pipe);
10 END IF;
11 END;
12 /
Warning: Procedure created with compilation errors.
SQL>