my $dbh = DBI->connect($DB_DSN);

&open_sql("SELECT Feld32,ID FROM READY2 WHERE bearbeitet is NULL",$DB_DSN); #Start MSSQL
while (  $result = $sth->fetchrow_hashref() )
{
            my $ID=$result->{'ID'};
            print "$ID\n";
            my $sth3 = $dbh->prepare("UPDATE READY2 SET bearbeitet=1 WHERE ID=?") or die $dbh->errstr();
            $sth3->execute($ID) or die $dbh->errstr(); 
            $sth3->finish();
            print "erledigt";
            exit;
}

&close_sql; #END MSSQL

$dbh->disconnect();