+ ZEBRA_RES res = ZEBRA_FAIL;
+ zebra_rec_keys_t keys = zebra_rec_keys_open();
+ zebra_rec_keys_set_buf(keys, rec->info[recInfo_delKeys],
+ rec->size[recInfo_delKeys], 0);
+
+ *no_keys = 0;
+ if (!zebra_rec_keys_rewind(keys))
+ {
+ ;
+ }
+ else
+ {
+ size_t slen;
+ const char *str;
+ struct it_key key_in;
+ int no_long_dict_entries = 0;
+ int no_failed_dict_lookup = 0;
+ int no_invalid_keys = 0;
+ NMEM nmem = nmem_create();
+
+ while (zebra_rec_keys_read(keys, &str, &slen, &key_in))
+ {
+ int do_log = 0;
+ int ord = CAST_ZINT_TO_INT(key_in.mem[0]);
+ char ord_buf[IT_MAX_WORD+20];
+ int ord_len = key_SU_encode(ord, ord_buf);
+ char *info = 0;
+
+ (*no_keys)++;
+
+ if (ord_len + slen >= sizeof(ord_buf)-1)
+ {
+ if (verbose_level >= 1)
+ {
+ /* so bad it can not fit into our ord_buf */
+ yaz_log(YLOG_WARN, "Record " ZINT_FORMAT
+ ": long dictionary entry %d + %d",
+ rec->sysno, ord_len, (int) slen);
+ }
+ ++no_long_dict_entries;
+ continue;
+ }
+ memcpy(ord_buf + ord_len, str, slen);
+ ord_buf[ord_len + slen] = '\0';
+ if (ord_len + slen >= IT_MAX_WORD)
+ {
+ if (verbose_level >= 1)
+ {
+ do_log = 1;
+ yaz_log(YLOG_WARN, "Record " ZINT_FORMAT
+ ": long dictionary entry %d + %d",
+ rec->sysno, (int) ord_len, (int) slen);
+ }
+ ++no_long_dict_entries;
+ }
+ info = dict_lookup(zh->reg->dict, ord_buf);
+ if (!info)
+ {
+ if (verbose_level >= 1)
+ {
+ do_log = 1;
+ yaz_log(YLOG_WARN, "Record " ZINT_FORMAT
+ ": term do not exist in dictionary", rec->sysno);
+ }
+ no_failed_dict_lookup++;
+ }
+ if (key_in.len < 2 || key_in.len > 4)
+ {
+ if (verbose_level >= 1)
+ {
+ yaz_log(YLOG_WARN, "Record " ZINT_FORMAT
+ ": unexpected key length %d",
+ rec->sysno, key_in.len);
+ do_log = 1;
+ }
+ no_invalid_keys++;
+ }
+ if (do_log)
+ {
+ zebra_it_key_str_dump(zh, &key_in, str,
+ slen, nmem, YLOG_LOG);
+ nmem_reset(nmem);
+ }
+ }
+ if (!no_long_dict_entries && !no_failed_dict_lookup && !no_invalid_keys)
+ res = ZEBRA_OK;
+ nmem_destroy(nmem);
+ }
+ zebra_rec_keys_close(keys);
+ return res;