LRE::Mytable->retrieve_from_sql('locked<>0')

##</code><code>##

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 ;
    }
}

##</code><code>##

DBD::DB2::db prepare_cached failed: [IBM][CLI Driver][DB2/NT] SQL0954C  not enough memory (Application Heap) SQLSTATE=57011