added LSL2 stored procedures

LSL2/STPROC/TEST_CRISP4.txt

@@ -0,0 +1,70 @@
+Function Test_Crisp4()
+#pragma precomp SRP_PreCompiler
+equ crlf$ to \0D0A\
+$Insert LOGICAL
+Declare function Replication_Services
+Declare subroutine Database_Services
+
+    Open 'REPLICATION_QUEUE_LSL2_RDS' to TableHandle then
+        Select TableHandle
+        EOF = False$
+        Loop
+            ReadNext @ID else EOF = True$
+        Until EOF
+            If Not(Num(@ID)) and Not(Index(@ID, '%', 1)) then
+                Delete TableHandle, @ID then Null
+            end
+        Repeat
+    end
+    
+    
+return
+    
+* 
+* Flag          = ''
+* RDSTestKeyIDs = ''
+* RDSNo = ''
+* hDictRDSTest  = Database_Services('GetTableHandle', 'DICT.RDS_TEST')
+* SearchString  = 'RDS_NO' : @VM : RDSNo : @FM
+* Btree.Extract(SearchString, 'RDS_TEST', hDictRDSTest, RDSTestKeyIDs, '', Flag)
+* If Flag EQ 0 then
+*    If RDSTestKeyIDs NE '' then
+*        For Each RDSTestKeyID in RDSTestKeyIDs using @VM
+*            If Len(RDSTestKeyID) LT 7 then
+*                Database_Services('DeleteDataRow', 'RDS_TEST', RDSTestKeyID, True$)
+*                If Error_Services('NoError') then
+*                    Results = RDSTestKeyID : ' deleted'
+*                end else
+*                    Results = RDSTestKeyID : ' not deleted. Error : ' : Error_Services('GetMessage')
+*                end
+*                LogData<1> = LoggingDTM
+*                LogData<2> = Results
+*                Logging_Services('AppendLog', objLog2, LogData, @RM, @FM)
+*            end
+*        Next RDSTestKeyID
+*    end
+* end
+* 
+* 
+* return
+* 
+* fileName = "d:\temp\Replication_keys.txt"
+* open 'REPLICATION_QUEUE_LSL2_REACT_RUN' to REP_TABLE then
+* select REP_TABLE
+* 	done = 0
+* 	report=''
+*debug
+* 	loop
+*		readnext @ID Else Done = 1
+* 	until done
+*		read REC from REP_TABLE, @ID then
+*			report := REC<5>:crlf$
+*		end
+* 	repeat
+* end else
+* 	return 'Open_Error'
+* end
+* 
+* OSWrite report To filename
+* 
+* return