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


