<perl>

  {
   get "Datum<jetzt","termin", "lesen"; 
   while (get_next("lesen")) 
        {
         put                          ["Kategorie",$Kategorie,"Datum",$Datum,"Beginn",$Beginn,"Bundesl",$Bundesl,"Ort",$Ort,"Beschreibung",$Beschreibung,"Eingetragenvon",$Eingetragenvon,"EMail",$Email,"Link",$Link],"termin_archiv";
         del "Id==$_id","termin"; 
        }
  }

<perl>

  {
   get "Datum<jetzt","termin"; 
   while (get_next("termin")) 
        {
         put                          ["Kategorie",$Kategorie,"Datum",$Datum,"Beginn",$Beginn,"Bundesl",$Bundesl,"Ort",$Ort,"Beschreibung",$Beschreibung,"Eingetragenvon",$Eingetragenvon,"EMail",$Email,"Link",$Link],"termin_archiv";
        }
   del "Datum<jetzt","termin"; 
  }