PublicationLocationData_Sandbox.xq

xquery version "3.1";
declare namespace marc="http://www.loc.gov/MARC21/slim";

let $records := fn:doc("https://raw.githubusercontent.com/sterkenburgsara/MARCXML-projects/master/Artists'%20Books/artistsbk.xml")//marc:collection/marc:record

let $csv :=
  element recordset{
    for $individual in $records

    let $header := $individual/marc:controlfield[@tag='008']/text()
    let $publoc := fn:substring($header,16,3)
      where $publoc = ("alu", "aru", "dcu", "deu", "flu", "gau", "kyu", "lau", "mdu", "msu", "oku", "ncu", "scu", "tnu", "txu", "vau", "wvu", "xx ")
      return $publoc

return element record {
     element pub_loc {$publoc},
    }
  }
  let $serialize := csv:serialize ($csv, map { 'header': true(), 'separator':'comma'})
 return $serialize