create or replace procedure Test_myprocedure is
CURSOR CUR_TEST IS --聲明顯式遊標
SELECT user_id ECODE,username ENAME
FROM sys_user;
CUR CUR_TEST%ROWTYPE; --定義遊標變量,該變量的類型爲基於遊標C_EMP的記錄
BEGIN
--Fetch 循環
OPEN CUR_TEST;--必須要明確的打開和關閉遊標
FETCH CUR_TEST INTO CUR;
WHILE CUR_TEST%FOUND LOOP
--循環體
IF CUR.ECODE='32' THEN
--EXIT; --不符合要求,跳出循環
return;--不符合要求,存儲過程返回
END IF;
DBMS_OUTPUT.PUT_LINE('員工編號:'||CUR.ECODE ||'員工姓名:'|| CUR.ENAME);
FETCH CUR_TEST INTO CUR;
END LOOP;
CLOSE CUR_TEST;
DBMS_OUTPUT.PUT_LINE('循環外繼續~');
END ;