DECLARE
   CURSOR attractions_key IS 
      SELECT DISTINCT county_name
      FROM attraction;


   xmlref REF XMLType;
   result BOOLEAN;
BEGIN
      FOR key_rec IN attractions_key LOOP

      SELECT MAKE_REF(attraction_xml, key_rec.county_name)

      INTO xmlref
      FROM dual;

      result := DBMS_XDB.createResource(
                '/ATTRACTIONS/' || key_rec.county_name || '.xml'
                ,xmlref);
      END LOOP;

END;
/