■ 연관 배열 사용하기

------------------------------------------------------------------------------------------------------------------------

SET SERVEROUTPUT ON;

 

DECLARE

    -- 직원 성명 연관 배열 타입을 정의한다.

    TYPE EMPLOYEE_NAME_ARRAY_TYPE IS TABLE OF SCOTT.EMP.ENAME%TYPE INDEX BY BINARY_INTEGER;

    

    -- 직원 성명 연관 배열 타입의 변수를 정의한다.

    V_EMPLOYEE_NAME_ARRAY EMPLOYEE_NAME_ARRAY_TYPE;

    

    V_EMPLOYEE_NAME_ARRAY_INDEX BINARY_INTEGER := 0;

BEGIN

    FOR I IN (SELECT ENAME FROM SCOTT.EMP) LOOP

 

        V_EMPLOYEE_NAME_ARRAY_INDEX := V_EMPLOYEE_NAME_ARRAY_INDEX + 1;

 

        -- 직원 성명 연관 배열 변수의 항목을 설정한다.

        V_EMPLOYEE_NAME_ARRAY(V_EMPLOYEE_NAME_ARRAY_INDEX) := I.ENAME;

 

    END LOOP;

    

    FOR i IN 1..V_EMPLOYEE_NAME_ARRAY_INDEX LOOP

 

        DBMS_OUTPUT.PUT_LINE(V_EMPLOYEE_NAME_ARRAY(i));

 

    END LOOP;

END;

------------------------------------------------------------------------------------------------------------------------

Posted by 사용자 icodebroker
TAG

댓글을 달아 주세요