for (@f) {
my $n = DXDb::newstream($self->call);
DXProt::route(undef, $db->remote, DXProt::pc44($main::mycall, $db->remote, $n, uc $db->name,uc $_, $self->call));
for (@f) {
my $n = DXDb::newstream($self->call);
DXProt::route(undef, $db->remote, DXProt::pc44($main::mycall, $db->remote, $n, uc $db->name,uc $_, $self->call));