added LSL2 stored procedures

LSL2/STPROC/TEST_OBJ_RDS_LAYER.txt

@@ -0,0 +1,38 @@
+COMPILE ROUTINE TEST_OBJ_RDS_Layer(Dummy)
+ROWDEF(CHARSTR)
+
+DECLARE SUBROUTINE Set_Status, obj_RDS_Layer, Send_Dyn, RList, Send_Info, obj_Tables
+DECLARE FUNCTION Get_Status, obj_RDS_Layer, obj_Tables, obj_Recipe
+
+$INSERT RDS_EQU
+
+Set_Status(0)
+
+
+OPEN 'RDS_LAYER' TO LayerFIle ELSE
+	debug
+	GOTO Bail
+END
+
+LSId = 'L1'
+PSN = 3854
+
+DEBUG
+
+DataStruct = obj_Recipe('GetLimits',835:@RM:3854:@RM:"L1")
+
+
+
+debug
+Complete = obj_RDS_Layer('Complete',"778169*L1")
+
+
+
+
+DEBUG
+
+* * * * * * *
+Bail:
+* * * * * * *
+
+RETURN