33 lines
543 B
Plaintext
33 lines
543 B
Plaintext
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
|