Oracle万能存储过程

create or replace procedure proc_data_check is

--定义变量

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;