added LSL2 stored procedures

LSL2/STPROC/TEST_OBJ_RDS2.txt

@@ -0,0 +1,22 @@
+COMPILE ROUTINE TEST_OBJ_RDS2(Dummy)
+ROWDEF(CHARSTR)
+
+DECLARE SUBROUTINE obj_Notes, Set_Status, Send_Info, obj_RDS, Send_Dyn, Btree.Extract, ErrMsg
+DECLARE FUNCTION Get_Status,obj_RDS, Send_Dyn, obj_RDS_Test, obj_RDS2
+
+$INSERT RDS_EQU
+
+
+debug
+ABC = obj_RDS2('Delete',423317:@VM:423318)
+
+debug
+
+
+GOTO Bail
+
+* * * * * * *
+Bail:
+* * * * * * *
+
+END