22 lines
366 B
Plaintext
22 lines
366 B
Plaintext
COMPILE ROUTINE TEST_OBJ_RDS_MAKEUP(Dummy)
|
|
ROWDEF(CHARSTR)
|
|
|
|
DECLARE SUBROUTINE obj_Notes, Set_Status, obj_RDS_Makeup
|
|
DECLARE FUNCTION Get_Status, obj_RDS_Makeup
|
|
|
|
Set_Status(0)
|
|
|
|
SrcSlots = obj_RDS_Makeup('RemMUWafers','212170':@RM:'212170':@RM:'23':@VM:'24')
|
|
|
|
DEBUG
|
|
|
|
IF Get_Status(errCode) THEN DEBUG
|
|
|
|
|
|
|
|
* * * * * * *
|
|
Bail:
|
|
* * * * * * *
|
|
|
|
RETURN
|