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;
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;