Compile subroutine Copy_All_Sql_Errors_To_SQL(VOID)

/*****************************************************************************\
	This is a utility function. It resynchronizes all errors found in the
	SQL_ERROR table.
\*****************************************************************************/

Equ Update_Interval$ to 1000

Declare subroutine Copy_Sql_Errors_Record_To_Sql
Declare function GetASyncKeyState

Tables = ""

Convert "," to @FM in Tables

Errors = ""

Open "SQL_ERROR" to hTable then
    ClearSelect
    Select hTable
    Done = 0
    Loop
        ReadNext Key else Done = 1
    Until Done OR (GetASyncKeyState(27) LT 0)
        Copy_Sql_Errors_Record_To_Sql(Key, 1)
    Repeat
end else
    Call Msg(@Window, "Unable to open table.")
end

Return
