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