added LSL2 stored procedures

LSL2/STPROC/TEST_OBJ_REACT_RUN_CI.txt

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