oracle 存储过程 行锁

问题：1.要求通过存储过程实现程序运行的并发控制。

         2.存储过程一个输入参数一个输出参数，输入要运行的程序名称，判断该程序是否在运行输出参数返回程序状态

         3.解决问题：当两个用户同时访问同一程序时，都检索到该程序未运行，同时运行，并发失效。

create or replace procedure (prog_name_in varchar2(50),run_flag_out out varchar2(50))

is

v_run_flag varchar2(10);

 

begin

  select run_flag into v_run_flag from tb_prog_stauts

           where prog_name = prog_name_in for update ;

  if(v_run_flag = 'Y') then

     run_flag_out := '程序运行中';

  end if;

  if(v_run_flag ='N') then

     fun_flag_out := '程序可以运行';

  end if;

 Exception

     when others then

     rollback;

commit;

end;