yotздраствуйте

необходимо получить список классов, у которых в родителях есть клас XP.EXT.
я написал этот метод, но скорость его выполнения оставляет желать лучшего, не подскажете как можно ускорить этот запрос

ClassMethod ClsCubData()
{
s rs=##class(%ResultSet).%New()
s sc=rs.Prepare("select * from %Dictionary.ClassDefinition where ( Super like '%XP.EXT%')")
d rs.Execute()
s Name = ""
while (rs.Next()){
s Name = Name_"|"_rs.Get("Name")
}
q Name
}
Это неверный способ, поскольку не находит подклассы подклассов.
Правильный способ:
класс %Library.ClassDefinition, запрос SubclassOf