Question on utl_http.

Question

Hi,
I am very new to UTL_HTTP package..
I am trying to call one of my webservice using this package..here is the code for this
CREATE OR REPLACE PACKAGE BODY prepaid_service AS
FUNCTION get_prepaid(transactionNumber IN VARCHAR2, transactionType IN VARCHAR2) RETURN VARCHAR2 IS
req demo_soap.request;
resp demo_soap.response;
URL VARCHAR2(200);
ACTION VARCHAR2(200);
BEGIN
req := demo_soap.new_request('n:header',
'xmlns:n="urn:examples:prepaid"');
demo_soap.add_parameter(req, 'transactionNumber', 'xsd:string', transactionNumber);
demo_soap.add_parameter(req, 'type', 'xsd:string', transactionType);
URL := 'http://10.72.149.179:8080/soap/servlet/rpcrouter';
ACTION := NULL;
resp := demo_soap.invoke(req,URL,ACTION);
RETURN demo_soap.get_return_value(resp, 'return','xmlns:ns1="urn:examples:prepaid"');
END;
BEGIN
* Since the Web service resides outside of the firewall, we need to set
* the proxy in the current session before invoking the service.
utl_http.set_proxy('www-proxy', NULL);
utl_http.set_persistent_conn_support(TRUE);
END;
The exception handling illustrates the use of "pragma-ed" exceptions
like Utl_Http.Http_Client_Error. In a realistic example, the program
would use these when it coded explicit recovery actions.
Request_Failed is raised for all exceptions after calling
Utl_Http.Set_Detailed_Excp_Support ( enable=>false )
And it is NEVER raised after calling with enable=>true
CREATE OR REPLACE PACKAGE BODY demo_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,
reqtype IN VARCHAR2,
value IN VARCHAR2) AS
BEGIN
req.reqbody := req.reqbody ||'<'||name||' xsi:type="'||reqtype||'">'||value||'</'||name||'>';
END;
PROCEDURE generate_envelope(req IN OUT NOCOPY request,
               env IN OUT NOCOPY VARCHAR2) AS
BEGIN
env := '<soap:Envelope xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema"     xmlns:soap="http://schemas.xmlsoap.org/soap/envelope/"     xmlns:soapenc="http://schemas.xmlsoap.org/soap/encoding/" soap:encodingStyle="http://schemas.xmlsoap.org/soap/encoding/"><soap:Body><'||req.method||' '||req.namespace||'>'||req.reqbody||'</'||req.method||'></soap:Body></soap: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('url='||url);
     show_envelope('action='||action);
     show_envelope(env);
-- show_envelope(env);
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);
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;
     --RETURN NULL;
END;
FUNCTION invoke11 RETURN response AS
req demo_soap.request;
env VARCHAR2(32767);
http_req utl_http.req;
http_resp utl_http.resp;
resp response;
     URL VARCHAR2(200);
     ACTION VARCHAR2(200);
BEGIN
dbms_output.put_line('IN invoke11');
req := demo_soap.new_request('n:header',
'xmlns:n="urn:examples:prepaid"');
demo_soap.add_parameter(req, 'transactionNumber', 'xsd:string','1234');
demo_soap.add_parameter(req, 'type', 'xsd:string', 'transactionType');
     URL := 'http://10.72.149.179:8080/soap/servlet/rpcrouter';
     ACTION := NULL;
     generate_envelope(req, env);
          dbms_output.put_line('gen env');
     show_envelope('url='||url);
     show_envelope('action='||action);
     show_envelope(env);
-- show_envelope(env);
http_req := utl_http.begin_request(url,'POST','HTTP/1.0');
     dbms_output.put_line('after B req');
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);
     dbms_output.put_line('start write');
utl_http.write_text(http_req, env);
     dbms_output.put_line('end write');
http_resp := utl_http.get_response(http_req);
     dbms_output.put_line('end resp');
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;
     --RETURN NULL;
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;
when i called first procedure(get_prepaid), it is not working it is giving error as "ORA-12545: Connect failed because target host or object does not exist
ORA-06512: at "SYS.UTL_HTTP", line 1020
ORA-06512: at "RMS_BATCH.PREPAID_SERVICE", line 36
ORA-06512: at line 10"
But when i try run demo_soap.invoke11(), it is giving me proper output.. Couldn't find out why this error is coming..I am trying to run invoke11() from TOAD.
Please help me in resolving this problem..
Thanks in advance
Satya

Answer 1

/apps
bkrdlr@tsrdclvmappq# ls -ld /apps/bkrdlr/interface_files/
drwxrwsr-x 3 oraqabdc mqm 4096 Mar 29 16:51 /apps/bkrdlr/interface_files/
/apps
bkrdlr@tsrdclvmappq# ls -ld /apps/bkrdlr
drwxrwxr-x 12 bkrdlr mqm 4096 Mar 30 09:34 /apps/bkrdlr
/apps
bkrdlr@tsrdclvmappq# ls -ld /apps
drwxr-xr-x 7 root root 4096 Jul 27  2010 /apps
/apps
bkrdlr@tsrdclvmappq# sqlplus cms/cms
SQL*Plus: Release 11.1.0.7.0 - Production on Wed Mar 30 17:20:15 2011
Copyright (c) 1982, 2008, Oracle.  All rights reserved.
Connected to:
Oracle Database 11g Enterprise Edition Release 11.1.0.7.0 - 64bit Production
With the Partitioning, Real Application Clusters, OLAP, Data Mining
and Real Application Testing options
SQL> select * from v$version;
BANNER
Oracle Database 11g Enterprise Edition Release 11.1.0.7.0 - 64bit Production
PL/SQL Release 11.1.0.7.0 - Production
CORE    11.1.0.7.0      Production
TNS for IBM/AIX RISC System/6000: Version 11.1.0.7.0 - Production
NLSRTL Version 11.1.0.7.0 - Production
SQL>Thank you.