첨부 실행 코드는 나눔고딕코딩 폰트를 사용합니다.
유용한 소스 코드가 있으면 icodebroker@naver.com으로 보내주시면 감사합니다.
블로그 자료는 자유롭게 사용하세요.

728x90
반응형
-- 애완동물 객체 타입을 생성한다.
CREATE TYPE PET_OBJECT_TYPE IS OBJECT
(
    TAG_NO INTEGER
   ,NAME   VARCHAR2(50)
);

SET SERVEROUTPUT ON;

DECLARE
    -- 애완동물 중첩 테이블 타입을 정의한다.
    TYPE PET_TABLE_TYPE IS TABLE OF PET_OBJECT_TYPE;

    -- 애완동물 중첩 테이블 변수를 정의한다.
    V_PET_TABLE PET_TABLE_TYPE := PET_TABLE_TYPE(PET_OBJECT_TYPE(1050, 'Sammy'), PET_OBJECT_TYPE(1075, 'Mercury'));
BEGIN
    FOR I IN V_PET_TABLE.FIRST..V_PET_TABLE.LAST
    LOOP
        DBMS_OUTPUT.put_line(V_PET_TABLE(I).NAME);
    END LOOP;
END;
728x90
반응형
Posted by 사용자 icodebroker

댓글을 달아 주세요