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:
* * * * * * *


