sub read_data{
  my ($Section, $Parameter) = @_;
  if (exists $Data{$Section}{$Parameter}) {
    return $Data{$Section}{$Parameter};
  } else { 
    write_errorlog("ERROR by reading Data : $Section - $Parameter -> Not found!","2");
    return undef;
  }
}