added LSL2 stored procedures

LSL2/STPROC/DONT_USE_DELETE_REACTOR_LOG.txt

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