51 lines
850 B
Plaintext
51 lines
850 B
Plaintext
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
|