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 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 = obj_React_Run('StageUnloadQ',RDSNo:@RM:@RM:RunStage) END ELSE RunUnloadLocations = '' END NEXT I DEBUG CurrStages = RRec 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 = obj_React_Run('StageUnloadQ',RDSNo:@RM:@RM:CurrStage) NEXT I DEBUG GOTO Bail * * * * * * * Bail: * * * * * * * END