sub i_get_fwerte { ################################################################
$a_debug.= "<i>A sub i_get_fwerte</i><br /><ul>";
#Aufruf: &i_get_fwerte('db' => 'dbname', 'dsn' => 'Datensatznummer');
# ............................................................ #
 my ($fname, $workdb_feldliste, $db, $dsn, @workdb_feldliste,
    %iparas, %h_fwerte,
    ) = undef;
# ............................................................ #
 %iparas = @_;
#. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .#
    if (defined $iparas{'db'} && defined $iparas{'dsn'}){
    $db = $iparas{'db'}; $dsn = $iparas{'dsn'};
    get "Id==!$dsn range=0,1", $db, "holfwerte";
    @$workdb_feldliste = &i_get_feldliste('db'=>$db);
    foreach $fname (@workdb_feldliste) {
       $h_fwerte{$fname} = $$fname; # Hash mit Feldnamen/Feldwerten des Datensatzes
       $a_debug.= "\$fname($fname) - \$$fname($$fname)<br>";
    } # E foreach
   } else {
      return undef;
   }
$a_debug.= "</ul><i>E sub i_get_fwerte</i><br />";
return \%h_fwerte;
} ################################################################
# ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ #
sub i_get_feldliste { ################################################################
$a_debug.= "<i>A sub i_get_feldliste</i><br /><ul>";
# Aufruf: &i_get_feldliste('db' => 'dbname')
# ............................................................ #
my ($db,@workdb_feldliste,$feldname,$feldwert,
 ) = undef;
# ............................................................ #
%iparas = @_;
#. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .#
   if (defined $iparas{'db'}){
   get "Id=* range=0,1", $db, "holfeldiste";
      while(get_next("holfeldliste")){
         while( ($feldname,$feldwert) = each %_loop){
     push @workdb_feldiste, $feldname;
  }
      }
   } else {
     return undef;
   }
$a_debug.= "</ul><i>E sub i_get_feldliste</i><br />";
return \@workdb_feldiste;
}################################################################