Блок А.Н.В предыдущих версиях было вроде бы _id и _classname, поэтому искал что-то подобное.Забудьте: всё течёт, всё меняется, как подтвердил Timur Safin.
Вот обновлённый пример для 2016.3:Class test.demo Extends %Persistent
{
Property f As %String;
ClassMethod Test()
{
#Define extentData @$$$defMemberKeyGet($this,$$$cCLASSstorage,$$$nameDefaultStorageNameGet,$$$cSDEFdatalocation)
k $$$extentData
s obj=..%New()
s obj.f="a"
d obj.%Save()
zw $$$extentData
s jsonStr=obj.$toJSON()
w !,jsonStr,!!
s json=({}).$fromJSON(jsonStr)
s json.f="bbb"
d ##class(%ComposeUtil).$mapObjectToRegistered({"f":"aaa"},..%New()).%Save()
d ##class(%ComposeUtil).$mapObjectToRegistered(json,obj).%Save()
/*
; или
d ..%FromObject({"f":"aaa"},..%New()).%Save()
d ..%FromObject(json,obj).%Save()
*/
/*
; или
d ({"f":"aaa"}).$compose({"mode":"lax","returnValue":..%New()}).%Save()
d json.$compose({"mode":"lax","returnValue":obj}).%Save()
*/
zw $$$extentData
}
}
Результат:
USER>d ##class(test.demo).Test()
^test.demoD=1
^test.demoD(1)=$lb("","a")
{"$CLASSNAME":"test.demo","$REFERENCE":"1","f":"a"}
^test.demoD=2
^test.demoD(1)=$lb("","bbb")
^test.demoD(2)=$lb("","aaa")
Т.е. Вы можете на основе JSON(-строки/-объекта) добавить/обновить хранимый объект, причём разными способами.
PS: кроме того в классе ComposeUtil есть много других разных полезных методов, в частности:mapGenericObjectToAbstractObject
1.
2.
3.
4.
5.
6.
7.
8.
/// This mapper accepts any object (oref) and returns an %AbstractObject. This is just a dispatcher that invokes the most reasonable mapper depending on the
/// type information gathered from the source object.
SystemClassMethod mapGenericObjectToAbstractObject(
source As %CacheString,
target As %Library.AbstractObject = "",
laxMode As %Integer = 1,
asReference As %Integer = 1,
nested As %Integer = 0) As %Library.AbstractObject
{
