1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31
   |  
CREATE OR REPLACE FUNCTION f_data (pc IN  VARCHAR2) RETURN VARCHAR2 AS
  v_request   soap_api.t_request;
  v_response  soap_api.t_response;
  v_result       VARCHAR2(32256);
BEGIN  
  v_request := soap_api.new_request(p_method    => 'whoisSoap',								p_namespace => 'http://www.webservicex.net'
            );
  soap_api.add_parameter(p_request => v_request,
        p_name    => 'HostName',
        p_type    => 'xsd:string',
        p_value   => pc
       );
  v_response := soap_api.invoke(p_request => v_request,
         p_url     => 'http://www.webservicex.net/WCF/default.aspx',
         p_action  => 'GetWhoIS'
           );
  v_result := soap_api.get_return_value(v_response,
                                         p_name      => 'GetWhoISResponse',
                                         p_namespace => 'http://www.webservicex.net'
           );
  if v_result is null then
     return 'null';
  else
  RETURN v_result;
  end if;
/*EXCEPTION
  WHEN OTHERS THEN
    ;*/
END;
/ | 
Partager