separate (Inquiry_Operations.Select_Attributes.Query_Options)
procedure Select_Value (Index : Category_Type) is
begin
    case Index is
        when Architecture =>
            for Value in Schema.Architecture_Category_Type loop
                if Answer (Schema.Architecture_Category_Type'Image (Value)) then
                    Attribute_Options.Set_Query (Value);
                    exit;
                end if;
            end loop;
        when E_And_V =>
            for Value in Schema.E_And_V_Criterion_Abbreviation_Type loop
                if Answer (Schema.E_And_V_Criterion_Abbreviation_Type'Image
                              (Value)) then
                    Attribute_Options.Set_Query (Value);
                    exit;
                end if;
            end loop;
        when Language_Feature =>
            for Value in Schema.Language_Feature_Abbreviation_Type loop
                if Answer (Schema.Language_Feature_Abbreviation_Type'Image
                              (Value)) then
                    Attribute_Options.Set_Query (Value);
                    exit;
                end if;
            end loop;
        when Statistics =>
            for Value in Schema.Statistics_Type loop
                if Answer (Schema.Statistics_Type'Image (Value)) then
                    Attribute_Options.Set_Query (Value);
                    exit;
                end if;
            end loop;
        when Version =>
            for Value in Schema.Version_Type loop
                if Answer (Schema.Version_Type'Image (Value)) then
                    Attribute_Options.Set_Query (Value);
                    exit;
                end if;
            end loop;
    end case;
end Select_Value;
--*****************************************************************************