Index: EWRECL.mac.rou
===================================================================
diff -u -r734 -r4867
--- EWRECL.mac.rou	(.../EWRECL.mac.rou)	(revision 734)
+++ EWRECL.mac.rou	(.../EWRECL.mac.rou)	(revision 4867)
@@ -57,7 +57,7 @@
  Quit:(K'="V")&(K'="v")
  ; Test file mark
  Lock +^EWREC("S")
- Set Dir=^EWREC("P","DIRS")
+ Set Dir=##class(TECH.Config.ConfigMgr).Instance().GetString("WMSExchange_RootDir")_^EWREC("P","DIRS")
  Set FileNm=$$GetFileNm^EWORDSW()_".txt"
  Set Dev=0
  Set Dev=$$OPEN^vhDEV(Dir,FileNm,"W","M")
@@ -207,4 +207,6 @@
  Set PLD(11)="Overzicht logging WMS"
  Do PRINT^OUTPUT(.PLD,"P")
  Quit
- ;
\ No newline at end of file
+ ;
+
+