WSDL Rowset Details

Question

We're using Native Web Services on Oracle 11g (orawsv servlet). One of my functions returns multiple rows, each with 2 columns named ASSET_NUM and ASSET_DESC:
<soap:Envelope xmlns:soap="http://schemas.xmlsoap.org/soap/envelope/">
<soap:Body>
<GET_ITEMSOutput xmlns="http://xmlns.oracle.com/orawsv/CUSTOMERA/WEB_SERVICES">
<RETURN>
<ROWSET>
<ROW>
<ASSET_NUM>076030459</ASSET_NUM>
<ASSET_DESC>LAPTOP</ASSET_DESC>
</ROW>
<ROW>
<ASSET_NUM>076030460</ASSET_NUM>
<ASSET_DESC>DESK</ASSET_DESC>
</ROW>
</ROWSET>
</RETURN>
</GET_ITEMSOutput>
</soap:Body>
</soap:Envelope>
However, the auto-generated WSDL does not include any of the details (eg, column names) of the result, so our customers are complaining that they can't map the data on their end. The corresponding excerpt from the auto-generated WSDL is:
<xsd:element name="GET_ITEMSOutput">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="RETURN">
<xsd:complexType>
<xsd:sequence>
<xsd:any/>
</xsd:sequence>
</xsd:complexType>
</xsd:element>
</xsd:sequence>
</xsd:complexType>
</xsd:element>
</xsd:schema>
As you can see, it's very general and there is no mention of the columns ASSET_NUM or ASSET_DESC. I suppose we could hand-code our own WSDL, but we have about 20 functions we're exposing as web services and it would be extremely tedious and error-prone to code our own WSDL every time we add a new function. How can we produce a WSDL that provides sufficient details? Is it possible to specify this as part of the return type for each of our functions? Currently they are set to return xmltype.
Our customers are expecting to see something like this in the WSDL:
<xsd:element maxOccurs="1" minOccurs="0" name="ROWSET" >
     <xsd:complexType >
          <xsd:sequence>
               <xsd:element maxOccurs="unbounded" minOccurs="0" name="ROW" >
                    <xsd:complexType>
                         <xsd:sequence>
                              <xsd:element maxOccurs="1" minOccurs="0" name="ASSET_NUM" type="xsd:string"/>
                              <xsd:element maxOccurs="1" minOccurs="0" name="ASSET_DESC" type="xsd:string"/>
                         </xsd:sequence>
                    </xsd:complexType>
               </xsd:element>
          </xsd:sequence>
     </xsd:complexType>
</xsd:element>
Thanks,
Darrin
Edited by: Darrin D on Nov 7, 2009 9:35 PM

Answer 1

Darrin
Since you cannot directly affect the generation of the WSDL, and an XMLType parameter will appear as an xs:any the only solution I can see is to provde an explict function to a more accurate WSDL or return a second parameter from the function that provides the required info
Eg
SQL> connect / as sysdba
Connected.
SQL> --
SQL> set define on
SQL> set timing on
SQL> --
SQL> define USERNAME = WSDLTEST
SQL> --
SQL> def PASSWORD = &USERNAME
SQL> --
SQL> def USER_TABLESPACE = USERS
SQL> --
SQL> def TEMP_TABLESPACE = TEMP
SQL> --
SQL> def HOSTNAME = localhost
SQL> --
SQL> drop user &USERNAME cascade
  2  /
old   1: drop user &USERNAME cascade
new   1: drop user WSDLTEST cascade
User dropped.
Elapsed: 00:00:01.80
SQL> grant create any directory, drop any directory, connect, resource, alter session, create view to &USERNAME identified by &PASSWORD
  2  /
old   1: grant create any directory, drop any directory, connect, resource, alter session, create view to &USERNAME identified by &PASSWORD
new   1: grant create any directory, drop any directory, connect, resource, alter session, create view to WSDLTEST identified by WSDLTEST
Grant succeeded.
Elapsed: 00:00:00.09
SQL> alter user &USERNAME default tablespace &USER_TABLESPACE temporary tablespace &TEMP_TABLESPACE
  2  /
old   1: alter user &USERNAME default tablespace &USER_TABLESPACE temporary tablespace &TEMP_TABLESPACE
new   1: alter user WSDLTEST default tablespace USERS temporary tablespace TEMP
User altered.
Elapsed: 00:00:00.00
SQL> begin
  2    dbms_network_acl_admin.drop_acl('localhost.xml');
  3  end;
  4  /
PL/SQL procedure successfully completed.
Elapsed: 00:00:00.00
SQL> begin
  2    dbms_network_acl_admin.create_acl('localhost.xml', 'ACL for &HOSTNAME', '&USERNAME', true, 'connect');
  3    dbms_network_acl_admin.assign_acl('localhost.xml', '&HOSTNAME');
  4  end;
  5  /
