오라클 커서(CURSOR) 사용 샘플

CREATE OR REPLACE PROCEDURE 프로시저명(

LSV_IN IN TABLE%TYPE,

        RTN_CD    OUT INTEGER,

        RTN_MSG  OUT VARCHAR2

)

IS

LSV_VAR          VARCHAR2(3) ; 

ERR_01 EXCEPTION ;

CURSOR CUR1

IS

-- CURSOR 선언

SELECT *

          FROM TABLE;

BEGIN

BEGIN

-- 기존데이터 삭제

DELETE FROM  TABLE

WHERE   조건

  ;

EXCEPTION

WHEN NO_DATA_FOUND THEN

RAISE ERR_01 ;

END ;

END LOOP;

RTN_MSG := '정상 처리되었습니다.';

RTN_CD  := 0;

EXCEPTION

WHEN INVALID_CURSOR THEN

Raise_Application_Error(-20012, '커서작업 오류.') ;

RTN_CD  := -1;

WHEN  ERR_01 THEN

Raise_Application_Error(-20012, 'DELETE 오류.') ;

RTN_CD  := -1;

END ;

/