89 lines
1.3 KiB
Plaintext
89 lines
1.3 KiB
Plaintext
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
|