Index: zTryout/JBL/SQL.cls.xml
===================================================================
diff -u
--- zTryout/JBL/SQL.cls.xml	(revision 0)
+++ zTryout/JBL/SQL.cls.xml	(revision 3155)
@@ -0,0 +1,68 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="zTryout.JBL.SQL">
+<ProcedureBlock>1</ProcedureBlock>
+<Super>%RegisteredObject</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Method name="Users">
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[
+	
+		Set RS = ##class(%ResultSet).%New("%Library.SQLCatalogPriv:SQLUsers")
+		Set Status = RS.Execute()
+		While (RS.Next()){
+			Set Username = RS.Data("USERNAME")
+			w "'",Username,"'",!
+			Do ..SQLUserRole(Username)
+			Do ..UserPriv(Username)
+		}
+		Do RS.Close()
+]]></Implementation>
+</Method>
+
+<Method name="SQLUserRole">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>User:%String</FormalSpec>
+<Implementation><![CDATA[
+	
+		Set RS = ##class(%ResultSet).%New("%Library.SQLCatalogPriv:SQLUserRole")
+		Set Status = RS.Execute(User)
+		While (RS.Next()){
+			w "Role: '", RS.Data("ROLE_NAME"),"'",!
+		}
+		Do RS.Close()
+]]></Implementation>
+</Method>
+
+<Method name="UserPriv">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>User:%String</FormalSpec>
+<Implementation><![CDATA[
+		Set RS = ##class(%ResultSet).%New("%Library.SQLCatalogPriv:SQLUserPrivs")
+		Set Status = RS.Execute(User)
+		While (RS.Next()){
+			w "Priv: ", RS.Data("TYPE"),!
+		}
+		Do RS.Close()
+]]></Implementation>
+</Method>
+
+<Method name="Classnames">
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[
+		Set RS = ##class(%ResultSet).%New()
+		&SQL(Select ID, SQLTablename from %Dictionary.ClassDefinition where not Name %Startswith '%')
+		w SQLCODE,!
+		Quit
+		Do RS.Prepare("Select ID, SQLTablename from %Dictionary.ClassDefinition where not Name %Startswith '%'")
+		Set Status = RS.Execute()
+		If ($$$ISERR(Status)) w Status,!,$$ParseStatus^vhLib(Status)
+		While (RS.Next()){
+			w "Table: ", RS.Data("ID"),!
+		}
+		Do RS.Close()
+]]></Implementation>
+</Method>
+</Class>
+</Export>
Index: Tools/SQLExporter.cls.xml
===================================================================
diff -u
--- Tools/SQLExporter.cls.xml	(revision 0)
+++ Tools/SQLExporter.cls.xml	(revision 3155)
@@ -0,0 +1,70 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="Tools.SQLExporter">
+<Description>
+Do ##class(Tools.SQLExporter).ExportUsers()</Description>
+<IncludeCode>vhLib.Macro</IncludeCode>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>%RegisteredObject</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Method name="ExportUsers">
+<Description>
+genereer tab gescheiden bestand met Usernaam in eerste kolom, gevolgd door alle groepen waarin de user zit.</Description>
+<ClassMethod>1</ClassMethod>
+<FormalSpec>UsersBestand:%String</FormalSpec>
+<Implementation><![CDATA[
+	Set OriginalNamespace = $zu(5)
+	
+	Set Bestand = ##class(TECH.File.FileWriter).%New(UsersBestand)
+	
+	Set Settings = ##class(Tools.dto.SQL.Settings).%New()
+			
+	zn "%SYS"
+	Set UserName = ""
+	Set UserName = $O(^%SYS("sql","users","1",UserName))
+	zn OriginalNamespace
+	While (UserName '= ""){
+		
+		S UserProperties = ##class(%Library.SQLCatalog).Roles(UserName)				
+		zn "%SYS"		
+		Set UserName = $O(^%SYS("sql","users","1",UserName))
+		
+		zn OriginalNamespace
+		If (UserName '[ "_") {
+			Set User = ##class(Tools.dto.SQL.User).%New()
+			Set User.Naam = UserName
+			for i=3:1:$ll(UserProperties) {
+				Set Role = ##class(Tools.dto.SQL.Role).%New()
+				Set Role.Naam = $LG(UserProperties,i)
+				Do User.Roles.Insert(Role)
+			}
+		}	
+		Do Settings.Users.Insert(User)
+	}
+	
+	DO Bestand.WriteXML(Settings)
+]]></Implementation>
+</Method>
+
+<Method name="ExportTableNames">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>TableBestand:%String</FormalSpec>
+<Implementation><![CDATA[
+	//Set Bestand = ##class(TECH.File.FileWriter).%New(TableBestand)
+	
+	zn "%SYS"
+	Set ResultSet = ##class(%ResultSet).%New("%Library.SQLCatalog:SQLTables")
+	Set Status = ResultSet.Execute()
+	w Status,!
+	While (ResultSet.Next())
+	{	
+		w ResultSet.Data("SQL_RESERVED_WORD"),!	
+	}
+	w $g(%objlasterror),!
+	
+	zn "DEV"
+]]></Implementation>
+</Method>
+</Class>
+</Export>