added LSL2 stored procedures

LSL2/STPROC/TEST_OBJ_TOOL_LOG.txt

@@ -0,0 +1,32 @@
+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