added LSL2 stored procedures

LSL2/STPROC/DONT_USE_DELETE_SYSLISTS.txt

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