Index: zTryout/TVE/Vanalles.cls.xml
===================================================================
diff -u -r66425 -r67596
--- zTryout/TVE/Vanalles.cls.xml	(.../Vanalles.cls.xml)	(revision 66425)
+++ zTryout/TVE/Vanalles.cls.xml	(.../Vanalles.cls.xml)	(revision 67596)
@@ -4,6 +4,30 @@
 <IncludeCode>Prod.Product</IncludeCode>
 <Super>TECH.RegisteredObject</Super>
 
+<Method name="LinesOfCode">
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[
+    new SQLCODE,tRoutine
+    set tTotalLOC = 0
+    &sql(DECLARE ROUTINES CURSOR FOR
+     SELECT NAME 
+FROM %Library.RoutineIndex 
+ORDER BY NAME)
+    &sql(OPEN ROUTINES)
+    &sql(FETCH ROUTINES INTO :tRoutine)
+    while (SQLCODE=0)
+    {
+        write !,$j($i(tCount),5),": ",tRoutine
+        set tLOC = $get(^rMAC(tRoutine,0,0))
+        write "("_tLOC_")"
+        set tTotalLOC = tTotalLOC + tLOC
+        &sql(FETCH ROUTINES INTO :tRoutine)
+    }
+    &sql(CLOSE ROUTINES)
+    write !!,"Total lines of code = "_tTotalLOC
+]]></Implementation>
+</Method>
+
 <Method name="Export">
 <ClassMethod>1</ClassMethod>
 <FormalSpec>pFile</FormalSpec>
@@ -81,8 +105,8 @@
 <Implementation><![CDATA[
 	#dim Resultaat As %Integer = 0
 	
-	//#dim Klasselijst As %ListOfDataTypes = ##class(TECH.ClassUtils).GetClassesInPackage("vhUnitTest",$$$True)
-	#dim Klasselijst As %ListOfDataTypes = ##class(TECH.ClassUtils).GetClassesInPackage("vhTest.Integratie",$$$True)
+	#dim Klasselijst As %ListOfDataTypes = ##class(TECH.ClassUtils).GetClassesInPackage("vhUnitTest",$$$True)
+	//#dim Klasselijst As %ListOfDataTypes = ##class(TECH.ClassUtils).GetClassesInPackage("vhTest.Integratie",$$$True)
 	#dim KlasseIterator As TECH.Iterator = ##class(TECH.ListIterator).%New(Klasselijst)
 	
 	#dim MethodName As %String = ""