phares3757/open-insight
3
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

pre cutover push

Browse Source
This commit is contained in:
Infineon\StieberD
2024-09-04 20:33:41 -07:00
parent 6ea6969f4b
commit 7762b129af
2072 changed files with 130000 additions and 95295 deletions
Download Patch File Download Diff File Expand all files Collapse all files

26
LSL2/STPROC/PASS_TO_SQL.txt
View File

@ -24,32 +24,7 @@ If Assigned(Table) else Table = ""
NonCriticalTables = Database_Services('ReadDataRow', 'APP_INFO', 'NONCRITICAL_SQL_TABLES')
If Process AND ID AND Table then
! Old code from before the APP/DB EC split. --------------- !
// Set the Command to run based upon the MFS Call. Currently only Write is enabled
* Begin Case
* Case Process _EQC "Write"
* Command = "RUN COPY_RECORD_TO_SQL ":Quote(Table):", ":Quote(ID):", 1"
* Case Process _EQC "Delete"
* Command = "RUN DELETE_RECORD_FROM_SQL ":Quote(Table):", ":Quote(ID):", 1"
* Case 1
* Command = ""
* End Case
*
* If Command then
// Disable call to SRP_TcpClient/SRP Engine Server since this can't be processed by the Application Server. - dmb - 07/18/2018
// Call the SRPEngineService and pass it the command
* Server = Environment_Services('GetServer')
* TCPServerSettings@ = Database_Services('ReadDataRow', 'APP_INFO', 'SQL_TCPIP_SETTINGS_' : Server)
* TcpClientHandle = 0
* If SRP_TcpClient(TcpClientHandle, "CONNECT", TCPServerSettings@<1>, TCPServerSettings@<2>) then
* SRP_TcpClient(TcpClientHandle, "SEND_SES", Command)
* SRP_TcpClient(TcpClientHandle, "CLOSE_SES")
* end
! ---------------------------------------------------------- !
// Unable to issue the remote command, so log this record as needing to be copied
Open "SQL_BACKLOG" to hSqlBacklog then
CurrDate = Date()
// Log the record
@ -74,3 +49,4 @@ end
Return