Index: zTryout/JBL/SQL.cls.xml
===================================================================
diff -u -r3155 -r3171
--- zTryout/JBL/SQL.cls.xml	(.../SQL.cls.xml)	(revision 3155)
+++ zTryout/JBL/SQL.cls.xml	(.../SQL.cls.xml)	(revision 3171)
@@ -52,7 +52,7 @@
 <ClassMethod>1</ClassMethod>
 <Implementation><![CDATA[
 		Set RS = ##class(%ResultSet).%New()
-		&SQL(Select ID, SQLTablename from %Dictionary.ClassDefinition where not Name %Startswith '%')
+		//&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 '%'")
Index: zTryout/JCL/TestSubSQL.cls.xml
===================================================================
diff -u
--- zTryout/JCL/TestSubSQL.cls.xml	(revision 0)
+++ zTryout/JCL/TestSubSQL.cls.xml	(revision 3171)
@@ -0,0 +1,35 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="zTryout.JCL.TestSubSQL">
+<ClassType>persistent</ClassType>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>%Persistent</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Property name="SubSQL">
+<Type>%String</Type>
+<Collection>array</Collection>
+</Property>
+
+<Storage name="Default">
+<Type>%Library.CacheStorage</Type>
+<DataLocation>^zTryout.JCL.TestSubSQLD</DataLocation>
+<DefaultData>TestSubSQLDefaultData</DefaultData>
+<IdLocation>^zTryout.JCL.TestSubSQLD</IdLocation>
+<IndexLocation>^zTryout.JCL.TestSubSQLI</IndexLocation>
+<StreamLocation>^zTryout.JCL.TestSubSQLS</StreamLocation>
+<Data name="SubSQL">
+<Attribute>SubSQL</Attribute>
+<Structure>subnode</Structure>
+<Subscript>"SubSQL"</Subscript>
+</Data>
+<Data name="TestSubSQLDefaultData">
+<Structure>listnode</Structure>
+<Subscript/>
+<Value name="1">
+<Value>%%CLASSNAME</Value>
+</Value>
+</Data>
+</Storage>
+</Class>
+</Export>
Index: zTryout/JBL/SQLClass.cls.xml
===================================================================
diff -u
--- zTryout/JBL/SQLClass.cls.xml	(revision 0)
+++ zTryout/JBL/SQLClass.cls.xml	(revision 3171)
@@ -0,0 +1,68 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="zTryout.JBL.SQLClass">
+<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("%Dictionary.ClassDefinition:Summary")
+		Set Status = RS.Execute()
+		If ($$$ISERR(Status)) w Status,!,$$ParseStatus^vhLib(Status)
+		While (RS.Next()){
+			continue:$extract(RS.Data("Name"))="%"
+			if RS.Data("Persistent") {
+				w "Table: ", ##class(TECH.SourceCodeUtils).GetSQLTableNames(RS.Data("Name")_".cls"),!
+			}
+		}
+		Do RS.Close()
+]]></Implementation>
+</Method>
+</Class>
+</Export>