utl_dbws.create_service oracle,Oracle利用utl_dbws包 访问WebService

CREATE OR REPLACE FUNCTION add_wms_hp(str_hpname IN varchar) RETURN number as

l_service UTL_DBWS.service;

l_call UTL_DBWS.call;

l_wsdl_url VARCHAR2(32767);

l_namespace VARCHAR2(32767);

l_service_qname UTL_DBWS.qname;

l_port_qname UTL_DBWS.qname;

l_operation_qname UTL_DBWS.qname;

l_xmltype_in SYS.XMLTYPE;

l_xmltype_out SYS.XMLTYPE;

l_return NUMBER;

BEGIN

l_wsdl_url := 'http://192.168.5.112/webservice/SapService.asmx?wsdl'; --配置

l_namespace := ''; --配置

l_service_qname := UTL_DBWS.to_qname(l_namespace, 'SapService'); --配置

l_port_qname := UTL_DBWS.to_qname(l_namespace, 'SapServiceSoap12');

l_operation_qname := UTL_DBWS.to_qname(l_namespace, 'GET9001_114'); --GET9001_114

l_service := UTL_DBWS.create_service(wsdl_document_location => URIFACTORY.getURI(l_wsdl_url),

service_name => l_service_qname);

l_call := UTL_DBWS.create_call(service_handle => l_service,

port_name => l_port_qname,

operation_name => l_operation_qname);

l_xmltype_in := SYS.XMLTYPE('<?xml version="1.0" encoding="utf-8"?>

string

string

string

string

string

string

string

string

string

string

string

string

string

string

string

string

string

string

string

string

string

string

string

string

string

string

string

string

string

string

string

string

string

string

string

string

string

string

string

string

string

string

string

string

string

string

string

string

string

string

string

string

string

string

string

string

string

string

string

string

string

string

string

string

string

string

string

string

string

string

string

string

');

l_xmltype_out := UTL_DBWS.invoke(call_Handle => l_call,

request => l_xmltype_in);

UTL_DBWS.release_call(call_handle => l_call);

UTL_DBWS.release_service(service_handle => l_service);

l_return := l_xmltype_out.extract('//return/text()').getNumberVal();

RETURN l_return;

END;

/