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
