45 lines
1.0 KiB
Plaintext
45 lines
1.0 KiB
Plaintext
COMPILE ROUTINE TEST_OBJ_WO_MAT_WFR(Dummy)
|
|
ROWDEF(CHARSTR)
|
|
|
|
DECLARE SUBROUTINE obj_WO_Wfr, Set_Status, ErrMsg, obj_WO_Mat_Wfr
|
|
DECLARE FUNCTION Get_Status, obj_WO_Wfr, obj_WO_Mat_Wfr
|
|
|
|
$INSERT PART_EQUATES
|
|
$INSERT WO_MAT_WFR_EQUATES
|
|
|
|
|
|
Set_Status(0)
|
|
|
|
DEBUG
|
|
|
|
a = obj_WO_Mat_Wfr('GetPostEpiSlots','162188')
|
|
|
|
debug
|
|
|
|
GOTO Bail
|
|
|
|
/*
|
|
BEGIN CASE
|
|
CASE NewSlotID = '' AND CurrSlotID NE ''
|
|
obj_WO_Mat_Wfr('ClearWfrID',CurrSlotID:@RM:@RM:WfrSide) ;* Removes wafer from slot in WO_MAT_WFR record
|
|
|
|
CASE NewSlotID NE '' AND CurrSlotID NE ''
|
|
obj_WO_Mat_Wfr('SetWfrID',NewSlotID:@RM:WfrID:@RM:WfrSide) ;* Adds Wafer ID to NewSlotID in WO_MAT_WFR table
|
|
obj_WO_Mat_Wfr('ClearWfrID',CurrSlotID:@RM:@RM:WfrSide) ;* Removes wafer from CurrSlotIDin WO_MAT_WFR record
|
|
|
|
CASE NewSlotID NE '' AND CurrSlotID = ''
|
|
obj_WO_Mat_Wfr('SetWfrID',NewSlotID:@RM:WfrID:@RM:WfrSide) ;* Adds Wafer ID to NewSlotID in WO_MAT_WFR table
|
|
|
|
CASE 1
|
|
NULL
|
|
|
|
END Case
|
|
|
|
*/
|
|
|
|
* * * * * * *
|
|
Bail:
|
|
* * * * * * *
|
|
|
|
RETURN
|