Index: vhDeploy/Deploy201105311610.cls.xml
===================================================================
diff -u
--- vhDeploy/Deploy201105311610.cls.xml	(revision 0)
+++ vhDeploy/Deploy201105311610.cls.xml	(revision 1361)
@@ -0,0 +1,207 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="vhDeploy.Deploy201105311610">
+<Description>
+JCL + 2011-05-31</Description>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>svn.Deploy</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Property name="Globals">
+<Type>%String</Type>
+<Collection>list</Collection>
+</Property>
+
+<Method name="ExecCode">
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[
+	write "verwijderen van oude globals",!
+	
+	set instance = ..%New()
+	do instance.BuildGlobalList()
+
+	set itGlobals = ##class(TECH.ListIterator).%New(instance.Globals)
+	while itGlobals.HasNext() {
+		set Global = itGlobals.Next()
+		w "Killing ",Global,! Kill @Global
+	}
+]]></Implementation>
+</Method>
+
+<Method name="BuildGlobalList">
+<Implementation><![CDATA[
+	do ..Globals.Clear()
+	do ..Globals.Insert("^abx")
+	do ..Globals.Insert("^ABXOld")
+	do ..Globals.Insert("^COPY2HISTPAK")
+	do ..Globals.Insert("^COPYDATA")
+	do ..Globals.Insert("^COPYHISTPAK")
+	do ..Globals.Insert("^COPYINDEX")
+	;do ..Globals.Insert("^COPYKFA")
+	;do ..Globals.Insert("^COPYKFA1")
+	do ..Globals.Insert("^cwCifPPL")
+	do ..Globals.Insert("^cwKOFKLP")
+	do ..Globals.Insert("^cwOFF")
+	do ..Globals.Insert("^cwOFKLP")
+	do ..Globals.Insert("^cwY")
+	do ..Globals.Insert("^cwpakket")
+	do ..Globals.Insert("^cwpers")
+	do ..Globals.Insert("^cwres")
+	do ..Globals.Insert("^cwto3")
+	do ..Globals.Insert("^cwul")
+	do ..Globals.Insert("^cqsys")
+	do ..Globals.Insert("^cPVTEST")
+	do ..Globals.Insert("^CWDMA")
+	do ..Globals.Insert("^CWDMC")
+	do ..Globals.Insert("^CWDMH")
+	do ..Globals.Insert("^CWDMM")
+	do ..Globals.Insert("^CWDMS")
+	do ..Globals.Insert("^CWGOLD")
+	do ..Globals.Insert("^CWHULP")
+	do ..Globals.Insert("^CWINDEX")
+	do ..Globals.Insert("^CWKS")
+	do ..Globals.Insert("^CWKabel")
+	do ..Globals.Insert("^CWTEST")
+	do ..Globals.Insert("^CWU1")
+	do ..Globals.Insert("^dma")
+	do ..Globals.Insert("^dmacw")
+	do ..Globals.Insert("^dmccw")
+	do ..Globals.Insert("^k")
+	do ..Globals.Insert("^kfa")
+	do ..Globals.Insert("^kkl")
+	do ..Globals.Insert("^kkxcw")
+	do ..Globals.Insert("^klas")
+	do ..Globals.Insert("^kpgr")
+	do ..Globals.Insert("^kpgr1")
+	do ..Globals.Insert("^kphg")
+	do ..Globals.Insert("^kphg1")
+	do ..Globals.Insert("^kpr")
+	do ..Globals.Insert("^kpr2")
+	do ..Globals.Insert("^kprnl")
+	do ..Globals.Insert("^kpsg")
+	do ..Globals.Insert("^kpsg1")
+	do ..Globals.Insert("^pakket")
+	do ..Globals.Insert("^PV.KlachtD")
+	do ..Globals.Insert("^PV.KlachtDD")
+	do ..Globals.Insert("^PV.KlachtDM")
+	do ..Globals.Insert("^PV.KlachtJD")
+	do ..Globals.Insert("^PV.KlachtMD")
+	do ..Globals.Insert("^PV.OmzetKlantDD")
+	do ..Globals.Insert("^PV.OmzetKlantMD")
+	do ..Globals.Insert("^PV.PRBSC")
+	do ..Globals.Insert("^PV2000")
+	do ..Globals.Insert("^PVCache")
+	do ..Globals.Insert("^PVCount")
+	do ..Globals.Insert("^PVDeDecker")
+	do ..Globals.Insert("^PVDynaPlug")
+	do ..Globals.Insert("^PVE")
+	do ..Globals.Insert("^PVE.KKL")
+	do ..Globals.Insert("^PVESD")
+	do ..Globals.Insert("^PVHAFELE")
+	do ..Globals.Insert("^PVKS")
+	do ..Globals.Insert("^PVLEVP")
+	do ..Globals.Insert("^PVMRP")
+	do ..Globals.Insert("^PVMobile")
+	do ..Globals.Insert("^PVORDW")
+	do ..Globals.Insert("^PVPR")
+	do ..Globals.Insert("^PVPRINT")
+	do ..Globals.Insert("^PVPUTZ")
+	do ..Globals.Insert("^PVProd")
+	do ..Globals.Insert("^PVRes.ImageLinkD")
+	do ..Globals.Insert("^PVRes.PI.Items")
+	do ..Globals.Insert("^PVSTOCK")
+	do ..Globals.Insert("^PVTEMP")
+	do ..Globals.Insert("^PVTXT")
+	do ..Globals.Insert("^PVTemp")
+	do ..Globals.Insert("^PVTempGeo")
+	do ..Globals.Insert("^PVTmp")
+	do ..Globals.Insert("^PVVerpakLookAhead")
+	do ..Globals.Insert("^pvBLProd")
+	do ..Globals.Insert("^pvCifPPL")
+	do ..Globals.Insert("^pvPRHIST")
+	do ..Globals.Insert("^pvQSYS")
+	do ..Globals.Insert("^pvkkov")
+	do ..Globals.Insert("^pvtemp")
+	do ..Globals.Insert("^res")
+	do ..Globals.Insert("^vhUser")
+	do ..Globals.Insert("^vhuser")
+	do ..Globals.Insert("^zzJCL.AddToList")
+	do ..Globals.Insert("^zzJCL.Dynaplug.Identnummers")
+	do ..Globals.Insert("^zzJCL.Dynaplug.NoMatch")
+	do ..Globals.Insert("^zzJCL.Dynaplug.Undefined")
+	do ..Globals.Insert("^zzKAR")
+	do ..Globals.Insert("^zzKFI")
+	do ..Globals.Insert("^zzKKL")
+	do ..Globals.Insert("^wvKadDiff")
+	do ..Globals.Insert("^wvLogKADcalcSchaduwBS")
+	do ..Globals.Insert("^wvLogKADstatSchaduwBS")
+	;do ..Globals.Insert("^wvLogMDef")
+	do ..Globals.Insert("^wvLogTBXcheckUpgrade")
+	do ..Globals.Insert("^wvLogTBXcheckUpgrade1")
+	do ..Globals.Insert("^wvLogTBXcheckUpgrade2")
+	do ..Globals.Insert("^wvLogTBXintivo")
+	do ..Globals.Insert("^wvLogTBXintivoA")
+	do ..Globals.Insert("^wvLogTBXintivoB")
+	do ..Globals.Insert("^wvRappel")
+	do ..Globals.Insert("^wvSetting")
+	do ..Globals.Insert("^wvTBoxAGO")
+	do ..Globals.Insert("^wvTBoxMatrix")
+	do ..Globals.Insert("^wc")
+	do ..Globals.Insert("^WC")
+	do ..Globals.Insert("^upd")
+	do ..Globals.Insert("^upds")
+	do ..Globals.Insert("^uprcp")
+	do ..Globals.Insert("^tapi")
+	do ..Globals.Insert("^tempPV")
+	do ..Globals.Insert("^tmp.OmzetPerKlantD")
+	do ..Globals.Insert("^transp")
+	do ..Globals.Insert("^TempBlumPRScaduw")
+	do ..Globals.Insert("^TempPRHIST")
+	do ..Globals.Insert("^vhUnitTest")
+	;do ..Globals.Insert("^vhUnitTest.T570.UTVhChangeInfoD")
+	;do ..Globals.Insert("^vhUnitTest.TECH.UTChangeInfoD")
+	do ..Globals.Insert("^vhUnitTestA29.VoorbeeldPer7D3D")
+	do ..Globals.Insert("^sd")
+	do ..Globals.Insert("^ordw")
+]]></Implementation>
+</Method>
+
+<Method name="Lookup">
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[
+	set instance = ..%New()
+	do instance.BuildGlobalList()
+	set itGlobals = ##class(TECH.ListIterator).%New(instance.Globals)
+	while itGlobals.HasNext() {
+		set Global = itGlobals.Next()
+		do instance.LookupOne(Global)
+	}		
+	quit
+]]></Implementation>
+</Method>
+
+<Method name="LookupOne">
+<FormalSpec>Global</FormalSpec>
+<Implementation><![CDATA[
+	set listFound = ##class(%ArrayOfDataTypes).%New()
+	
+	set Routine = ""
+	for  { set Routine = $order(^ROUTINE(Routine)) quit:Routine=""
+		set idxLine = ""
+		for  { set idxLine = $order(^ROUTINE(Routine,0,idxLine)) quit:idxLine="" 
+			continue:Routine["201105311610"
+			set Line = $g(^(idxLine))
+			if Line[Global if 'listFound.IsDefined(Routine) do listFound.SetAt(Line,Routine)
+		}
+	}
+	
+	set itFound = ##class(TECH.ListIterator).%New(listFound)
+	while itFound.HasNext() {
+		set Found = itFound.Next()
+		set Routine = itFound.Key()
+		write Global_" --> "_Routine_" -->"_Found,!
+	}
+]]></Implementation>
+</Method>
+</Class>
+</Export>