added LSL2 stored procedures

LSL2/STPROC/TEST_OBJ_RDS.txt

@@ -0,0 +1,38 @@
+COMPILE ROUTINE TEST_OBJ_RDS(Dummy)
+ROWDEF(CHARSTR)
+
+DECLARE SUBROUTINE obj_Notes, Set_Status, Send_Info, obj_RDS, Send_Dyn, Btree.Extract, Print_ErrMsg
+DECLARE FUNCTION Get_Status,obj_RDS, Send_Dyn, obj_RDS_Test
+
+$INSERT RDS_EQU
+
+debug
+
+obj_RDS('Delete',"684416")
+
+
+GOTO Bail
+
+Parms  = '143277':@RM	;* WO No
+Parms := '1':@RM		;* WO Step
+Parms := '1':@RM		;* Last Step
+Parms := '':@RM			;* CassNo
+Parms := '12345':@RM	;* QuoteNo
+Parms := '54321'		;* Order No
+
+TWProd = obj_RDS('Create',Parms)
+TWProd = obj_RDS('Create',Parms)
+
+
+IF Get_Status(errCode) THEN Print_ErrMsg(errCode)
+
+debug
+
+
+GOTO Bail
+
+* * * * * * *
+Bail:
+* * * * * * *
+
+END