foreach $mnrow (@mndata)
       {
            @mnarray = split (/::/, $mnrow);
           $termin     = 0;
           
           if ($mnrow ne "\n")
           {
               @dbarray = ();
            foreach $dbrow (@dbdata) 
            {
               
 @dbarray = split (/::/,  $dbrow);

 print "------------------\nCheck for Alter:\n------------------\n$mnarray[1] 03:00:00\n vs \n$dbarray[1]\n";

               
 #abgleich der Einsatztermine
               
 if ($dbarray[1] eq $mnarray[1]." 03:00:00")
               
 { # gleiche Termine 
               
   # vergleichen der Daten und ggf. Änderung einschreiben 
               
     if (
               
             $dbarray[2] ne "$mnarray[15] 18:00:00" # QS-Anfang
               
         ||  $dbarray[3] ne "$mnarray[16] 18:00:00" # QS-Ende
               
         ||  substr($dbarray[4],0,length($mnarray[2])) ne $mnarray[2]           # Bemerkung    
               
        )
               
     {
               
         &alterSD ($dbarray[0], $mnarray[1], $mnarray[15], $mnarray[16], $mnarray[2]);
               
         print "altering $dbarray[0] in SEDIS\n";
               
     }
               
     $termin     = 1;
               
 }
            }
        }
        
        if ($termin == 0)
        { # ist der Termin nicht vorhanden, wird der Eintrag erzeugt
            &addToSD($mnarray[1], $mnarray[15], $mnarray[16], $mnarray[2]);
            print "adding $mbarray[1] to SEDIS\n";
        }
    }