DECLARE
  SERVLET_NAME VARCHAR2(32) := 'orawsv';
BEGIN
  DBMS_XDB.deleteServletMapping(SERVLET_NAME);
  DBMS_XDB.deleteServlet(SERVLET_NAME);
  DBMS_XDB.addServlet(NAME     => SERVLET_NAME,
                      LANGUAGE => 'C',
                      DISPNAME => 'Oracle Query Web Service',
                      DESCRIPT => 'Servlet for issuing queries as a Web Service',
                      SCHEMA   => 'XDB');
  DBMS_XDB.addServletSecRole(SERVNAME => SERVLET_NAME,
                             ROLENAME => 'XDB_WEBSERVICES',
                             ROLELINK => 'XDB_WEBSERVICES');
  DBMS_XDB.addServletMapping(PATTERN => '/orawsv/*',
                             NAME    => SERVLET_NAME);
END;
/
 
select * from xmltable('declare default element namespace "[url]http://xmlns.oracle.com/xdb/xdbconfig.xsd[/url]"; 
       for $doc in fn:doc("/xdbconfig.xml")/xdbconfig/sysconfig/protocolconfig/httpconfig/webappconfig/servletconfig/servlet-list/servlet[servlet-name=''orawsv'']
       return $doc');
/
grant XDB_WEBSERVICES to TEST;
/
grant XDB_WEBSERVICES_OVER_HTTP to TEST;
/
grant XDB_WEBSERVICES_WITH_PUBLIC to TEST;
/
SELECT dbms_xdb.gethttpport FROM dual;
/
begin dbms_xdb.sethttpport(8080); end;
/
SELECT dbms_xdb.gethttpport FROM dual;
/