Hints and tricks for Oracle and other stuff...

  DECLARE
     req  soap.request;
     resp soap.response;
  BEGIN
     req := soap.new_request('NS1:izracunv',
                             'xmlns:NS1="Izracunv"');
     soap.add_parameter(req, 'id','xsd:string','zzi');
     soap.add_parameter(req, 'pa','xsd:string','30.4.2004');
     soap.add_parameter(req, 'p23','xsd:string','');
     soap.add_parameter(req, 'p31iii','xsd:string','');
     soap.add_parameter(req, 'p33i','xsd:string','03042013');
     soap.add_parameter(req, 'p33ii','xsd:string','21');
     soap.add_parameter(req, 'p33iii','xsd:string','');
     soap.add_parameter(req, 'p33iv','xsd:string','');
     soap.add_parameter(req, 'p33v','xsd:string','');
     soap.add_parameter(req, 'p34a','xsd:string','IN');
     soap.add_parameter(req, 'p35','xsd:string','1000.5');
     soap.add_parameter(req, 'p36','xsd:string','100');
     soap.add_parameter(req, 'p38','xsd:string','900');
     soap.add_parameter(req, 'p39','xsd:string','');
     soap.add_parameter(req, 'p41','xsd:string','');
     soap.add_parameter(req, 'p42','xsd:string','100');
     soap.add_parameter(req, 'p44','xsd:string','(3CV1)(120)');
     soap.add_parameter(req, 'p46','xsd:string','');
     resp := soap.invoke(req,
       'http://storitve-curs.gov.si/sstoritve/Izracunpl',
       'Izracunv');
     return soap.get_return_value(resp, 'return',
          'xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance"')
     ;
    eND;

CREATE OR REPLACE PACKAGE dd_soap AS
/* A type to represent a SOAP RPC request */

TYPE request IS RECORD (

method VARCHAR2(256),

namespace VARCHAR2(256),

body VARCHAR2(32767));



/* A type to represent a SOAP RPC response */
TYPE response IS RECORD (

doc xmltype);



/*

* Create a new SOAP RPC request.

*/

FUNCTION new_request(method IN VARCHAR2,

namespace IN VARCHAR2)

RETURN request;



/*

* Add a simple parameter to the SOAP RPC request.

*/

PROCEDURE add_parameter(req IN OUT NOCOPY request,

name IN VARCHAR2,

type IN VARCHAR2,

value IN VARCHAR2);



/*

* Make the SOAP RPC call.

*/

FUNCTION invoke(req IN OUT NOCOPY request,

url IN VARCHAR2,

action IN VARCHAR2) RETURN response;



/*

* Retrieve the sipmle return value of the SOAP RPC call.

*/

FUNCTION get_return_value(resp IN OUT NOCOPY response,

name IN VARCHAR2,

namespace IN VARCHAR2) RETURN VARCHAR2;

PROCEDURE show_envelope(env IN VARCHAR2);



END;



CREATE OR REPLACE PACKAGE BODY dd_soap AS



FUNCTION new_request(method IN VARCHAR2,

namespace IN VARCHAR2)

RETURN request AS

req request;

BEGIN

req.method := method;

req.namespace := namespace;

RETURN req;

END;



PROCEDURE add_parameter(req IN OUT NOCOPY request,

name IN VARCHAR2,

type IN VARCHAR2,

value IN VARCHAR2) AS

BEGIN

req.body := req.body

'<'name' xsi:type="'type'">'value'</'name'>';

END;



PROCEDURE generate_envelope(req IN OUT NOCOPY request,

env IN OUT NOCOPY VARCHAR2) AS

BEGIN

env := '<?xml version="1.0"?><SOAP-ENV:Envelope

xmlns:SOAP-ENV="http://schemas.xmlsoap.org/soap/envelope/"

xmlns:xsi="http://www.w3.org/1999/XMLSchema-instance"

xmlns:xsd="http://www.w3.org/1999/XMLSchema"

xmlns:SOAP-ENC="http://schemas.xmlsoap.org/soap/encoding/">

<SOAP-ENV:Body SOAP-ENV:encodingStyle="http://schemas.xmlsoap.org/soap/encoding/"><'req.method' 'req.namespace'>'

req.body'</'req.method'></SOAP-ENV:Body></SOAP-ENV:Envelope>';

END;



PROCEDURE show_envelope(env IN VARCHAR2) AS

i pls_integer;

len pls_integer;

BEGIN

i := 1; len := length(env);

WHILE (i <= len) LOOP

dbms_output.put_line(substr(env, i, 60));

i := i + 60;

END LOOP;

END;



PROCEDURE check_fault(resp IN OUT NOCOPY response) AS

fault_node xmltype;

fault_code VARCHAR2(256);

fault_string VARCHAR2(32767);

BEGIN

fault_node := resp.doc.extract('/soap:Fault',

'xmlns:soap="http://schemas.xmlsoap.org/soap/envelope/');

IF (fault_node IS NOT NULL) THEN

fault_code := fault_node.extract('/soap:Fault/faultcode/child::text()',

'xmlns:soap="http://schemas.xmlsoap.org/soap/envelope/').getstringval();

fault_string := fault_node.extract('/soap:Fault/faultstring/child::text()',

'xmlns:soap="http://schemas.xmlsoap.org/soap/envelope/').getstringval();

raise_application_error(-20000, fault_code ' - ' fault_string);

END IF;

END;



FUNCTION invoke(req IN OUT NOCOPY request,

url IN VARCHAR2,

action IN VARCHAR2) RETURN response AS

env VARCHAR2(32767);

http_req utl_http.req;

http_resp utl_http.resp;

resp response;

BEGIN

generate_envelope(req, env);



show_envelope(env);

return resp;



http_req := utl_http.begin_request(url, 'POST','HTTP/1.0');

utl_http.set_header(http_req, 'Content-Type', 'text/xml');

utl_http.set_header(http_req, 'Content-Length', length(env));

utl_http.set_header(http_req, 'SOAPAction', action);

utl_http.write_text(http_req, env);



show_envelope(http_req.method);



http_resp := utl_http.get_response(http_req);

utl_http.read_text(http_resp, env);

utl_http.end_response(http_resp);

resp.doc := xmltype.createxml(env);

resp.doc := resp.doc.extract('/soap:Envelope/soap:Body/child::node()',

'xmlns:soap="http://schemas.xmlsoap.org/soap/envelope/"');



--show_envelope(resp.doc.getstringval());

check_fault(resp);

RETURN resp;

END;



FUNCTION get_return_value(resp IN OUT NOCOPY response,

name IN VARCHAR2,

namespace IN VARCHAR2) RETURN VARCHAR2 AS

BEGIN

RETURN resp.doc.extract('//'name'/child::text()',

namespace).getstringval();

END;



END;