COMPILE ROUTINE TEST_OBJ_REACT_RUN(Dummy)
ROWDEF(CHARSTR)

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

$INSERT REACT_RUN_EQUATES
$INSERT RUN_STAGE_EQUATES
$INSERT WM_IN_EQUATES





RDSNo = '108140'

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

RunStages = RRec<REACT_RUN_RUN_STAGE_KEY$>

SWAP RDSNo:'*' WITH '' IN RunStages


IF RunStages[-1,1] = @VM THEN
	RunStages[-1,1] = ''
END

cCnt = COUNT(RunStages,@VM) + (RunStages NE '')

RunUnloadLocations = ''

FOR I = 1 TO cCnt

	RunStage = RunStages<1,I>	
	
	RunStageKey = RDSNo:'*':RunStage
	
	SpecToolClass = XLATE('RUN_STAGE',RunStageKey,RUN_STAGE_SPEC_TOOL_CLASS$,'X')
	
	IF SpecToolClass NE '' THEN

		RunUnloadLocations<I> = obj_React_Run('StageUnloadQ',RDSNo:@RM:@RM:RunStage)
		
	END ELSE
		RunUnloadLocations<I> = ''
	END
	
	
NEXT I



DEBUG

CurrStages = RRec<REACT_RUN_WFR_STAGE$>


IF CurrStages[-1,1] = @VM THEN
	CurrStages[-1,1] = ''
END

cCnt = COUNT(CurrStages,@VM) + (CurrStages NE '')

WfrUnloadLocations = ''

FOR I = 1 TO cCnt

	CurrStage = CurrStages<1,I>	
	
	
	WfrUnloadLocations<I> = obj_React_Run('StageUnloadQ',RDSNo:@RM:@RM:CurrStage)
		
		
	
NEXT I



DEBUG

GOTO Bail


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

END
