37 lines
419 B
Plaintext
37 lines
419 B
Plaintext
COMPILE ROUTINE TEST_OBJ_WO_WFR(Dummy)
|
|
ROWDEF(CHARSTR)
|
|
|
|
DECLARE SUBROUTINE obj_WO_Wfr, Set_Status, ErrMsg
|
|
DECLARE FUNCTION Get_Status, obj_WO_Wfr
|
|
|
|
$INSERT PART_EQUATES
|
|
|
|
|
|
Set_Status(0)
|
|
|
|
debug
|
|
|
|
|
|
WfrID = '141549*1*9'
|
|
Event = 'NCR'
|
|
|
|
obj_WO_Wfr('RemEvent',WfrID:@RM:Event)
|
|
|
|
DEBUG
|
|
|
|
|
|
IF Get_Status(errCode) THEN
|
|
ErrMsg(errCode)
|
|
END
|
|
|
|
GOTO Bail
|
|
|
|
|
|
|
|
|
|
* * * * * * *
|
|
Bail:
|
|
* * * * * * *
|
|
|
|
RETURN
|