Как узнать какие классы принадлежат указанному пакету?

Спасибо, то что нужно, только подскажите как сделать этот запрос в программе?

Спасибо, очень выручил!!

подскажите пожалуйста, а как получить подпакеты указанного пакета?

krvsa,

Возможно я неправильно сформулировал, подразумевалось как узнать какие пакеты находятся в данном пакете

Я нашел как это сделать:

s key=""
for { s package = ##class(%Dictionary.PackageDefinition).GetPackageList().GetNext(.key) Q:key=""
if $find(package,packageName_".") {w !, package}
}

Если есть ещё способы, пишите, очень интересно узнать

Решил похвастаться, да не тут то было. Моя версия выдает названия пакетов, все буквы которых находятся в верхнем регистре.А мне нужно как записано.
Пример на рисунке.
Вопрос все тот же, помогите разобраться, очень нужно

В принципе посмотрел код класса %ResultSet переделал. получилось вот так:

#include %occStatus
#Include %soap
New rs,columns,%sc,i,execute,i
Set rs=##class(%ResultSet).%New("%Dictionary.PackageDefinition:SubPackage")

Set execute="Set %sc=$method(rs,""Execute"""
Set execute=execute_",.namePackage"
Set execute=execute_")"
Xecute execute

If $$$ISERR(%sc) Do DisplayError^%apiOBJ(%sc) Quit

Set columns=rs.GetColumnCount()
For Quit:rs.Next(.%sc)=0 if $$$ISOK(%sc) { Write ! For i=1:1:columns Write rs.GetData(i) } else { quit }
if $$$ISERR(%sc) do $system.OBJ.DisplayError(%sc)
Quit
q

Alexey MaslovAdylov Timur,

Зачем делать так:


когда можно так:



в принципе я так и сделал, просто этот код я содрал из класса %ResultSet

Alexey MaslovАлександр Коблов,

Полностью согласен :)
Просто хотел показать Тимуру излишество Xecute в данной ситуации, т.к. функции $method, $classmethod и пр. как раз и были придуманы, чтобы не пользоваться Xecut'ом.

Объясните, чем плох Xecute, что его заменили $method и $classmethod. Очень интересно