Index: IINT.mac.rou
===================================================================
diff -u -r734 -r926
--- IINT.mac.rou	(.../IINT.mac.rou)	(revision 734)
+++ IINT.mac.rou	(.../IINT.mac.rou)	(revision 926)
@@ -25,8 +25,7 @@
    . Write !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
    . ; List = SelectieNr; NameSpace; Initialisatie
    . // [??] Dit kan eventueel ook in een config parameter komen? Alhoewel het ook kan zijn dat dit technisch niet mogelijk is.
-   . If boot="CACHE01" Set NSList=$LB($LB($LB(1,"ADMIN1",1),$LB(2,"ADMIN2"),$LB(3,"HALUX"),$LB(9,"%SYS")))
-   . If boot="CACHE02" Set NSList=$LB($LB($LB(1,"DEV-ADMIN1",1),$LB(2,"DEV-ADMIN2"),$LB(3,"DEV-HALUX"),$LB(9,"%SYS")),$LB($LB(5,"JRNL-ADMIN1"),$LB(6,"JRNL-ADMIN2"),$LB(7,"JRNL-HALUX"),$LB(8,"TST-ADMIN1",1)))
+   . set NSList=$$NSList(boot)
    . Write $J("",20),"*** ",boot," ***",!!
    . Write " Pin = []" 
    . For I=1:1:$LL(NSList) Do
@@ -48,8 +47,7 @@
 SWITCH ;gecopieerd in ^|%SYS|%S
    // [??] Dit kan eventueel ook in een config parameter komen? Alhoewel het ook kan zijn dat dit technisch niet mogelijk is.
    Set boot=$zutil(110) ; which system
-   If boot="CACHE01" Set NSList=$LB($LB($LB(1,"ADMIN1",1),$LB(2,"ADMIN2"),$LB(3,"HALUX"),$LB(9,"%SYS")))
-   If boot="CACHE02" Set NSList=$LB($LB($LB(1,"DEV-ADMIN1",1),$LB(2,"DEV-ADMIN2"),$LB(3,"DEV-HALUX"),$LB(9,"%SYS")),$LB($LB(5,"JRNL-ADMIN1"),$LB(6,"JRNL-ADMIN2"),$LB(7,"JRNL-HALUX")))
+   set NSList=$$NSList(boot)
    Write $J("",20),"*** ",boot," ***",!!
    For I=1:1:$LL(NSList) Do
     . Write !
@@ -62,7 +60,26 @@
  
    ZN:$LL(Select) $LI(Select,1)
    Q
-   
+ 
+NSList(Server)
+	new NSList set NSList=""
+	if Server = "CACHE01" { Set NSList=$LB($LB($LB(1,"ADMIN1",1),$LB(2,"ADMIN2"),$LB(3,"HALUX"),$LB(9,"%SYS"))) }
+	elseif Server = "CACHE02" { Set NSList=$LB($LB($LB(1,"DEV-ADMIN1",1),$LB(2,"DEV-ADMIN2"),$LB(3,"DEV-HALUX"),$LB(9,"%SYS")),$LB($LB(5,"JRNL-ADMIN1"),$LB(6,"JRNL-ADMIN2"),$LB(7,"JRNL-HALUX"),$LB(8,"TST-ADMIN1",1)))}
+	else { 
+		new itNamespaces,Namespace,Index
+		set itNamespaces = ##class(TECH.ListIterator).%New(##class(TECH.System).GeefActieveNamespaces())
+		while itNamespaces.HasNext() {
+			set Namespace = itNamespaces.Next()
+			continue:(Namespace="DOCBOOK")
+			continue:(Namespace="%CACHELIB")
+			continue:(Namespace="CACHETEMP")
+			set Index = $increment(Index)
+			set NSList=NSList_$listbuild($listbuild(Index,Namespace))
+		}
+		if $listlength(NSList) set NSList=$listbuild(NSList)
+	}
+	quit NSList
+ 
 1 ;Do AUTO^BLDSYSLOG($I) 
   K  ; alle locale variabelen worden verwijderd 
   B 0 D QQM^cQ6,MASTER^cQ5