added LSL2 stored procedures

LSL2/STPROC/DONT_USE_WO_LOG.txt

@@ -0,0 +1,38 @@
+compile function DONT_USE_WO_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 'WO_LOG' to WOLogTable else
+   Void = msg( '', 'Unable to open WO_LOG table...' )
+   return 0
+end
+
+Stmt = 'SELECT WO_LOG WITH ENTRY_DATE < "1/1/00"'
+
+rlist( Stmt, target_activelist$, '', '', '' )
+DEBUG
+
+if @reccount then
+    Eof = false$
+    NumKeys = @reccount
+    Cnt = 0
+    loop
+        readnext WId else Eof = true$
+      until Eof
+        delete WOLogTable, WId else
+           msg( '', 'Unable to delete WO_LOG ':WId )
+           return 0
+        end 
+        Cnt += 1
+        Percent = oconv( iconv(Cnt/NumKeys, 'MD2'), 'MD0' ):'%'
+        Void = send_info( Percent:' Complete DELETING wo logs...' )   
+    repeat
+end
+return 0