old   2:   dbms_network_acl_admin.create_acl('localhost.xml', 'ACL for &HOSTNAME', '&USERNAME', true, 'connect');
new   2:   dbms_network_acl_admin.create_acl('localhost.xml', 'ACL for localhost', 'WSDLTEST', true, 'connect');
old   3:   dbms_network_acl_admin.assign_acl('localhost.xml', '&HOSTNAME');
new   3:   dbms_network_acl_admin.assign_acl('localhost.xml', 'localhost');
PL/SQL procedure successfully completed.
Elapsed: 00:00:00.43
SQL> COMMIT
  2  /
Commit complete.
Elapsed: 00:00:00.64
SQL> GRANT XDB_WEBSERVICES TO &USERNAME
  2  /
old   1: GRANT XDB_WEBSERVICES TO &USERNAME
new   1: GRANT XDB_WEBSERVICES TO WSDLTEST
Grant succeeded.
Elapsed: 00:00:00.01
SQL> GRANT XDB_WEBSERVICES_OVER_HTTP TO &USERNAME
  2  /
old   1: GRANT XDB_WEBSERVICES_OVER_HTTP TO &USERNAME
new   1: GRANT XDB_WEBSERVICES_OVER_HTTP TO WSDLTEST
Grant succeeded.
Elapsed: 00:00:00.00
SQL> GRANT XDB_WEBSERVICES_WITH_PUBLIC TO &USERNAME
  2  /
