added LSL2 stored procedures

2024-03-25 14:46:21 -07:00
parent 09f1a66046
commit c667dd56eb
1655 changed files with 527967 additions and 0 deletions
--- a/LSL2/STPROC/TEST_DELETE_RECORD.txt
+++ b/LSL2/STPROC/TEST_DELETE_RECORD.txt
@ -0,0 +1,18 @@
+Compile subroutine Test_Delete_Record(Table, Key, Output)
+
+    Declare function Delete_Record_From_SQL
+    
+    Ans = Delete_Record_From_SQL(Table, Key)
+    
+    If Len(Ans) then
+        If Assigned(Output) then
+            Begin Case
+                Case Output EQ "MSG"
+                    Call Msg(@Window, Ans)
+                Case Len(Output)
+                    OSWrite Ans to Output
+            End Case        
+        end
+    end
+    
+return