46 lines
721 B
Plaintext
46 lines
721 B
Plaintext
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
|