1#!perl -w
2#!d:\perl\bin\perl.exe
3
4# -- SOAP::Lite -- soaplite.com -- Copyright (C) 2001 Paul Kulchenko --
5
6use SOAP::Lite;
7
8my $d = SOAP::Custom::XML::Deserializer
9  -> deserialize(join '', <DATA>)
10  -> valueof('/Envelope/Body');
11
12foreach my $portfolio ($d->Report->Request->Composition->PortfolioDistribution) {
13  print $portfolio->type, " ", $portfolio->date, "\n";
14  foreach my $row ($portfolio->Row) {
15    print "  ", $row->Element, " ", $row->Value, "\n";
16  }
17}
18
19__DATA__
20<?xml version="1.0" encoding="UTF-8"?>
21<Envelope version="1.1">
22  <Header />
23  <Body>
24    <Report>
25      <Header>
26        <ClientRef />
27        <FundCusip>61744J366</FundCusip>
28        <SepAcctDesc />
29      </Header>
30      <Request>
31        <Errors>
32          <Error>Returned no data for request: PortfolioDistribution</Error>
33          <Error>Returned no data for request: PortfolioDistribution</Error>
34          <Error>Returned no data for request: PortfolioDistribution</Error>
35          <Error>Returned no data for request: PortfolioDistribution</Error>
36          <Error>Could not retrieve PortfolioDistribution</Error>
37          <Error>Could not retrieve PortfolioDistribution</Error>
38          <Error>Could not retrieve PortfolioDistribution</Error>
39          <Error>Could not retrieve PortfolioDistribution</Error>
40        </Errors>
41        <Composition>
42          <PortfolioDistribution type="CE" date="09/30/2000" />
43          <PortfolioDistribution type="GB" date="09/30/2000" />
44          <PortfolioDistribution type="ST" date="09/30/2000">
45            <Row>
46              <Element>Common Stocks</Element>
47              <Value>0.9991</Value>
48            </Row>
49            <Row>
50              <Element>Other</Element>
51              <Value>0.0021</Value>
52            </Row>
53            <Row>
54              <Element>Cash &amp; Cash Equivalents</Element>
55              <Value>-0.0012</Value>
56            </Row>
57          </PortfolioDistribution>
58          <PortfolioDistribution type="TT" date="09/30/2000">
59            <Row>
60              <Element>General Electric Company</Element>
61              <Value>0.0458</Value>
62            </Row>
63            <Row>
64              <Element>Cisco Systems Inc</Element>
65              <Value>0.033</Value>
66            </Row>
67            <Row>
68              <Element>Microsoft Corporation</Element>
69              <Value>0.0263</Value>
70            </Row>
71            <Row>
72              <Element>Exxon Mobil Corp.</Element>
73              <Value>0.0263</Value>
74            </Row>
75            <Row>
76              <Element>Pfizer, Inc.</Element>
77              <Value>0.0231</Value>
78            </Row>
79            <Row>
80              <Element>Intel Corporation</Element>
81              <Value>0.0209</Value>
82            </Row>
83            <Row>
84              <Element>Citigroup Inc</Element>
85              <Value>0.02</Value>
86            </Row>
87            <Row>
88              <Element>Emc Corp.</Element>
89              <Value>0.0185</Value>
90            </Row>
91            <Row>
92              <Element>American International Group, Inc.</Element>
93              <Value>0.0181</Value>
94            </Row>
95            <Row>
96              <Element>Oracle Corporation</Element>
97              <Value>0.0172</Value>
98            </Row>
99          </PortfolioDistribution>
100          <PortfolioDistribution type="IB" date="09/30/2000">
101            <Row>
102              <Element>Pharmaceuticals</Element>
103              <Value>0.0941</Value>
104            </Row>
105            <Row>
106              <Element>Communications Equipment</Element>
107              <Value>0.0857</Value>
108            </Row>
109            <Row>
110              <Element>Computers &amp; Peripherals</Element>
111              <Value>0.0764</Value>
112            </Row>
113            <Row>
114              <Element>Diversified Financials</Element>
115              <Value>0.0724</Value>
116            </Row>
117            <Row>
118              <Element>Industrial Conglomerates</Element>
119              <Value>0.0581</Value>
120            </Row>
121            <Row>
122              <Element>Diversified Telecommunication Services</Element>
123              <Value>0.058</Value>
124            </Row>
125            <Row>
126              <Element>Software</Element>
127              <Value>0.056</Value>
128            </Row>
129            <Row>
130              <Element>Other</Element>
131              <Value>0.5002</Value>
132            </Row>
133            <Row>
134              <Element>Cash &amp; Cash Equivalents</Element>
135              <Value>-0.0012</Value>
136            </Row>
137          </PortfolioDistribution>
138          <PortfolioDistribution type="SB" date="09/30/2000">
139            <Row>
140              <Element>Information Technology</Element>
141              <Value>0.2964</Value>
142            </Row>
143            <Row>
144              <Element>Financials</Element>
145              <Value>0.154</Value>
146            </Row>
147            <Row>
148              <Element>Health Care</Element>
149              <Value>0.1265</Value>
150            </Row>
151            <Row>
152              <Element>Consumer Discretionary</Element>
153              <Value>0.1026</Value>
154            </Row>
155            <Row>
156              <Element>Industrials</Element>
157              <Value>0.0874</Value>
158            </Row>
159            <Row>
160              <Element>Telecommunication Services</Element>
161              <Value>0.0632</Value>
162            </Row>
163            <Row>
164              <Element>Consumer Staples</Element>
165              <Value>0.0575</Value>
166            </Row>
167            <Row>
168              <Element>Other</Element>
169              <Value>0.1136</Value>
170            </Row>
171            <Row>
172              <Element>Cash &amp; Cash Equivalents</Element>
173              <Value>-0.0012</Value>
174            </Row>
175          </PortfolioDistribution>
176        </Composition>
177      </Request>
178    </Report>
179  </Body>
180</Envelope>
181
182