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