For Mark S.

BP.xqy

xquery version "3.1";

let $docs := fn:collection("bpp-quarterly")
let $csv := element csv {
for $doc in $docs/Record
return
  <record>
    <title>{$doc/RecordTitle/text()}</title>
    <publication>{$doc/Publication/Title/text()}</publication>
    <volume>{$doc/Volume/text()}</volume>
    <issue>{$doc/Issue/text()}</issue>
    <date>{$doc/AlphaPubDate/text()}</date>
    <pages>{$doc/Pagination/text()}</pages>
    <link>{$doc/URLDocView/text()}</link>
    <text>{$doc/FullText/text()}</text>
  </record>}
return csv:serialize($csv)