PLSQL Language Referenc-PL/SQL集合和記錄-巢狀表

variable_name(index)

DECLARE

    TYPE Roster IS TABLE OF VARCHAR2(15);  -- 巢狀表型別

    --使用構造器初始化巢狀表變數

    names Roster := Roster('AAAA', 'BBBB', 'CCCC', 'DDDD');

    PROCEDURE print_names (heading VARCHAR2) IS

    BEGIN

        DBMS_OUTPUT.PUT_LINE(heading);

        FOR i IN names.FIRST .. names.LAST LOOP  -- 迴圈所有元素

            DBMS_OUTPUT.PUT_LINE(names(i));

        END LOOP;

        DBMS_OUTPUT.PUT_LINE('---');

    END;

    BEGIN

    print_names('第1組:');

    names(3) := 'EEEE';  -- 改變元素的值

    print_names('第2組:');

    names := Roster('FFFF', 'GGGG');  -- 改變整個巢狀表

    print_names('第3組:');

END;

--獨立的儲存型別的巢狀表

CREATE OR REPLACE TYPE nt_type IS TABLE OF NUMBER;

/

CREATE OR REPLACE PROCEDURE print_nt (nt nt_type) IS

    i  NUMBER;

BEGIN

    i := nt.FIRST;

    IF i IS NULL THEN

        DBMS_OUTPUT.PUT_LINE('nt為empty');

    ELSE

        WHILE i IS NOT NULL LOOP

            DBMS_OUTPUT.PUT('nt.(' || i || ') = ');

            print(nt(i));

            i := nt.NEXT(i);

        END LOOP;

    END IF;

    DBMS_OUTPUT.PUT_LINE('---');

END print_nt;

/

DECLARE

    nt nt_type := nt_type();  -- 巢狀表變數初始化為empty

BEGIN

    print_nt(nt);

    nt := nt_type(90, 9, 29, 58);

    print_nt(nt);

END;