OB Copy

 var $Object : Object
 var $JsonString : Text

 ARRAY OBJECT($arraySel;0)
 ALL RECORDS([Product])
 While(Not(End selection([Product])))
  OB SET($Object;"id";[Product]ID_Product)
  OB SET($Object;"Product Name";[Product]Product_Name)
  OB SET($Object;"Price";[Product]Price)
  OB SET($Object;"Tax rate";[Product]Tax_rate)
  $ref_value:=OB Copy($Object) //直接複製
  APPEND TO ARRAY($arraySel;$ref_value)
 //$ref_value の中身は $Object の中身と完全に同じ
  NEXT RECORD([Product])
 End while
 //$ref_value の中身
 $JsonString:=JSON Stringify array($arraySel)

 var $ref : Object

 OB SET($ref;"name";->[Company]name) //ポインターを含むオブジェクト
 OB SET($ref;"country";->[Company]country)
 ARRAY OBJECT($sel;0)
 ARRAY OBJECT($sel2;0)

 ALL RECORDS([Company])

 While(Not(End selection([Company])))
  $ref_comp:=OB Copy($ref) // copy without evaluating pointers
 // $ref_comp={"name":"->[Company]name","country":"->[Company]Country"}
  $ref_comp2:=OB Copy($ref;True) //解決済みのポインターを含んだコピー
 // $ref_comp={"name":"4D SAS","country":"France"}
  APPEND TO ARRAY($sel;$ref_comp)
  APPEND TO ARRAY($sel2;$ref_comp2)
  NEXT RECORD([Company])
 End while

 $Object:=JSON Stringify array($sel)
 $Object2:=JSON Stringify array($sel2)

 // $Object = [{"name":"","country":""},{"name":"","country":""},...]
 // $Object2 = [{"name":"4D SAS","country":"France"},{"name":"4D, Inc","country":"USA"},{"name":"Catalan","country":"France"}...]

 var $person;$copy;$sharedObject : Object
 var $text : Text

 $text:=Document to text(Get 4D folder(Current resources folder)+"person.txt")
 $person:=JSON Parse($text) //$person は通常のオブジェクト
 $sharedObject:=New shared object()
 $copy:=OB Copy($person;ck shared) //$copy は共有オブジェクト

 // 共有オブジェクトになったので$sharedObject に入れることが可能
 Use($sharedObject)
  $sharedObject.person:=$copy
 End use

 var $obj;$objWithPtr;$sharedObjWithPtr : Object
 $obj:=New object()

 //$obj はポインターを格納したオブジェクト
 OB SET($obj;"name";->[Persons]name)

 ALL RECORDS([Persons])
 // [Persons] テーブルのカレントレコードがロードされたので、[Persons]name に値がある
 //
 // $obj オブジェクトを、ポインターを解決した状態の通常のオブジェクトとしてコピーしたい場合
 // 以下のように書きます:
 $objWithPtr:=OB Copy($obj;True)
 //
 // $obj オブジェクトを、ポインターを解決した状態の共有オブジェクトとしてコピーしたい場合
 // 以下のように書きます:
 $sharedObjWithPtr:=OB Copy($obj;ck resolve pointers+ck shared)

 var $sharedObj;$objCopy : Object
 var $sharedColl : Collection

 //$sharedObj はある共有グループに所属している
 $sharedObj:=New shared object("lastname";"Smith";"address";New shared object("city";"New York"))
 //$sharedColl は別の共有グループに所属している
 $sharedColl:=New shared collection(New shared object("lastname";"Brown"))

 $objCopy:=OB Copy($sharedObj;ck shared;$sharedColl)
 //$objCopy は$sharedColl と同じ共有グループに属した

 //そのため $objCopy は$sharedColl 同じグループに含めてもエラーは起きない
 Use($sharedColl)
  $sharedColl.push($objCopy)
 End use