@values = $rc->{parameters}->{$key}->{value};
my %valeur = %{$values[0][0]};

my @fields = keys(%valeur);
my $nb_fields = scalar(@fields);

for my $i (0 .. $nb_fields-1) {
    ${$struc_ref}[$i] = $fields[$i];
}

#recuperation of the number of rows retrieved by the function-module
my $nb_lignes = scalar(@{$values[0]});
#recuperation of the number of rows already in the table
my $nb_lignes_base = scalar(@{$table_ref});

#display of data (for control)
for my $i (0 .. $nb_lignes-1){      #number of rows retrieved by th F-M
    for my $j (0 .. $nb_fields-1){      #number of fields in the table
        #storing data in a table
        ${$table_ref}[$nb_lignes_base+$i][$j] = $values[0][$i]{$fields[$j]};
    }
}