added LSL2 stored procedures
This commit is contained in:
27
LSL2/STPROC/TEST_OBJ_MUWAFERS.txt
Normal file
27
LSL2/STPROC/TEST_OBJ_MUWAFERS.txt
Normal file
@ -0,0 +1,27 @@
|
||||
COMPILE ROUTINE TEST_OBJ_MUWafers(Dummy)
|
||||
ROWDEF(CHARSTR)
|
||||
|
||||
DECLARE SUBROUTINE obj_MUWafers, Set_Status
|
||||
DECLARE FUNCTION Get_Status, obj_MUWafers
|
||||
|
||||
Set_Status(0)
|
||||
|
||||
WONo = '149211'
|
||||
|
||||
Parms = WONo:@RM ;*
|
||||
Parms := @RM ;* WOLogRec
|
||||
Parms := 1:@RM ;* ReturnKeys Flag
|
||||
Parms := 1 ;* Use Reactor Run Table Flag
|
||||
|
||||
|
||||
DEBUG
|
||||
|
||||
AvailMU_WOMatKeys = obj_MUWafers('AvailWafers',Parms)
|
||||
|
||||
debug
|
||||
|
||||
* * * * * * *
|
||||
Bail:
|
||||
* * * * * * *
|
||||
|
||||
RETURN
|
Reference in New Issue
Block a user