<perl>

  @liste;
  $"=' ';
  get "Id==* sort=d_okey,dtyp", "../bgd/bgdata";

  while (get_next("../bgd/bgdata"))
       {
        if (index(" @liste "," $d_okey ")<0)
           {
            push (@zahl, $i) if $_loop != 0;
            $i=0; 
 
            push (@liste, $d_okey);

            $i++;
            }
         else
            {
             $i++;
            }
         }

  push (@zahl, $i);

  ##### Ausgabe der Liste in der nur jedes Element 1x vorkommt
  out "<TABLE BORDER=1>";

  $x=0;
  foreach $liste (@liste)
      {
       get "o_okey==$liste o_okey2==1", "../bgd/bgorte";
       out "<TR><TD>$o_kreis</TD>";                        # Kreis
       out "<TD>$liste ";                                  # Ortsschlüssel
       if (($o_okey eq $liste) && ($o_okey2 eq "1"))
          {
           out "$o_ortgesamt  ";                           # Ortsname
          }
       else
          {
           out "kein Ort!  ";                              # Ortsname not found
          }
       out "</TD><TD ALIGN='RIGHT'> ($zahl[$x]) </TD></TR>";                      # Anzahl Adressen
       $x++; 
      }

  out "</TABLE>";

</perl>