added AD group support to notifications system

SYSPROG/STPROC/TEMP.txt

@@ -1,24 +1,26 @@
 Compile Subroutine Temp(dummy)
-
+Declare Function datetime
 Debug
 
-Open 'SYSENV' To hSysenv Then 
-     Open 'TEMP_SYSENV' To hNewSysenv Then
-          Select hSysenv
-          EOF = 0
-          Loop
-          Readnext Key Else EOF = 1
-          Until EOF
-               //If IndexC(Key, 'SRP', 1) then
-                    Read Rec From hSysenv, Key Then
-                         Write Rec To hNewSysenv, Key Else 
-                              Debug
-                         end
-                    End
-               //end
-          Repeat
-     End
-End
+dt = datetime()
+
+*Open 'SYSENV' To hSysenv Then 
+*     Open 'TEMP_SYSENV' To hNewSysenv Then
+*          Select hSysenv
+*          EOF = 0
+*          Loop
+*          Readnext Key Else EOF = 1
+*          Until EOF
+*               //If IndexC(Key, 'SRP', 1) then
+*                    Read Rec From hSysenv, Key Then
+*                         Write Rec To hNewSysenv, Key Else 
+*                              Debug
+*                         end
+*                    End
+*               //end
+*          Repeat
+*     End
+*End
 
 
 return