added LSL2 stored procedures

LSL2/STPROC/FIX_REACT_RUN_CI.txt

@@ -0,0 +1,56 @@
+COMPILE ROUTINE FIX_REACT_RUN_CI(Dummy)
+ROWDEF(CHARSTR)
+
+DECLARE SUBROUTINE obj_Schedule,Send_Dyn,Send_Info
+DECLARE FUNCTION Get_Status, Set_Printer
+
+$INSERT OIPRINT_EQUATES
+
+$INSERT REACT_RUN_CI_EQUATES
+
+
+OPEN 'REACT_RUN_CI' To FileIn ELSE GOTO Bail
+
+SELECT FileIn
+
+DEBUG
+
+Done = 0
+RecCnt = 0
+LOOP
+	READNEXT RecKey ELSE Done = 1
+UNTIL Done 
+	RecCnt += 1
+	Send_Info(RecCnt)
+	
+	WOStepKey = FIELD(RecKey,'*',1,2)
+	PSNo = XLATE('WO_STEP',WOStepKey,1,'X')
+	IF PSNo NE '' THEN
+		WaferSize = XLATE('PROD_SPEC',PSNo,'SUB_WAFER_SIZE','X')
+		IF WaferSize NE '' THEN
+			READ RRCIRec FROM FileIn,RecKey THEN
+				
+				RRCIRec<REACT_RUN_CI_WAFER_SIZE$> = WaferSize
+				WRITE RRCIRec ON FileIn,RecKey THEN
+					Send_Info(RecCnt)
+				END
+			END
+		END
+	END
+	
+REPEAT
+
+GOTO Bail
+
+
+
+
+
+IF Get_Status(errCode) THEN DEBUG
+
+
+* * * * * * *
+Bail:
+* * * * * * *
+
+