Mega Code Archive

 

Categories / Oracle PLSQL Tutorial / System Packages

 

Use dbms_pipe package

SQL> SQL> create or replace procedure proc( cmd in varchar2 )   2  as   3      status number;   4      resp   long;   5      answer_pipe varchar2(255) default replace(dbms_pipe.unique_session_name,'$','_');   6  begin   7      dbms_pipe.pack_message( answer_pipe );   8      dbms_pipe.pack_message( cmd );   9  10      status := dbms_pipe.send_message( 'HOST_PIPE' );  11      if ( status <> 0 ) then  12        raise_application_error( -20001, 'Pipe error' );  13      end if;  14  15      status := dbms_pipe.receive_message( answer_pipe );  16      if ( status <> 0 ) then  17        raise_application_error( -20001, 'Pipe error' );  18      end if;  19      dbms_pipe.unpack_message( resp );  20      dbms_output.put_line( substr( resp, 1, 80 ) );  21  end;  22  /