added LSL2 stored procedures

This commit is contained in:
Infineon\StieberD
2024-03-25 14:46:21 -07:00
parent 09f1a66046
commit c667dd56eb
1655 changed files with 527967 additions and 0 deletions

View 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