sub old_set_screen_value { my $self = shift; my $field_tag = shift; my $val = shift;

warn "entering set_screen_value\n" if $::TRACE;

my $app = $self->{app_object};
my $fl  = $self->{global_field_list}->clone_list;

$fl->reset;
while ( my $f = $fl->iterate_list ) {

    my $nof = $self->{number_of_forms};
    my $i   = 0;
    while ( $i < $nof ) {

        my $form = $app->getForm( "Run" . $i );

        my $subform = $form->getSubform('DBForm');
        my $w       = $subform->getWidget($field_tag);

        if ( defined($w) ) {
            $w->setField( 'VALUE', $val );
            warn "leaving set_screen_value 1\n" if $::TRACE;
            return;
        }
        $i++;
    }
}
warn "leaving set_screen_value 2\n" if $::TRACE;
return undef;
}