Index: JCL_StressTest.prj.xml
===================================================================
diff -u
--- JCL_StressTest.prj.xml (revision 0)
+++ JCL_StressTest.prj.xml (revision 1394)
@@ -0,0 +1,12 @@
+
+
+
+
+
+
+
+
+
+
+
+
Index: zStressTest.mac.rou
===================================================================
diff -u
--- zStressTest.mac.rou (revision 0)
+++ zStressTest.mac.rou (revision 1394)
@@ -0,0 +1,83 @@
+#include %VHMacro
+
+
+ExecQuery(Query)
+ DO DISABLE^%NOJRN
+ do StartTimer^vhLib
+ new rs set rs = ##class(%ResultSet).%New("%DynamicQuery:SQL")
+ do rs.Prepare(Query)
+ do rs.Execute()
+ do StopTimer^vhLib
+ set rs = ""
+ do ##class(zStressTest.StressTest).StoreInterval("W",$piece(Query," ",1),$$GetInterval^vhLib())
+ quit
+
+MergeData(ClassNr)
+ DO DISABLE^%NOJRN
+ do StartTimer^vhLib
+ set FromGlobal = "^zStressTest.PopClass"_ClassNr_"D"
+ set ToGlobal = "^zStressTest.PopClass"_ClassNr_"DBackup"
+ Merge @ToGlobal=@FromGlobal
+ Kill @ToGlobal
+ do StopTimer^vhLib
+ do ##class(zStressTest.StressTest).StoreInterval("W","Merging "_ClassNr,$$GetInterval^vhLib())
+ quit
+
+ExecSelectQuery(Query)
+ do StartTimer^vhLib
+ new rs ,id,ctr
+ set rs = ##class(%ResultSet).%New("%DynamicQuery:SQL")
+ do rs.Prepare(Query)
+ do rs.Execute()
+ while rs.Next() {
+ set id = rs.GetData(1)
+ set ctr=$i(ctr)
+ }
+ do StopTimer^vhLib
+ set rs = ""
+ do ##class(zStressTest.StressTest).StoreInterval("R",$piece(Query," ",1)_"(# "_+$get(ctr)_")",$$GetInterval^vhLib())
+ quit
+
+
+PopulateData(ClassNr,Amount)
+ DO DISABLE^%NOJRN
+ do StartTimer^vhLib
+ set Class = "zStressTest.PopClass"_ClassNr
+ do $zobjClassMethod(Class,"Populate",Amount)
+ do StopTimer^vhLib
+ do ##class(zStressTest.StressTest).StoreInterval("W","Populate Class"_ClassNr_" : "_Amount,$$GetInterval^vhLib())
+
+ quit
+
+
+ReadGlobals(Namespace,Prefix)
+
+ new CurrentNamespace
+ set CurrentNamespace = $$$NSpace
+
+ znspace Namespace
+
+ new Global,QGlobal,Data
+ do StartTimer^vhLib
+
+ set Global=Prefix
+ for { set Global = $order(^$GLOBAL(Global)) quit:('$$$StartsWithVar(Global,Prefix))
+ write Global,!
+ set QGlobal=Global
+ for { set QGlobal = $query(@QGlobal) quit:QGlobal=""
+ set Data = $get(@QGlobal)
+ }
+ }
+ do StopTimer^vhLib
+
+ znspace CurrentNamespace
+
+ do ##class(zStressTest.StressTest).StoreInterval("R","Lezen globals "_Prefix,$$GetInterval^vhLib())
+
+
+
+ quit
+
+
+
+
\ No newline at end of file
Index: zStressTest/PopClass2.cls.xml
===================================================================
diff -u
--- zStressTest/PopClass2.cls.xml (revision 0)
+++ zStressTest/PopClass2.cls.xml (revision 1394)
@@ -0,0 +1,50 @@
+
+
+
+persistent
+1
+%Persistent,%Populate
+0
+
+
+Property1
+
+
+
+%String
+
+
+
+%String
+
+
+
+%String
+
+
+
+%Library.CacheStorage
+^zStressTest.PopClass2D
+PopClass2DefaultData
+^zStressTest.PopClass2D
+^zStressTest.PopClass2I
+^zStressTest.PopClass2S
+
+listnode
+
+
+%%CLASSNAME
+
+
+Property1
+
+
+Property2
+
+
+Property3
+
+
+
+
+
Index: zStressTest/PopClass1.cls.xml
===================================================================
diff -u
--- zStressTest/PopClass1.cls.xml (revision 0)
+++ zStressTest/PopClass1.cls.xml (revision 1394)
@@ -0,0 +1,62 @@
+
+
+
+persistent
+1
+%Persistent,%Populate
+0
+
+
+Property1
+
+
+
+%String
+
+
+
+%String
+
+
+
+%String
+
+
+
+%Library.CacheStorage
+^zStressTest.PopClass1D
+PopClass1DefaultData
+^zStressTest.PopClass1D
+^zStressTest.PopClass1I
+^zStressTest.PopClass1S
+
+listnode
+
+
+%%CLASSNAME
+
+
+Property1
+
+
+Property2
+
+
+Property3
+
+
+Property4
+
+
+Property5
+
+
+Property6
+
+
+Property7
+
+
+
+
+
Index: zStressTest/PopClass3.cls.xml
===================================================================
diff -u
--- zStressTest/PopClass3.cls.xml (revision 0)
+++ zStressTest/PopClass3.cls.xml (revision 1394)
@@ -0,0 +1,50 @@
+
+
+
+persistent
+1
+%Persistent,%Populate
+0
+
+
+Property1
+
+
+
+%String
+
+
+
+%String
+
+
+
+%String
+
+
+
+%Library.CacheStorage
+^zStressTest.PopClass3D
+PopClass3DefaultData
+^zStressTest.PopClass3D
+^zStressTest.PopClass3I
+^zStressTest.PopClass3S
+
+listnode
+
+
+%%CLASSNAME
+
+
+Property1
+
+
+Property2
+
+
+Property3
+
+
+
+
+
Index: zStressTest/StressTest.cls.xml
===================================================================
diff -u
--- zStressTest/StressTest.cls.xml (revision 0)
+++ zStressTest/StressTest.cls.xml (revision 1394)
@@ -0,0 +1,170 @@
+
+
+
+%VHMacro
+1
+%RegisteredObject
+0
+
+
+%String
+
+
+
+%String
+
+
+
+1
+
+
+
+
+
+
+
+
+
+
+
+
+ "_$justify(@GlobalRef,5,3),!
+ if $qsubscript(GlobalRef,1)="R" { set Read = Read + @GlobalRef }
+ else { set Write = Write + @GlobalRef }
+ }
+ write "# Reads : "_$justify(Read,5,3),!
+ write "# Writes : "_$justify(Write,5,3),!
+ quit
+]]>
+
+
+
+
+
+
+
+
+
+
+
+1
+Type,Omschrijving,Interval
+
+
+
+