PB设置lock_timeout参数（当前连接生效）

declare lc_lock_timeout cursor for
select @@lock_timeout USING sqlca_cre;


open lc_lock_timeout;
if sqlca_cre.sqlcode <> 0 then
is_err = "open curor 错误：" + sqlca_cre.sqlerrtext
goto err_handler
end if


fetch lc_lock_timeout into :ls_lock;


close lc_lock_timeout;


messagebox("lock_timeout",ls_lock)


ls_tmp = "set LOCK_TIMEOUT 600000" //等待锁超时10分钟（单位ms）


execute immediate :ls_tmp USING sqlca_cre;