пример
Class test.b Extends %Persistent
{

Property p1 As %String;

Property p2 As %String;

}

Class test.a Extends %Persistent
{

Property field As list Of test.b;

ClassMethod Fill()
{
  do ##class(test.a).%KillExtent()
  do ##class(test.b).%KillExtent()
  
  set a=##class(test.a).%New()
  for i=1:1:10 {
    set b=##class(test.b).%New()
    set b.p1="p1_"_i
    set b.p2="p2_"_i
    do a.field.Insert(b)
  }
  do a.%Save()
}

}

select (select p2 from test.b where %ID=$list($list(field,7),1)) from test.a --результат: p2_7