34 lines
772 B
Plaintext
34 lines
772 B
Plaintext
Function Test_Crisp()
|
|
#pragma precomp SRP_PreCompiler
|
|
|
|
Declare function Memberof, Msg, Database_Services, Reactor_Services
|
|
DECLARE subroutine Write_Oi_To_Sql
|
|
|
|
Equ Tab$ to Char(9)
|
|
Equ Esc$ to \1B\
|
|
Equ CRLF$ to \0D0A\
|
|
|
|
r = 28
|
|
loaded = Reactor_services('GetReactorCurrLoad', r)
|
|
|
|
return loaded
|
|
*debug
|
|
KeyList = Database_Services('ReadDataRow', 'SYSLISTS', 'CRISP_TEST')
|
|
For each KeyID in KeyList using @FM setting fPos then
|
|
TableName = 'JCH_LOG'
|
|
|
|
If TableName NE '' and KeyID NE '' then
|
|
TransID = ''
|
|
TransID<1> = 'WRITE'
|
|
TransID<2> = 'LSL2'
|
|
TransID<3> = 'LSL'
|
|
TransID<4> = TableName
|
|
TransID<5> = KeyID
|
|
Write_OI_To_Sql(TransID)
|
|
end
|
|
|
|
//Running = Msg(@WINDOW, MsgUp, fPos, MSGINSTUPDATE$) ;* Update message
|
|
Next KeyID
|
|
|
|
|