old   1: GRANT XDB_WEBSERVICES_WITH_PUBLIC TO &USERNAME
new   1: GRANT XDB_WEBSERVICES_WITH_PUBLIC TO WSDLTEST
Grant succeeded.
Elapsed: 00:00:00.00
SQL> connect &USERNAME/&PASSWORD
Connected.
SQL> --
SQL> --
SQL> --
SQL> declare
  2    XMLSCHEMA XMLTYPE := XMLTYPE(
  3  '<!-- edited with XML Spy v4.0 U (http://www.xmlspy.com) by Mark (Drake) -->
  4  <xs:schema targetNamespace="http://xmlns.example.com/xsd/purchaseOrder"
  5             xmlns="http://xmlns.example.com/xsd/purchaseOrder"
  6             xmlns:xs="http://www.w3.org/2001/XMLSchema"
  7             xmlns:xdb="http://xmlns.oracle.com/xdb" version="1.0"
  8             xdb:storeVarrayAsTable="true"
  9             elementFormDefault="qualified">
10     <xs:element name="PurchaseOrder" type="PurchaseOrderType" xdb:defaultTable="PURCHASEORDER"/>
11     <xs:complexType name="PurchaseOrderType" xdb:SQLType="PURCHASEORDER_T">
12             <xs:sequence>
13                     <xs:element name="User" type="UserType" xdb:SQLName="USERID"/>
14                     <xs:element name="CostCenter" type="CostCenterType" xdb:SQLName="COST_CENTER"/>
15                     <xs:element name="ShippingInstructions" type="ShippingInstructionsType" xdb:SQLName="SHIPPING_INSTRUCTIONS"/>
16                     <xs:element name="SpecialInstructions" type="SpecialInstructionsType" xdb:SQLName="SPECIAL_INSTRUCTIONS"/>
17                     <xs:element name="LineItems" type="LineItemsType" xdb:SQLName="LINEITEMS"/>
18                     <xs:element name="Comments" type="CommentsType" minOccurs="0"/>
19             </xs:sequence>
20             <xs:attribute name="Reference" type="ReferenceType" xdb:SQLName="REFERENCE"/>
21             <xs:attribute name="DateCreated" type="xs:dateTime" xdb:SQLType="TIMESTAMP WITH TIME ZONE" xdb:SQLName="DATE_CREATED"/>
22     </xs:complexType>
23     <xs:complexType name="LineItemsType" xdb:SQLType="LINEITEMS_T">
24             <xs:sequence>
25                     <xs:element name="LineItem" type="LineItemType" maxOccurs="unbounded" xdb:SQLName="LINEITEM" xdb:SQLInline="false" xdb:defaultTable="LIN
EITEM_TABLE"/>
26             </xs:sequence>
27     </xs:complexType>
28     <xs:complexType name="LineItemType" xdb:SQLType="LINEITEM_T">
29             <xs:simpleContent>
30                     <xs:extension base="moneyType">
31                     <xs:attribute name="ItemNumber" type="xs:integer" xdb:SQLName="ITEMNUMBER" xdb:SQLType="NUMBER"/>
32                             <xs:attribute name="PartNumber" type="UPCCodeType" xdb:SQLName="PART_NUMBER"/>
33                             <xs:attribute name="Description" type="DescriptionType" use="required" xdb:SQLName="DESCRIPTION"/>
34                             <xs:attribute name="UnitCost" type="moneyType" use="required"/>
35                     </xs:extension>
36             </xs:simpleContent>
37     </xs:complexType>
38     <xs:simpleType name="ReferenceType">
39             <xs:restriction base="xs:string">
40                     <xs:minLength value="18"/>
41                     <xs:maxLength value="30"/>
42             </xs:restriction>
43     </xs:simpleType>
44     <xs:complexType name="ShippingInstructionsType" xdb:SQLType="SHIPPING_INSTRUCTIONS_T">
45             <xs:sequence>
46                     <xs:element name="name" type="NameType" minOccurs="0" xdb:SQLName="SHIP_TO_NAME"/>
47                     <xs:element name="address" type="AddressType" minOccurs="0" xdb:SQLName="SHIP_TO_ADDRESS"/>
48                     <xs:element name="telephone" type="TelephoneType" minOccurs="0" xdb:SQLName="SHIP_TO_PHONE"/>
49             </xs:sequence>
50     </xs:complexType>
51     <xs:simpleType name="moneyType">
52             <xs:restriction base="xs:decimal">
53                     <xs:fractionDigits value="2"/>
54                     <xs:totalDigits value="12"/>
55             </xs:restriction>
56     </xs:simpleType>
57     <xs:simpleType name="quantityType">
58             <xs:restriction base="xs:decimal">
59                     <xs:fractionDigits value="4"/>
60                     <xs:totalDigits value="8"/>
61             </xs:restriction>
62     </xs:simpleType>
63     <xs:simpleType name="UserType">
64             <xs:restriction base="xs:string">
65                     <xs:minLength value="1"/>
66                     <xs:maxLength value="10"/>
67             </xs:restriction>
68     </xs:simpleType>
69     <xs:simpleType name="CostCenterType">
70             <xs:restriction base="xs:string">
71                     <xs:minLength value="1"/>
72                     <xs:maxLength value="4"/>
73             </xs:restriction>
74     </xs:simpleType>
75     <xs:simpleType name="SpecialInstructionsType">
76             <xs:restriction base="xs:string">
77                     <xs:minLength value="0"/>
78                     <xs:maxLength value="2048"/>
79             </xs:restriction>
80     </xs:simpleType>
81     <xs:simpleType name="NameType">
82             <xs:restriction base="xs:string">
83                     <xs:minLength value="1"/>
84                     <xs:maxLength value="20"/>
85             </xs:restriction>
86     </xs:simpleType>
87     <xs:simpleType name="AddressType">
88             <xs:restriction base="xs:string">
89                     <xs:minLength value="1"/>
90                     <xs:maxLength value="256"/>
91             </xs:restriction>
92     </xs:simpleType>
93     <xs:simpleType name="TelephoneType">
94             <xs:restriction base="xs:string">
95                     <xs:minLength value="1"/>
96                     <xs:maxLength value="24"/>
97             </xs:restriction>
98     </xs:simpleType>
99     <xs:simpleType name="CommentsType" xdb:SQLType="CLOB">
100             <xs:restriction base="xs:string">
101             </xs:restriction>
102     </xs:simpleType>
103     <xs:simpleType name="DescriptionType">
104             <xs:restriction base="xs:string">
105                     <xs:minLength value="1"/>
106                     <xs:maxLength value="256"/>
107             </xs:restriction>
108     </xs:simpleType>
109     <xs:simpleType name="UPCCodeType">
110             <xs:restriction base="xs:integer">
111                     <xs:totalDigits value="14"/>
112             </xs:restriction>
113     </xs:simpleType>
114  </xs:schema>');
115  begin
116     dbms_xmlschema.registerSchema( SCHEMAURL => '/xsd/purchaseOrder.xsd', SCHEMADOC => XMLSCHEMA);
117  end;
118  /
PL/SQL procedure successfully completed.
Elapsed: 00:00:02.82
SQL> declare
  2    XMLDOC XMLTYPE := XMLTYPE(
  3  '<PurchaseOrder xmlns="http://xmlns.example.com/xsd/purchaseOrder" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xsi:schemaLocation="http://xmlns.e
xample.com/xsd/purchaseOrder /xsd/purchaseOrder.xsd" Reference="ABANDA-20030809194950222GMT" DateCreated="2004-01-01T12:00:00.000000-08:00">
  4    <User>ABANDA</User>
  5    <CostCenter>A80</CostCenter>
  6    <ShippingInstructions>
  7      <name>Elizabeth Bates</name>
  8      <address>Magdalen Centre, The Oxford Science Park,
  9  Oxford,
10  Oxford OX9 9ZB
11  United Kingdom</address>
12      <telephone>123-759-1758</telephone>
13    </ShippingInstructions>
14    <SpecialInstructions>Courier</SpecialInstructions>
15    <LineItems>
16      <LineItem ItemNumber="1" Description="I Still Know What You Did Last Summer" UnitCost="19.99" PartNumber="43396397897">1</LineItem>
17      <LineItem ItemNumber="2" Description="Playing God" UnitCost="19.99" PartNumber="717951000422">5</LineItem>
18      <LineItem ItemNumber="3" Description="Twilight Zone 20" UnitCost="19.99" PartNumber="14381893724">3</LineItem>
19    </LineItems>
20  </PurchaseOrder>');
21  begin
22     insert into PURCHASEORDER values (XMLDOC);
23    commit;
24  end;
25  /
PL/SQL procedure successfully completed.
Elapsed: 00:00:00.12
SQL> set long 100000 pages 0 lines 256
SQL> --
SQL> select object_value
  2    from PURCHASEORDER
  3    where XMLEXISTS
  4         (
  5           'declare default element namespace "http://xmlns.example.com/xsd/purchaseOrder"; (: :)
  6            $p/PurchaseOrder[@Reference=$ref]'
  7            passing 'ABANDA-20030809194950222GMT' as "ref", OBJECT_VALUE as "p"
  8         )
  9  /
<PurchaseOrder xmlns="http://xmlns.example.com/xsd/purchaseOrder" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xsi:schemaLocation="http://xmlns.example
.com/xsd/purchaseOrder /xsd/purchaseOrder.xsd" Reference="ABANDA-20030809194950222GMT" DateCreat
ed="2004-01-01T12:00:00.000000-08:00">
  <User>ABANDA</User>
  <CostCenter>A80</CostCenter>
  <ShippingInstructions>
    <name>Elizabeth Bates</name>
    <address>Magdalen Centre, The Oxford Science Park,
Oxford,
Oxford OX9 9ZB
United Kingdom</address>
    <telephone>123-759-1758</telephone>
  </ShippingInstructions>
  <SpecialInstructions>Courier</SpecialInstructions>
  <LineItems>
    <LineItem ItemNumber="1" Description="I Still Know What You Did Last Summer" UnitCost="19.99" PartNumber="43396397897">1</LineItem>
    <LineItem ItemNumber="2" Description="Playing God" UnitCost="19.99" PartNumber="717951000422">5</LineItem>
    <LineItem ItemNumber="3" Description="Twilight Zone 20" UnitCost="19.99" PartNumber="14381893724">3</LineItem>
  </LineItems>
</PurchaseOrder>
Elapsed: 00:00:00.07
SQL> create or replace package TESTPROC
  2  as
  3    function getPurchaseOrder(P_REFERENCE VARCHAR2, XMLSCHEMA OUT XMLTYPE) return XMLTYPE;
  4  end;
  5  /
Package created.
Elapsed: 00:00:00.01
SQL> --
SQL> show errors
No errors.
SQL> --
SQL> create or replace package body TESTPROC
  2  as
  3  --
  4  function getXMLSchema(URL VARCHAR2)
  5  return XMLType
  6  as
  7    V_XML_SCHEMA XMLTYPE;
  8  begin
  9    select SCHEMA
10      into V_XML_SCHEMA
11      from USER_XML_SCHEMAS
12     where SCHEMA_URL = URL;
13    return V_XML_SCHEMA;
14  end;
15  --
16  function getPurchaseOrder(P_REFERENCE VARCHAR2, XMLSCHEMA OUT XMLTYPE)
17  return XMLType
18  as
19    V_RESULT     XMLTYPE;
20  begin
21
22    XMLSCHEMA := GETXMLSCHEMA( '/xsd/purchaseOrder.xsd');
23
24    select object_value
25      into V_RESULT
26      from PURCHASEORDER
27    where XMLEXISTS
28         (
29           'declare default element namespace "http://xmlns.example.com/xsd/purchaseOrder"; (: :)
30            $p/PurchaseOrder[@Reference=$ref]'
31            passing 'ABANDA-20030809194950222GMT' as "ref", OBJECT_VALUE as "p"
32         );
33
34    return V_RESULT;
35  end;
36  --
37  end;
38  /
Package body created.
Elapsed: 00:00:00.03
SQL> show errors
No errors.
SQL> --
SQL> VAR URL VARCHAR2(1024)
SQL> VAR RESULT CLOB;
SQL> --
SQL> BEGIN
  2    :URL := 'http://&USERNAME:&PASSWORD@localhost:' || dbms_xdb.getHttpPort() || '/orawsv/&USERNAME/TESTPROC';
  3  end;
  4  /
old   2:   :URL := 'http://&USERNAME:&PASSWORD@localhost:' || dbms_xdb.getHttpPort() || '/orawsv/&USERNAME/TESTPROC';
new   2:   :URL := 'http://WSDLTEST:WSDLTEST@localhost:' || dbms_xdb.getHttpPort() || '/orawsv/WSDLTEST/TESTPROC';
PL/SQL procedure successfully completed.
Elapsed: 00:00:00.00
SQL> print url
http://WSDLTEST:WSDLTEST@localhost:80/orawsv/WSDLTEST/TESTPROC
SQL> --
SQL> set long 10000000 pages 0 lines 160
SQL> --
SQL> select httpuritype( :URL || '?wsdl' ).getXML()
  2    from dual
  3  /
<definitions name="TESTPROC" targetNamespace="http://xmlns.oracle.com/orawsv/WSDLTEST/TESTPROC" xmlns="http://schemas.xmlsoap.org/wsdl/" xmlns:tns="http://xmlns
.oracle.com/orawsv/WSDLTEST/TESTPROC" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:soap="http://schemas.xmlsoap.org/wsdl/soap/">
  <types>
    <xsd:schema targetNamespace="http://xmlns.oracle.com/orawsv/WSDLTEST/TESTPROC" elementFormDefault="qualified">
      <xsd:element name="CXMLTYPE-GETPURCHASEORDERInput">
        <xsd:complexType>
          <xsd:sequence>
            <xsd:element name="XMLSCHEMA-XMLTYPE-OUT">
              <xsd:complexType/>
            </xsd:element>
            <xsd:element name="P_REFERENCE-VARCHAR2-IN" type="xsd:string"/>
          </xsd:sequence>
        </xsd:complexType>
      </xsd:element>
      <xsd:element name="GETPURCHASEORDEROutput">
        <xsd:complexType>
          <xsd:sequence>
            <xsd:element name="RETURN">
              <xsd:complexType>
                <xsd:sequence>
                  <xsd:any/>
                </xsd:sequence>
              </xsd:complexType>
            </xsd:element>
            <xsd:element name="XMLSCHEMA">
              <xsd:complexType>
                <xsd:sequence>
                  <xsd:any/>
                </xsd:sequence>
              </xsd:complexType>
            </xsd:element>
          </xsd:sequence>
        </xsd:complexType>
      </xsd:element>
    </xsd:schema>
  </types>
  <message name="GETPURCHASEORDERInputMessage">
    <part name="parameters" element="tns:CXMLTYPE-GETPURCHASEORDERInput"/>
  </message>
  <message name="GETPURCHASEORDEROutputMessage">
    <part name="parameters" element="tns:GETPURCHASEORDEROutput"/>
  </message>
  <portType name="TESTPROCPortType">
    <operation name="GETPURCHASEORDER">
      <input message="tns:GETPURCHASEORDERInputMessage"/>
      <output message="tns:GETPURCHASEORDEROutputMessage"/>
    </operation>
  </portType>
  <binding name="TESTPROCBinding" type="tns:TESTPROCPortType">
    <soap:binding style="document" transport="http://schemas.xmlsoap.org/soap/http"/>
    <operation name="GETPURCHASEORDER">
      <soap:operation soapAction="GETPURCHASEORDER"/>
      <input>
        <soap:body parts="parameters" use="literal"/>
      </input>
      <output>
        <soap:body parts="parameters" use="literal"/>
      </output>
    </operation>
  </binding>
  <service name="TESTPROCService">
    <documentation>Oracle Web Service</documentation>
    <port name="TESTPROCPort" binding="tns:TESTPROCBinding">
      <soap:address location="http://localhost:80/orawsv/WSDLTEST/TESTPROC"/>
    </port>
  </service>
</definitions>
Elapsed: 00:00:00.15
SQL> VAR RETURN_TEXT CLOB
SQL> VAR RESPONSE_TEXT CLOB
SQL> --
SQL> DECLARE
  2    V_SOAP_REQUEST      XMLTYPE := XMLTYPE(
  3  '<SOAP-ENV:Envelope xmlns:SOAP-ENV="http://schemas.xmlsoap.org/soap/envelope/"
  4                      xmlns:SOAP-ENC="http://schemas.xmlsoap.org/soap/encoding/"
  5                      xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance"
  6                      xmlns:xsd="http://www.w3.org/2001/XMLSchema">
  7     <SOAP-ENV:Body>
  8             <m:CXMLTYPE-GETPURCHASEORDERInput xmlns:m="http://xmlns.oracle.com/orawsv/WSDLTEST/TESTPROC">
  9                     <m:XMLSCHEMA-XMLTYPE-OUT/>
10                     <m:P_REFERENCE-VARCHAR2-IN>ABANDA-20030809194950222GMT</m:P_REFERENCE-VARCHAR2-IN>
11             </m:CXMLTYPE-GETPURCHASEORDERInput>
12     </SOAP-ENV:Body>
13  </SOAP-ENV:Envelope>');
14    V_SOAP_REQUEST_TEXT CLOB := V_SOAP_REQUEST.getClobVal();
15    V_REQUEST           UTL_HTTP.REQ;
16    V_RESPONSE          UTL_HTTP.RESP;
17    V_BUFFER            VARCHAR2(1024);
18    V_RESPONSE_TEXT     CLOB;
19    V_RESPONSE_XML      XMLTYPE;
20    V_RETURN_XML        XMLTYPE;
21  BEGIN
22     DBMS_LOB.CREATETEMPORARY(V_RESPONSE_TEXT, TRUE);
23
24    begin
25      V_REQUEST := UTL_HTTP.BEGIN_REQUEST(URL => :URL, METHOD => 'POST');
26      UTL_HTTP.SET_HEADER(V_REQUEST, 'User-Agent', 'Mozilla/4.0');
27      V_REQUEST.METHOD := 'POST';
28      UTL_HTTP.SET_HEADER (R => V_REQUEST, NAME => 'Content-Length', VALUE => DBMS_LOB.GETLENGTH(V_SOAP_REQUEST_TEXT));
29      UTL_HTTP.WRITE_TEXT (R => V_REQUEST, DATA => V_SOAP_REQUEST_TEXT);
30      V_RESPONSE := UTL_HTTP.GET_RESPONSE(V_REQUEST);
31       LOOP
32        UTL_HTTP.READ_LINE(V_RESPONSE, V_BUFFER, TRUE);
33        DBMS_LOB.WRITEAPPEND(V_RESPONSE_TEXT,LENGTH(V_BUFFER),V_BUFFER);
34       END LOOP;
35       UTL_HTTP.END_RESPONSE(V_RESPONSE);
36    EXCEPTION
37      WHEN UTL_HTTP.END_OF_BODY THEN
38        UTL_HTTP.END_RESPONSE(V_RESPONSE);
39    END;
40
41    :RESPONSE_TEXT := V_RESPONSE_TEXT;
42    V_RESPONSE_XML := XMLTYPE(V_RESPONSE_TEXT);
43
44    select XMLQUERY
45           (
46             'declare namespace SOAP-ENV="http://schemas.xmlsoap.org/soap/envelope/"; (::)
47              declare namespace SOAP-ENC="http://schemas.xmlsoap.org/soap/encoding/"; (::)
48              declare namespace xsi="http://www.w3.org/2001/XMLSchema-instance"; (::)
49              declare namespace xsd="http://www.w3.org/2001/XMLSchema"; (::)
50              declare namespace m="http://xmlns.oracle.com/orawsv/WSDLTEST/TESTPROC"; (::)
51              $resp/SOAP-ENV:Envelope/SOAP-ENV:Body/m:GETPURCHASEORDEROutput'
52              passing V_RESPONSE_XML as "resp" returning content
53           )
54      into V_RETURN_XML
55      from DUAL;
56
57    select V_RETURN_XML.getClobVal()
58      into :RETURN_TEXT
59      from dual;
60
61    DBMS_LOB.FREETEMPORARY(V_RESPONSE_TEXT);
62
63  END;
64  /
PL/SQL procedure successfully completed.
Elapsed: 00:00:00.14
SQL> --
SQL> set pages 0 lines 160 long 10000
SQL> column RETURN format A160
SQL> --
SQL> select xmlserialize(document XMLTYPE(:RETURN_TEXT) as CLOB indent size=2) RETURN
  2    from dual
  3  /
<GETPURCHASEORDEROutput xmlns="http://xmlns.oracle.com/orawsv/WSDLTEST/TESTPROC">
  <RETURN>
    <PurchaseOrder xmlns="http://xmlns.example.com/xsd/purchaseOrder" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xsi:schemaLocation="http://xmlns.exa
mple.com/xsd/purchaseOrder /xsd/purchaseOrder.xsd" Reference="ABANDA-20030809194950222GMT" DateCreated="2004-01-01T12:00:00.000000-08:00">
      <User>ABANDA</User>
      <CostCenter>A80</CostCenter>
      <ShippingInstructions>
        <name>Elizabeth Bates</name>
        <address>Magdalen Centre, The Oxford Science Park,Oxford,Oxford OX9 9ZBUnited Kingdom</address>
        <telephone>123-759-1758</telephone>
      </ShippingInstructions>
      <SpecialInstructions>Courier</SpecialInstructions>
      <LineItems>
        <LineItem ItemNumber="1" Description="I Still Know What You Did Last Summer" UnitCost="19.99" PartNumber="43396397897">1</LineItem>
        <LineItem ItemNumber="2" Description="Playing God" UnitCost="19.99" PartNumber="717951000422">5</LineItem>
        <LineItem ItemNumber="3" Description="Twilight Zone 20" UnitCost="19.99" PartNumber="14381893724">3</LineItem>
      </LineItems>
    </PurchaseOrder>
  </RETURN>
  <XMLSCHEMA>
    <!-- edited with XML Spy v4.0 U (http://www.xmlspy.com) by Mark (Drake) -->
    <xs:schema targetNamespace="http://xmlns.example.com/xsd/purchaseOrder" xmlns="http://xmlns.example.com/xsd/purchaseOrder" xmlns:xs="http://www.w3.org/2001/
XMLSchema" xmlns:xdb="http://xmlns.oracle.com/xdb" version="1.0" xdb:storeVarrayAsTable="true" elementFormDefault="qualified" xdb:flags="8487" xdb:schemaURL="/x
sd/purchaseOrder.xsd" xdb:schemaOwner="WSDLTEST" xdb:numProps="17">
      <xs:element name="PurchaseOrder" type="PurchaseOrderType" xdb:defaultTable="PURCHASEORDER" xdb:propNumber="35392" xdb:global="true" xdb:SQLName="PurchaseO
rder" xdb:SQLType="PURCHASEORDER_T" xdb:SQLSchema="WSDLTEST" xdb:memType="258" xdb:defaultTableSchema="WSDLTEST"/>
      <xs:complexType name="PurchaseOrderType" xdb:SQLType="PURCHASEORDER_T" xdb:SQLSchema="WSDLTEST">
        <xs:sequence>
          <xs:element name="User" type="UserType" xdb:SQLName="USERID" xdb:propNumber="35395" xdb:global="false" xdb:SQLType="VARCHAR2" xdb:memType="1" xdb:MemI
nline="true" xdb:SQLInline="true" xdb:JavaInline="true"/>
          <xs:element name="CostCenter" type="CostCenterType" xdb:SQLName="COST_CENTER" xdb:propNumber="35396" xdb:global="false" xdb:SQLType="VARCHAR2" xdb:mem
Type="1" xdb:MemInline="true" xdb:SQLInline="true" xdb:JavaInline="true"/>
          <xs:element name="ShippingInstructions" type="ShippingInstructionsType" xdb:SQLName="SHIPPING_INSTRUCTIONS" xdb:propNumber="35397" xdb:global="false"
xdb:SQLType="SHIPPING_INSTRUCTIONS_T" xdb:SQLSchema="WSDLTEST" xdb:memType="258" xdb:MemInline="false" xdb:SQLInline="true" xdb:JavaInline="false"/>
          <xs:element name="SpecialInstructions" type="SpecialInstructionsType" xdb:SQLName="SPECIAL_INSTRUCTIONS" xdb:propNumber="35398" xdb:global="false" xdb
:SQLType="VARCHAR2" xdb:memType="1" xdb:MemInline="true" xdb:SQLInline="true" xdb:JavaInline="true"/>
          <xs:element name="LineItems" type="LineItemsType" xdb:SQLName="LINEITEMS" xdb:propNumber="35399" xdb:global="false" xdb:SQLType="LINEITEMS_T" xdb:SQLS
chema="WSDLTEST" xdb:memType="258" xdb:MemInline="false" xdb:SQLInline="true" xdb:JavaInline="false"/>
          <xs:element name="Comments" type="CommentsType" minOccurs="0" xdb:propNumber="35400" xdb:global="false" xdb:SQLName="Comments" xdb:SQLType="CLOB" xdb:
memType="112" xdb:MemInline="true" xdb:SQLInline="true" xdb:JavaInline="true"/>
        </xs:sequence>
        <xs:attribute name="Reference" type="ReferenceType" xdb:SQLName="REFERENCE" xdb:propNumber="35393" xdb:global="false" xdb:SQLType="VARCHAR2" xdb:memType
="1"/>
        <xs:attribute name="DateCreated" type="xs:dateTime" xdb:SQLType="TIMESTAMP WITH TIME ZONE" xdb:SQLName="DATE_CREATED" xdb:propNumber="35394" xdb:global=
"false" xdb:memType="181"/>
      </xs:complexType>
      <xs:complexType name="LineItemsType" xdb:SQLType="LINEITEMS_T" xdb:SQLSchema="WSDLTEST">
        <xs:sequence>
          <xs:element name="LineItem" type="LineItemType" maxOccurs="unbounded" xdb:SQLName="LINEITEM" xdb:SQLInline="false" xdb:defaultTable="LINEITEM_TABLE" x
db:propNumber="35401" xdb:global="false" xdb:SQLType="LINEITEM_T" xdb:SQLSchema="WSDLTEST" xdb:memType="258" xdb:MemInline="false" xdb:JavaInline="false" xdb:de
faultTableSchema="WSDLTEST" xdb:SQLCollType="XDB$XMLTYPE_REF_LIST_T" xdb:SQLCollSchema="XDB"/>
        </xs:sequence>
      </xs:complexType>
      <xs:complexType name="LineItemType" xdb:SQLType="LINEITEM_T" xdb:SQLSchema="WSDLTEST">
        <xs:simpleContent>
          <xs:extension base="moneyType">
            <xs:attribute name="ItemNumber" type="xs:integer" xdb:SQLName="ITEMNUMBER" xdb:SQLType="NUMBER" xdb:propNumber="35402" xdb:global="false" xdb:memTyp
e="2"/>
            <xs:attribute name="PartNumber" type="UPCCodeType" xdb:SQLName="PART_NUMBER" xdb:propNumber="35403" xdb:global="false" xdb:SQLType="NUMBER" xdb:memT
ype="2"/>
            <xs:attribute name="Description" type="DescriptionType" use="required" xdb:SQLName="DESCRIPTION" xdb:propNumber="35404" xdb:global="false" xdb:SQLTy
pe="VARCHAR2" xdb:memType="1"/>
            <xs:attribute name="UnitCost" type="moneyType" use="required" xdb:propNumber="35405" xdb:global="false" xdb:SQLName="UnitCost" xdb:SQLType="NUMBER"
xdb:memType="2"/>
          </xs:extension>
        </xs:simpleContent>
      </xs:complexType>
      <xs:simpleType name="ReferenceType">
        <xs:restriction base="xs:string">
          <xs:minLength value="18"/>
          <xs:maxLength value="30"/>
        </xs:restriction>
      </xs:simpleType>
      <xs:complexType name="ShippingInstructionsType" xdb:SQLType="SHIPPING_INSTRUCTIONS_T" xdb:SQLSchema="WSDLTEST">
        <xs:sequence>
          <xs:element name="name" type="NameType" minOccurs="0" xdb:SQLName="SHIP_TO_NAME" xdb:propNumber="35406" xdb:global="false" xdb:SQLType="VARCHAR2" xdb:
memType="1" xdb:MemInline="true" xdb:SQLInline="true" xdb:JavaInline="true"/>
          <xs:element name="address" type="AddressType" minOccurs="0" xdb:SQLName="SHIP_TO_ADDRESS" xdb:propNumber="35407" xdb:global="false" xdb:SQLType="VARCH
AR2" xdb:memType="1" xdb:MemInline="true" xdb:SQLInline="true" xdb:JavaInline="true"/>
          <xs:element name="telephone" type="TelephoneType" minOccurs="0" xdb:SQLName="SHIP_TO_PHONE" xdb:propNumber="35408" xdb:global="false" xdb:SQLType="VAR
CHAR2" xdb:memType="1" xdb:MemInline="true" xdb:SQLInline="true" xdb:JavaInline="true"/>
        </xs:sequence>
      </xs:complexType>
      <xs:simpleType name="moneyType">
        <xs:restriction base="xs:decimal">
          <xs:fractionDigits value="2"/>
          <xs:totalDigits value="12"/>
        </xs:restriction>
      </xs:simpleType>
      <xs:simpleType name="quantityType">
        <xs:restriction base="xs:decimal">
          <xs:fractionDigits value="4"/>
          <xs:totalDigits value="8"/>
        </xs:restriction>
      </xs:simpleType>
      <xs:simpleType name="UserType">
        <xs:restriction base="xs:string">
          <xs:minLength value="1"/>
          <xs:maxLength value="10"/>
        </xs:restriction>
      </xs:simpleType>
      <xs:simpleType name="CostCenterType">
        <xs:restriction base="xs:string">
          <xs:minLength value="1"/>
          <xs:maxLength value="4"/>
        </xs:restriction>
      </xs:simpleType>
      <xs:simpleType name="SpecialInstructionsType">
        <xs:restriction base="xs:string">
          <xs:minLength value="0"/>
          <xs:maxLength value="2048"/>
        </xs:restriction>
      </xs:simpleType>
      <xs:simpleType name="NameType">
        <xs:restriction base="xs:string">
          <xs:minLength value="1"/>
          <xs:maxLength value="20"/>
        </xs:restriction>
      </xs:simpleType>
      <xs:simpleType name="AddressType">
        <xs:restriction base="xs:string">
          <xs:minLength value="1"/>
          <xs:maxLength value="256"/>
        </xs:restriction>
      </xs:simpleType>
      <xs:simpleType name="TelephoneType">
        <xs:restriction base="xs:string">
          <xs:minLength value="1"/>
          <xs:maxLength value="24"/>
        </xs:restriction>
      </xs:simpleType>
      <xs:simpleType name="CommentsType" xdb:SQLType="CLOB">
        <xs:restriction base="xs:string"/>
      </xs:simpleType>
      <xs:simpleType name="DescriptionType">
        <xs:restriction base="xs:string">
          <xs:minLength value="1"/>
          <xs:maxLength value="256"/>
        </xs:restriction>
      </xs:simpleType>
      <xs:simpleType name="UPCCodeType">
        <xs:restriction base="xs:integer">
          <xs:totalDigits value="14"/>
        </xs:restriction>
      </xs:simpleType>
    </xs:schema>
  </XMLSCHEMA>
</GETPURCHASEORDEROutput>
Elapsed: 00:00:00.14
SQL> exit