Index: TECH/Query/impl/QueryAPI.cls.xml
===================================================================
diff -u -r1396 -r1681
--- TECH/Query/impl/QueryAPI.cls.xml	(.../QueryAPI.cls.xml)	(revision 1396)
+++ TECH/Query/impl/QueryAPI.cls.xml	(.../QueryAPI.cls.xml)	(revision 1681)
@@ -3,6 +3,24 @@
 <Class name="TECH.Query.impl.QueryAPI">
 <Super>TECH.RegisteredObject,TECH.Query.QueryAPI</Super>
 
+<Method name="ExecuteDynamicQuery">
+<FormalSpec>Query:%String,lbParams:%List="",RuntimeMode:TECH.enu.ResultSetRuntimeMode=""</FormalSpec>
+<Implementation><![CDATA[
+	#dim ResultSet As TECH.ResultSet = $$ExecDynQuery^vhLib.Query(Query,lbParams,RuntimeMode)
+	do ResultSet.Close()
+	quit
+]]></Implementation>
+</Method>
+
+<Method name="GetDynamicResultSet">
+<FormalSpec>Query:%String,lbParams:%List="",RuntimeMode:TECH.enu.ResultSetRuntimeMode=""</FormalSpec>
+<ReturnType>TECH.ResultSet</ReturnType>
+<Implementation><![CDATA[
+	#dim ResultSet As TECH.ResultSet = $$ExecDynQuery^vhLib.Query(Query,lbParams,RuntimeMode)
+	quit ResultSet
+]]></Implementation>
+</Method>
+
 <Method name="GeefQueryUitvoerder">
 <ReturnType>TECH.Query.QueryUitvoerder</ReturnType>
 <Implementation><![CDATA[	quit ##class(TECH.Query.impl.QueryUitvoerder).%New()