added LSL2 stored procedures

LSL2/STPROC/TEST_OBJ_RDS_TEST.txt

@@ -0,0 +1,25 @@
+COMPILE ROUTINE TEST_OBJ_RDS_Test(Dummy)
+ROWDEF(CHARSTR)
+
+DECLARE SUBROUTINE Set_Status, obj_RDS_Audit, Send_Dyn, RList, Send_Info, obj_Tables
+DECLARE FUNCTION Get_Status, obj_RDS_Test, obj_Tables
+
+$INSERT RDS_EQU
+
+Set_Status(0)
+
+
+DEBUG
+
+a = obj_RDS_Test('ExpReadings',532931:@RM:@RM:1)
+
+IF Get_Status(errCode) THEN
+	DEBUG
+END
+
+
+* * * * * * *
+Bail:
+* * * * * * *
+
+RETURN