added LSL2 stored procedures

LSL2/STPROC/FIX_TOOL_LOG.txt

@@ -0,0 +1,50 @@
+COMPILE ROUTINE FIX_TOOL_LOG(Dummy)
+ROWDEF (CHARSTR)
+
+DECLARE SUBROUTINE SEND_INFO, SEND_DYN, RList,Btree.Extract, Set_Status, Get_Status
+
+
+$INSERT TOOL_EQUATES
+$INSERT TOOL_LOG_EQUATES
+debug
+
+OPEN 'TOOL' TO ToolTable ELSE
+	Send_Info('Puked on tool table open.')
+	GOTO Bail
+END
+
+OPEN 'TOOL_LOG' TO LogTable ELSE
+	Send_Info('Puked on TOOL_LOG table open.')
+	GOTO Bail
+END
+
+debug
+SELECT LogTable
+
+Done = 0
+LOOP
+	READNEXT ToolID ELSE Done = 1
+UNTIL Done
+
+	IF ToolID[1,'*'] = 'AKRION' THEN	
+		OrgToolID = ToolID
+		NewToolID = 'AKRION1*':FIELD(ToolID,'*',2)
+		
+		
+		READ LogRec FROM LogTable,OrgToolID THEN
+			*WRITE LogRec ON LogTable,NewToolID THEN
+				*DELETE LogTable,OrgToolID THEN
+					Send_Dyn(OrgToolID:'->':NewToolID)
+				*END
+			*END
+		END
+	END
+	
+REPEAT
+
+
+* * * * * * *
+Bail:
+* * * * * * *
+
+END