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 & 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 & 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 & 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 & Cash Equivalents</Element> 173 <Value>-0.0012</Value> 174 </Row> 175 </PortfolioDistribution> 176 </Composition> 177 </Request> 178 </Report> 179 </Body> 180</Envelope> 181 182