Index: IINT.mac.rou
===================================================================
diff -u -r1167 -r1526
--- IINT.mac.rou	(.../IINT.mac.rou)	(revision 1167)
+++ IINT.mac.rou	(.../IINT.mac.rou)	(revision 1526)
@@ -36,12 +36,12 @@
    . Read !!,"Namespace ? ",Input
    . Set Select=""
    . Set:Input?1.2N Select=$G(NSArray(Input))
- 
+   
    ; Volgende 2 lijnen werden gecopieerd uit ^%PMODE (programmer mode)
    ZN:$LL(Select) $LI(Select,1)
    i $zu(67,10,1,$j)
    V:'($ZJ#2) 0:-1:$ZU(40,0,1):$V(0,-1,$ZU(40,0,1))+1
-   I $LG(Select,2) D INIT^vhTERMINA,USR^cA5000(^cLOG(boot,"PIN",io)) Write @FCS
+   I $LG(Select,2) w "!!!!!"_$LG(Select,1)_",,,"_$LG(Select,2)_"!!!!" D INIT^vhTERMINA,USR^cA5000(^cLOG(boot,"PIN",io)) Write @FCS
    Q
    
 SWITCH ;gecopieerd in ^|%SYS|%S
@@ -75,7 +75,7 @@
 			continue:(Namespace="CACHETEMP")
 			continue:(Namespace="SAMPLES")
 			set Index = $increment(Index)
-			set NSList=NSList_$listbuild($listbuild(Index,Namespace))
+			set NSList=NSList_$listbuild($listbuild(Index,Namespace,$G(^|Namespace|SYS("IsDataMOmgeving"),0)))
 		}
 		if $listlength(NSList) set NSList=$listbuild(NSList)
 	}