create or replace procedure proc_data_check is

创新互联公司2013年开创至今，先为罗甸等服务建站，罗甸等地企业，进行企业商务咨询服务。为罗甸企业网站制作PC+手机+微官网三网同步一站式服务解决您的所有建站问题。

    --定义变量

    V_LOCK_ID            INTEGER;

    v_lockhandle         VARCHAR(128);

    V_RELEASE_ID         INTEGER;

    --定义出错异常信息编码

    v_error_code VARCHAR2(10) := '';

    --定义错误异常描述信息

    v_error_message VARCHAR2(1000) := '';

    cursor check_orgs is

    select org_code, org_name from check_org;

 begin

  DBMS_LOCK.ALLOCATE_UNIQUE('PROC_DATA_CHECK', v_lockhandle, 86400);

  V_LOCK_ID := DBMS_LOCK.REQUEST(v_lockhandle, DBMS_LOCK.X_MODE, 0, FALSE);

  if (V_LOCK_ID = 0) then

  for check_org in check_orgs loop

    null;

  end loop;

 

  V_RELEASE_ID := dbms_lock.release(v_lockhandle);

  COMMIT;

  end if;

  commit;

EXCEPTION

  WHEN OTHERS THEN

    V_RELEASE_ID := dbms_lock.release(v_lockhandle);

    --得到异常编码

    V_ERROR_CODE := SQLCODE;

    --得到异常描述信息

    V_ERROR_MESSAGE := SQLERRM;

    --将异常信息维护到异常表中

end proc_data_check;

网站题目：Oracle万能存储过程
标题路径：http://scgulin.cn/article/ihhecd.html