CREATE OR REPLACE procedure comm
(	
v_trans in	varchar2,
v_error in out	varchar2,
v_reply in out	varchar2)
is
c	utl_tcp.connection;
v_out	varchar2(2000);
v_write PLS_INTEGER:=0;
ret_val pls_integer;
BEGIN
	BEGIN
	c := utl_tcp.open_connection('10.244.124.219',2000);
	ret_val := utl_tcp.write_line(c, v_trans);
	ret_val := utl_tcp.write_line(c);
	LOOP
		v_reply := utl_tcp.get_line(c, TRUE); -- read result
	END LOOP;
	EXCEPTION
		WHEN utl_tcp.end_of_input THEN
			NULL; -- end of input
			utl_tcp.close_connection(c);
		When others then
			v_error := substr(SQLERRM,1,100);
	end;
UTL_TCP.CLOSE_CONNECTION(c);
END;
/