update

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

@@ -0,0 +1,59 @@
+Class Serialize.Example Extends %SerialObject
+{
+
+ClassMethod Main()
+{
+	Do ..Save("/temp/objects.dat")
+	Do ..Load("/temp/objects.dat")
+	Quit
+}
+
+ClassMethod Save(pFilename As %String)
+{
+	// creating objects of base class
+	Set emp1 = ##class(Employee).%New(.id, "Maintenance", "Fritz Schmalstieg")
+	Set emp2 = ##class(Employee).%New(.id, "Maintenance", "John Berry")
+	Set emp3 = ##class(Employee).%New(.id, "Repair", "Pawel Lichatschow")
+	Set emp4 = ##class(Employee).%New(.id, "IT", "Marian Niculescu")
+	
+	// creating objects of derived class
+	Set worker1 = ##class(Worker).%New(.id, "Maintenance", "Laurent Le Chef", 20)
+	Set worker2 = ##class(Worker).%New(.id, "IT", "Srinivan Taraman", 55.35)
+	
+	// put objects into collections
+	Set example = ..%New()
+	Set sc = example.Employees.Insert(emp1)
+	Set sc = example.Employees.Insert(emp2)
+	Set sc = example.Employees.Insert(emp3)
+	Set sc = example.Employees.Insert(emp4)
+	Set sc = example.Workers.Insert(worker1)
+	Set sc = example.Workers.Insert(worker2)
+	
+	// serialize the data and save to a file
+	Set sc=example.%GetSwizzleObject(,.oid)
+	Set fs=##class(%Stream.FileBinary).%New()
+	Set fs.Filename=pFilename
+	Set sc=fs.Write(oid)
+	Set sc=fs.%Save()
+	Quit
+}
+
+ClassMethod Load(pFilename As %String)
+{
+	// read serialized data from file
+	Set fs=##class(%Stream.FileBinary).%New()
+	Set fs.Filename=pFilename
+	Set oid=fs.Read(.len, .sc)
+	
+	// open the example object
+	Set example = ..%Open(oid,, .sc)
+	Do example.Employees.GetAt(1).Print()
+	Do example.Employees.GetAt(3).Print()
+	Do example.Workers.GetAt(2).Print()
+	Quit
+}
+
+Property Employees As list Of Employee;
+Property Workers As list Of Worker;
+
+}