$Beg = datum($Beginn,"Stunde.Minute"); 
#
get "sort=Datum,Bundesl,Ort Bundesl~=* Kategorie~=* Ort~=*", "$dbf";
$fzeit_a_ort = "1.$mon.$jar";
while(get_next("$dbf"))
{if (datum($Datum, "intern") ge datum($fzeit_a_ort, "intern"))
    {
    push @opBundesl, $Bundesl if index("@opBundesl", "$Bundesl")<0;
    }
if (datum($Datum, "intern") ge datum($fzeit_a, "intern") && datum($Datum, "intern") le datum($fzeit_e, "intern") && (($Kategorie=~/(^$fkat)+/) && ($Bundesl=~/(^$flk)+/)&& ($Ort=~/(^$fort)+/)))
  {
  $cnt_ds++;
  $anz_Datum = datum("$Datum", "Wochentag, Tag.Monat.Jahr"); # Datumausgabe formatieren
  $anz_atab.=<<EOF;
        <!-- Tabelle f. Einzeldatensatz Nr. $cnt_ds -->
        <table cellspacing="0" cellpadding="0" width=98% align=center>
                            <tr>
                <td colspan=2 class=klein bgcolor=$fg><span class=$tf><b>&nbsp;$anz_Datum</b>&nbsp;um&nbsp;<b>$Beg</b>&nbsp;&nbsp;in&nbsp;<b>$Ort</b></span>