Oracle之可變陣列

使用INDEX BY BINARY_INTEGER的索引表，則實現同一執行結果，程式要做哪些相應的改變。

SET SERVEROUTPUT ON

DECLARE

TYPE dept_list IS TABLE OF dept.dname%TYPE INDEX BY BINARY_INTEGER;     

TYPE top5_list IS TABLE OF dept.loc%TYPE INDEX BY BINARY_INTEGER;    

dis_dept dept_list;                                    

Num_5 top5_list;                                 

BEGIN

   dis_dept(1):='AMGN';

   IF dis_dept IS NULL THEN

       dis_dept(1) :=’AMGN’ ;

       dis_dept(2) :=’BGEN’ ;

DBMS_OUTPUT.PUT_LINE('dis_dept表當前元素個數為：'||to_char(dis_dept.count));

   END IF;

       Num_5(1) := ‘ORCL’ ;

Num_5(2) := ‘CSCO’ ;

   IF NOT Num_5.EXISTS(3) THEN

       Num_5(3):='CPQ';

   END IF;

   Num_5(4):='DELL';

     FOR COUNTER IN 1..4 LOOP

      DBMS_OUTPUT.PUT_LINE(NUM_5(COUNTER));

   END LOOP;

END;