update

Task/Object-serialization/Cache-ObjectScript/object-serialization-1.cos

@@ -0,0 +1,26 @@
+Class Serialize.Employee Extends %SerialObject
+{
+
+Method %OnNew(ByRef pId As %Integer = 0, pDepartment As %String, pName As %String) As %Status
+{
+	Do ..IDSet(pId)
+	Set pId=pId+1
+	Do ..DepartmentSet(pDepartment)
+	Do ..NameSet(pName)
+	Quit $$$OK
+}
+
+Method Print()
+{
+	Write "[", ..%ClassName(), "]", !
+	Write "- ID: "_..IDGet(), !
+	Write "- Name: "_..NameGet(), !
+	Write "- Department: "_..DepartmentGet(), !
+	Quit
+}
+
+Property ID As %Integer [ Private ];
+Property Name As %String [ Private ];
+Property Department As %String [ Private ];
+
+}