zOs/TX/WK924UPD

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) || ' update'",
         "where key = 1"
     call sleep 1, 0
     call sqlCommit
     say 'commit' i time() 'for' txt
     call sleep 1, 0
     $]
call sqlDisconnect
$***out            20090910 15:19:16
$***out            20090910 15:15:37