added LSL2 stored procedures

LSL2/STPROC/TEST_OBJ_REACT_RUN.txt

@@ -0,0 +1,88 @@
+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