node = data1_mk_node2(gri->dh, gri->mem, DATA1N_data, root_node);
node = data1_mk_tag(gri->dh, gri->mem, "pr_name_gn", 0, node);
data1_mk_text_n(gri->dh, gri->mem, csvp->buf, read_bytes, node);
node = data1_mk_node2(gri->dh, gri->mem, DATA1N_data, root_node);
node = data1_mk_tag(gri->dh, gri->mem, "pr_name_gn", 0, node);
data1_mk_text_n(gri->dh, gri->mem, csvp->buf, read_bytes, node);