foreach my $table ( @AllTables)
{
    my @locked;    # locked entries
    my $cmd=sprintf "\@locked=LRE::%s->retrieve_from_sql('locked<>0')", ucfirst lc $table;
    printf "$cmd\n";
    eval  $cmd;
    print @_;
    foreach my $row(@locked) {
        printf "$table %6d %s\n", $row->sysid, $row->name ;
    }
}