sub proc_options($)
{
        my $hash = shift;
        my $cnt = grep {ref($_)} (values(%$hash));
        if ($cnt)
        {
                while (my ($k,$v) = each %$hash)
                {
                        &proc_options($v);
                        $hash->{$k} = $v->{'VALUE'} if (exists($v->{'VALUE'}));
                }
                return;
        }
        $hash->{'VALUE'} = $hash->{'VALUE_'.$hash->{'DATATYPE'}};
        delete $hash->{$_} foreach(grep {/VALUE_/} keys(%$hash));
        delete $hash->{$_} foreach(qw(SECTION NAME DISPLAY));
}

sub proc_options($)
{
        my $hash = shift;
        my $cnt = grep {ref($_)} (values(%$hash));
        if ($cnt)
        {
                &proc_options($v) foreach(values(%$hash));
                return;
        }
        ?$hash = $hash->{'VALUE_'.$hash->{'DATATYPE'}};
}