Index: vhLib.mac.rou
===================================================================
diff -u -r734 -r948
--- vhLib.mac.rou	(.../vhLib.mac.rou)	(revision 734)
+++ vhLib.mac.rou	(.../vhLib.mac.rou)	(revision 948)
@@ -1496,7 +1496,7 @@
 	Set:($G(Val)="") Val=$H
 	Set:($G(Lang)="") Lang="N"
 	
-	New FmtLen, Loop, Output, Char, QuoteChar, StartTokenChar, ExitLoop, tmpToken
+	New FmtLen, Loop, Output, Char, QuoteChar, StartTokenChar, ExitLoop, tmpToken,TokenLen
 	New remDateStr,remTimeStr,remDayNr,remMonthNr,remYearNr,remWeekNr,remYearOfWeekNr,remDayNrOfWeek    //remDayNr,remMonthNr,remWeekNr met voorloopnul
 	Set FmtLen=$L(Fmt)
 	Set Loop=0
@@ -1810,14 +1810,15 @@
  
  // Name: ListOfDataTypesToLB, Author  : Tom Rombaut, Function: Conversie list of datatypes naar listbuild
 ListOfDataTypesToLB(LODT)
-	New lbResult
+	New lbResult,Loop
 	Set lbResult=""
 	For Loop=1:1:LODT.Count() Do
 	. Set lbResult=lbResult_$LB(LODT.GetAt(Loop))
 	Quit lbResult
  
  // Name: LBToListOfDataTypes, Author  : Tom Rombaut, Function: Conversie list of datatypes naar listbuild
 LBToListOfDataTypes(lbList,LODT)
+	New Loop
 	Do LODT.Clear()
 	For Loop=1:1:$LL(lbList) Do
 	. Do LODT.Insert($LI(lbList,Loop))
@@ -1829,6 +1830,7 @@
 	Else  Do
 	. Set RS=##class(%ResultSet).%New("%DynamicQuery:SQL")
 	
+	New tmpStatus
 	Set tmpStatus=RS.Prepare(SQL)
 	
 	Quit:($$$ISERR(tmpStatus)) $$ParseStatus^vhLib(tmpStatus)