Mega Code Archive

 

Categories / Oracle PLSQL / System Packages

 

An anonymous block program to create a pipe

SQL> DECLARE   2   3       4    returnValue INTEGER;   5   6  BEGIN   7   8       9    returnValue := DBMS_PIPE.CREATE_PIPE('PLSQL$THREAD_ABORT', 20000 );  10  11      12    returnValue := DBMS_PIPE.CREATE_PIPE('PLSQL$THREAD_ABORT_LOCK', 20000 );  13  14      15    returnValue := DBMS_PIPE.CREATE_PIPE('PLSQL$THREAD_COMMIT', 20000 );  16  17      18    returnValue := DBMS_PIPE.CREATE_PIPE('PLSQL$THREAD_COMMIT_LOCK', 20000 );  19  20      21    returnValue := DBMS_PIPE.CREATE_PIPE('PLSQL$THREAD_COMPLETE', 20000 );  22  23      24    returnValue := DBMS_PIPE.CREATE_PIPE('PLSQL$THREAD_COMPLETE_LOCK', 20000 );  25  26      27    returnValue := DBMS_PIPE.CREATE_PIPE('PLSQL$THREAD_REGISTER', 20000 );  28  29      30    returnValue := DBMS_PIPE.CREATE_PIPE('PLSQL$THREAD_REGISTER_LOCK', 20000 );  31  32      33    IF (returnValue = 0) THEN  34      DBMS_OUTPUT.PUT_LINE('THREAD_PIPES are created.');  35    END IF;  36  37  EXCEPTION  38  39      40    WHEN others THEN  41      DBMS_OUTPUT.PUT_LINE(SQLERRM);  42      RETURN;  43  44  END;  45  / THREAD_PIPES are created. PL/SQL procedure successfully completed. SQL> SQL>