Имеется два одинаковых класса
Class test.CLS1 Extends %Persistent
{
Property A As %String;
Property B As%String;
Property C As %String;
Property D As%String;
}
Class test.CLS2 Extends %Persistent
{
Property A As %String;
Property B As%String;
Property C As %String;
Property D As%String;
}
Задача: обновить поля класса test.CLS1 полями класса test.CLS2 (поля по списку: A,C,D)
пытаюсь сделать так:

/// ID1 - ID класса test.CLS1
/// ID2 - ID классаtest.CLS2
/// ListFields - список полей для обновления (поля по списку: A,C,D)

ClassMethod UpdateTour(ID1 As %Integer,ID2 As %Integer, ByRef ListFields As %String) As %Status
{
s status = $$$OK
s objBT = ##class(test.CLS1).OpenId(ID1)
s objNT = ##class(test.CLS2).%OpenId(ID2)
if (objBT="")||(objNT="") q 0
if $l(ListFields,",")>1 {
f i=1:1:$l(ListFields,",") {
s command = "s objBT."_$p(ListFields,",",i)_" = objNT."_$p(ListFields,",",i)
w !,command
x command
}
s status = objBT.%Save()
q:$$$ISERR(status) status
}
q $$$OK
}

Выдает ошибку:
s objBT.A = objNT.A
^
<UNDEFINED>zUpdateTour+16^test.CLS1 *objBT

Вопрос: как сделать чтоб такой синтаксис работал? возможно ли вообще это?

Всем спасибо!

сделал следующим образом

f i=1:1:$l(ListFields,",") {
s $ZOBJPROPERTY(objBT,$p(ListFields,",",i)) = $ZOBJPROPERTY(objNT,$p(ListFields,",",i))
}

заработало на ура