57 lines
894 B
Plaintext
57 lines
894 B
Plaintext
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:
|
|
* * * * * * *
|
|
|
|
|