sub SubAcquisisciDatiCampiEsistenti {					# Chiamata con in INPUT $file,@Databases restituisce \%result
  my $file= shift;
  my @Databases= @_;
  my %result;
  foreach my $Database (@Databases) {
  	my $cmd1 = "adarep db=$Database fdt file=$file ";
  	#print "\n\n $cmd1 \n\n";
		my @ElencoDati= ();
		@ElencoDati = `$cmd1 |grep "  1       I  "`; 
		push (@ElencoDati, `$cmd1 |grep "SUPER"`);
		# my $ClearScr = `clear`;
		my @array1 = ();
		my @ElencoCampi = "";
		foreach (@ElencoDati) {
			@array1 = split /\s+/, $_;
		        push (@ElencoCampi, "$array1[3],$array1[5],$array1[7],$array1[9]");
		        }
		shift (@ElencoCampi);	
		@fields = sort (@ElencoCampi);
		chomp @fields;
		print "\n Elenco Campi Assegnati sul file $file del DB $Database Ordinati \n";
		foreach (@fields) {
		print "$_\n";
		}		
		print "\nL'ultimo campo utilizzato sul file $file del database $Database e: ", $fields[$#fields],"\n\n\n";
		my @Caratteri = split (//,$fields[$#fields]);
		print "\n";
		my $PrimaLettera = ord $Caratteri[0];
		print "Il valore numerico nella tabella ASCII della prima lettera e: $PrimaLettera\n\n";
		my $SecondaLettera = ord $Caratteri[1];
		print "Il valore numerico nella tabella ASCII della seconda lettera e: $SecondaLettera\n\n";
		print "\n\n";
		
		if ( $SecondaLettera < 90 ) {
			$SecondaLettera+=1;
			push (@nextfield, chr($PrimaLettera).chr($SecondaLettera));
			# print "\n\nIl prossimo campo disponibile e: $ProssimoCampo\n\n";
			}	

		if ( $SecondaLettera == 90 ) {
			$PrimaLettera+=1;
			$SecondaLettera=65;
			push (@nextfield, chr($PrimaLettera).chr($SecondaLettera));
			#$nextfield = chr($PrimaLettera).chr($SecondaLettera);
			# print "\n\nIl prossimo campo disponibile e: $ProssimoCampo\n\n";
			}
				
  	print Dumper(\$Database,\@nextfield,\@fields);
 	  
 	  $result{$Database}{next}= \@nextfield;
    $result{$Database}{fields}= \@fields;
    }
  return \%result;
}