print "$tname: fetching ", $pos+1, " of $size\n";
my $tmp = Net::Z3950::ZOOM::resultset_record($r[$i], $pos);
if (!defined $tmp) {
print "$tname: can't get record ", $pos+1, "\n";
next;
}
print "$tname: fetching ", $pos+1, " of $size\n";
my $tmp = Net::Z3950::ZOOM::resultset_record($r[$i], $pos);
if (!defined $tmp) {
print "$tname: can't get record ", $pos+1, "\n";
next;
}