COMPILE ROUTINE TEST_OBJ_Reactor_PM(Dummy)
ROWDEF(CHARSTR)

DECLARE SUBROUTINE obj_Notes, Set_Status, Send_Info, obj_Reactor_PM
DECLARE FUNCTION Get_Status,obj_Reactor_PM


DEBUG

ReactNo	= 30
ServID = ''

Set_Status(0)

ReactPMKeys = obj_Reactor_PM('ReactServHist',ReactNo:@RM:ServID:@RM)

IF Get_Status(errCode) THEN
	DEBUG
END


DEBUG

GOTO Bail

* * * * * * *
Bail:
* * * * * * *

END