added LSL2 stored procedures

LSL2/STPROC/DONT_USE_DELETE_INVOICE.txt

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