added LSL2 stored procedures

LSL2/STPROC/TEST_OBJ_REACT_STATE.txt

@@ -0,0 +1,37 @@
+COMPILE ROUTINE TEST_OBJ_REACT_STATE(Dummy)
+ROWDEF(CHARSTR)
+
+DECLARE SUBROUTINE obj_Part, Set_Status, ErrMsg, obj_React_State
+DECLARE FUNCTION Get_Status, obj_Part
+
+$INSERT REACT_STATE_EQUATES
+
+
+Set_Status(0)
+
+debug
+
+ReactNo = 64
+PSNo	= 3377
+RDSNo	= 793421
+UnloadDTM	= '12/17/13 15:42:40'
+
+
+obj_React_State('ReactRunUnload',ReactNo:@RM:PSNo:@RM:RDSNo:@RM:UnloadDTM)
+
+
+
+IF Get_Status(errCode) THEN
+	ErrMsg(errCode)
+END
+
+GOTO Bail
+
+
+
+
+* * * * * * *
+Bail:
+* * * * * * *
+
+RETURN