added LSL2 stored procedures

LSL2/STPROC/DONT_USE_DELETE_REACT_UTIL.txt

@@ -0,0 +1,38 @@
+compile function DONT_USE_DELETE_REACT_UTIL()
+begin condition
+pre:
+post:
+end condition
+declare function msg, fieldcount, next_key
+declare subroutine rlist
+$insert rlist_equates
+$insert msg_equates
+$insert logical
+
+open 'REACT_UTIL' to RUTable else
+   Void = msg( '', 'Unable to open REACT_UTIL table...' )
+   return 0
+end
+
+Stmt = 'SELECT REACT_UTIL WITH START_DATE < "1/1/00"'
+
+rlist( Stmt, target_activelist$, '', '', '' )
+DEBUG
+
+if @reccount then
+    Eof = false$
+    NumKeys = @reccount
+    Cnt = 0
+    loop
+        readnext RUId else Eof = true$
+      until Eof
+        delete RUTable, RUId else
+           msg( '', 'Unable to delete REACT_UTIL ':RUId )
+           return 0
+        end 
+        Cnt += 1
+        Percent = oconv( iconv(Cnt/NumKeys, 'MD2'), 'MD0' ):'%'
+        Void = send_info( Percent:' Complete DELETING react utils...' )   
+    repeat
+end
+return 0