added LSL2 stored procedures
This commit is contained in:
32
LSL2/STPROC/COPY_ALL_SQL_ERRORS_TO_SQL.txt
Normal file
32
LSL2/STPROC/COPY_ALL_SQL_ERRORS_TO_SQL.txt
Normal file
@ -0,0 +1,32 @@
|
||||
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
|
Reference in New Issue
Block a user