COMPILE ROUTINE TEST_OBJ_REACT_RUN_CI(Dummy)
ROWDEF(CHARSTR)

DECLARE SUBROUTINE obj_Notes, Set_Status, Send_Info, obj_React_Run_CI
DECLARE FUNCTION Get_Status,obj_Order, obj_React_Run_CI

$INSERT REACT_RUN_EQUATES




CIKey	= "142329*1*2*POST"
RunNo	= "2"
PSRec	= XLATE('PROD_SPEC','3432','','X')

DEBUG

obj_React_Run_CI('Create',CIKey:@RM:RunNo:@RM:PSRec)


GOTO Bail

RDSNo = 482520

RRCIRec = XLATE('REACT_RUN',RDSNo,'','X')

PreKey	= RRCIRec<REACT_RUN_PRE_CI_KEY$>
FWKey	= RRCIRec<REACT_RUN_WFR_CI_KEY$>
PostKey	= RRCIRec<REACT_RUN_POST_CI_KEY$>

debug

IF PreKey NE '' THEN
	obj_React_Run_CI('SendToSPC',PreKey)
END



GOTO Bail

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

END