use strict;
my $file = "";
my $Database = "";
print "Inserire il Numero del file da analizzare: ";
$file = <>;
chomp $file;
print "\n";
print "Inserire il Numero del Database su quale si vuole fare l'analisi: ";
$Database = <>;
chomp $Database;
print "\n";
my $cmd1 = "adarep db=$Database fdt file=$file ";
my @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]);
}
my @ElencoCampiOrdinati = sort @ElencoCampi; # SORTED ARRAY OF FIELDS
print "\n Elenco Campi Assegnati sul file $file del DB $Database Ordinati \n";
foreach (@ElencoCampiOrdinati) {
print "$_\n";
}
print "\nL'ultimo campo utilizzato sul file $file del database $Database e: ", $ElencoCampiOrdinati[$#ElencoCampiOrdinati],"\n\n\n";
my $UltimoCampo = $ElencoCampiOrdinati[$#ElencoCampiOrdinati];
chomp $UltimoCampo;
my @Caratteri = split (//,$UltimoCampo);
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";
if ( $SecondaLettera < 90 ) {
$SecondaLettera+=1;
my $ProssimoCampo = chr ($PrimaLettera).chr($SecondaLettera);
print "\n\nIl prossimo campo disponibile e: $ProssimoCampo\n\n"; # THIS IS NEXT AVAILABLE FIELD
}
if ( $SecondaLettera == 90 ) {
$PrimaLettera+=1;
$SecondaLettera=65;
my $ProssimoCampo = chr ($PrimaLettera).chr($SecondaLettera);
print "\n\nIl prossimo campo disponibile e: $ProssimoCampo\n\n";
}
#END

##</code><code>##

my $hostname = `hostname`;
my $Environment;
my @Databases;
my $AdabasScriptDir;
my $AdabasProductionScript;

if ( $hostname =~ /itrmsl12/ ) {
$Environment = "SVILUPPO";
@Databases = ("5","6");
$AdabasScriptDir = "/opt/app1vg/appl/script/Utility/sag/adabas/";
}

if ( $hostname =~ /itrmcl01/ ) {
$Environment = "COLLAUDO";
@Databases = ("2","27","37");
$AdabasScriptDir = "/opt/app1vg/appl/script/Utility/sag/adabas/";
}

##</code><code>##

%Databases (
"2" => (@ElencoCampiOrdinati), ($ProssimoCampo)
"27" => (@ElencoCampiOrdinati), ($ProssimoCampo)
"37" => (@ElencoCampiOrdinati), ($ProssimoCampo)
)