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;
免責聲明：本站發布的內容（圖片、視頻和文字）以原創、轉載和分享為主，文章觀點不代表本網站立場，如果涉及侵權請聯系站長郵箱：is@yisu.com進行舉報，并提供相關證據，一經查實，將立刻刪除涉嫌侵權內容。
