COMPILE ROUTINE TEST_OBJ_TOOL_LOG(Dummy)
ROWDEF(CHARSTR)

DECLARE SUBROUTINE Set_Status, obj_Tool_Log
DECLARE FUNCTION Get_Status, obj_Tool_Log

DEBUG

Tool		= 'TENCOR1'
CurrLogKey = XLATE('TOOL','TENCOR1',4,'X')
CurrModeDTM = FIELD(CurrLogKey,'*',2)


CurrModeDTM = OCONV(CurrModeDTM,'DT4/^S')
NewMode		= 'MTC'
NewReason	= 'Testing...'

Parms = Tool:@RM:CurrModeDTM:@RM:NewMode:@RM:NewReason

obj_Tool_Log('SetMode',Parms)

IF Get_Status(errCode) THEN debug

debug



* * * * * * *
Bail:
* * * * * * *

RETURN