call sqlConnect 'DBAF'
$=tb = A540769.TWK924
$@do i=1 to 3000 $@[
call sqlExec "set :txt = current timestamp"
call sqlExec "update" $tb ,
"set text = char(current timestamp) || ' updateNoCommit'",
"where key = 2"
say 'update no commit' i time() 'for' txt
call sleep 60, 0
$]
call sqlDisconnect
$***out 20090910 15:19:16
$***out 20090910 15:15:37