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