# Knoten
        if (($_[0]==0) || ($_[0]==1)) {
                %hKnoten = ();                  # Hash leeren

                # Tabelle Knoten abfragen
                $sql = "SELECT Knoten.KID, Knoten.Name from Knoten;";
                $sth = $dbh->prepare($sql); Fehler("Fehler Hash Knoten: $DBI::errstr", 0) if $DBI::err; # SQL-Befehl zur Datenbank schicken
                $sth->execute(); Fehler("Fehler Hash Knoten: $DBI::errstr", 0) if $DBI::err;            # SQL-Befehl ausführen

                # Ergebnis abholen und in Datei ausgeben
                while (@fields = $sth->fetchrow_array()) {
                        # Hash erstellen
                        $hKnoten{"$fields[1]"}=$fields[0];
                }

                $sth->finish();
        }

        # Priority
        if (($_[0]==0) || ($_[0]==2)) {
                %hPriority = ();                        # Hash leeren

                # Tabelle Priority abfragen
                $sql = "SELECT Priority.PID, Priority.Priority from Priority;";
                $sth = $dbh->prepare($sql); Fehler("Fehler Hash Priority: $DBI::errstr", 0) if $DBI::err;       # SQL-Befehl zur Datenbank schicken
                $sth->execute(); Fehler("Fehler Hash Priority: $DBI::errstr", 0) if $DBI::err;          # SQL-Befehl ausführen

                # Ergebnis abholen und in Datei ausgeben
                while (@fields = $sth->fetchrow_array()) {
                        # Hash erstellen
                        $hPriority{"$fields[1]"}=$fields[0];
                }

                $sth->finish();
        }

        # Fehler
        if (($_[0]==0) || ($_[0]==3)) {
                %hFehler = ();                  # Hash leeren

                # Tabelle Fehler abfragen
                $sql = "SELECT Fehler.FID, Fehler.Fehler from Fehler;";
                $sth = $dbh->prepare($sql); Fehler("Fehler Hash Fehler: $DBI::errstr", 0) if $DBI::err; # SQL-Befehl zur Datenbank schicken
                $sth->execute(); Fehler("Fehler Hash Fehler: $DBI::errstr", 0) if $DBI::err;            # SQL-Befehl ausführen

                # Ergebnis abholen und in Datei ausgeben
                while (@fields = $sth->fetchrow_array()) {
                        # Hash erstellen
                        $hFehler{"$fields[1]"}=$fields[0];
                }

                $sth->finish();
        }

        # Karten
        if (($_[0]==0) || ($_[0]==4)) {
                %hKarten = ();                  # Hash leeren

                # Tabelle Karten abfragen
                $sql = "SELECT Karten.KTyp, Karten.Typ from Karten;";
                $sth = $dbh->prepare($sql); Fehler("Fehler Hash Karten: $DBI::errstr", 0) if $DBI::err; # SQL-Befehl zur Datenbank schicken
                $sth->execute(); Fehler("Fehler Hash Karten: $DBI::errstr", 0) if $DBI::err;            # SQL-Befehl ausführen

                # Ergebnis abholen und in Datei ausgeben
                while (@fields = $sth->fetchrow_array()) {
                        # Hash erstellen
                        $hKarten{"$fields[1]"}=$fields[0];
                }

                $sth->finish();
    }