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
