added LSL2 stored procedures

LSL2/STPROC/TEST_OBJ_REACT_STATUS.txt

@@ -0,0 +1,46 @@
+COMPILE ROUTINE TEST_OBJ_REACT_STATUS(Dummy)
+ROWDEF(CHARSTR)
+
+DECLARE SUBROUTINE obj_Notes, Set_Status, Send_Info, obj_React_Status
+DECLARE FUNCTION Get_Status,obj_Order, obj_React_Status
+
+debug
+
+ReactNo = 99
+WONo 	= '100000'
+
+Set_Status(0)
+
+IdleTime = obj_React_Status('CassLoad',ReactNo:@RM:WONo:@RM:27:@RM:'01/02/2008 05:18:00')
+
+IF Get_Status(errCode) THEN
+	DEBUG
+END
+
+a = XLATE('REACT_STATUS',ReactNo,'','X')
+
+
+GOTO Bail
+
+
+
+IdleTime = obj_React_Status('CassLoad',ReactNo:@RM:WONo:@RM:28:@RM:'01/02/2008 09:34:00')
+
+b = XLATE('REACT_STATUS',ReactNo,'','X')
+
+obj_React_Status('CassUnload',ReactNo:@RM:WONo:@RM:27:@RM:'01/02/2008 09:38:00')
+
+c = XLATE('REACT_STATUS',ReactNo,'','X')
+
+obj_React_Status('CassUnload',ReactNo:@RM:WONo:@RM:28:@RM:'01/02/2008 13:52:00')
+
+d = XLATE('REACT_STATUS',ReactNo,'','X')
+
+
+GOTO Bail
+
+* * * * * * *
+Bail:
+* * * * * * *
+
+END