separate (Inquiry_Operations.Select_Attributes.Query_Options)
procedure Display_Value (Index : Category_Type) is
begin
    Put (" Current Value is ");
    case Index is
        when Architecture =>
            Put_Line (Schema.Architecture_Category_Type'Image
                         (Attribute_Options.Value));
        when E_And_V =>
            Put_Line (Schema.E_And_V_Criterion_Abbreviation_Type'Image
                         (Attribute_Options.Value));
        when Language_Feature =>
            Put_Line (Schema.Language_Feature_Abbreviation_Type'Image
                         (Attribute_Options.Value));
        when Statistics =>
            Put_Line (Schema.Statistics_Type'Image (Attribute_Options.Value));
        when Version =>
            Put_Line (Schema.Version_Type'Image (Attribute_Options.Value));
    end case;
end Display_Value;
--*****************************************************************************