48 lines
810 B
Plaintext
48 lines
810 B
Plaintext
COMPILE ROUTINE TEST_OBJ_REACT_TUBE(Dummy)
|
|
ROWDEF(CHARSTR)
|
|
|
|
DECLARE SUBROUTINE obj_Notes, Set_Status, Send_Info, obj_React_Tube
|
|
DECLARE FUNCTION Get_Status,obj_Order
|
|
|
|
|
|
TubeChange:
|
|
* * * * * * *
|
|
|
|
* This method is called from the WRITE event on the REACTOR_LOG window
|
|
|
|
DEBUG
|
|
|
|
ReactorNo = '38'
|
|
ChangeDTM = "2/17/2010 13:32:00"
|
|
ReactorLogID = '377197'
|
|
TubeSerial = '091306R'
|
|
ReactHrs = '31299'
|
|
ReactorCycles = '31880'
|
|
|
|
obj_React_Tube('TubeChange',ReactorNo:@RM:ChangeDTM:@RM:ReactorLogID:@RM:TubeSerial:@RM:ReactHrs:@RM:ReactorCycles)
|
|
|
|
IF Get_Status(errCode) THEN
|
|
debug
|
|
END
|
|
|
|
|
|
GOTO Bail
|
|
|
|
|
|
ReactorNo = 32
|
|
WaferQty = 12
|
|
|
|
obj_React_Tube('ReactUnload',ReactorNo:@RM:WaferQty)
|
|
|
|
IF Get_Status(errCode) THEN
|
|
DEBUG
|
|
END
|
|
|
|
GOTO Bail
|
|
|
|
* * * * * * *
|
|
Bail:
|
|
* * * * * * *
|
|
|
|
END
|