Oracle Array

Question

Hi,
I need to know all about Oracle Arrays. Where can I find some practical examples of working with Arrays in Oracle?
For e.g. Example programs having definition, declaration, manipulating the array
Regards,
Lostworld

Answer 1

I have given some basic examples. You can try it and learn
BANNER
Oracle Database 11g Express Edition Release 11.2.0.2.0 - Production
PL/SQL Release 11.2.0.2.0 - Production
CORE    11.2.0.2.0      Production
TNS for 32-bit Windows: Version 11.2.0.2.0 - Production
NLSRTL Version 11.2.0.2.0 - Production
Simple Varray type:-
CREATE OR REPLACE PROCEDURE proc_arraytest
AS
----- Varray Definition
TYPE var_details IS VARRAY(14) OF emp.ename%TYPE;
----- Varray Declaration
v_vardetails var_details := var_details();
v_position NUMBER := 0;
BEGIN
FOR i IN (SELECT ename FROM emp)
  LOOP
   v_position := v_position+1;
   v_vardetails.EXTEND;
   ----- Manipulating into VARRAY
   v_vardetails(v_position) := i.ename;
   END LOOP;
  ---- Printing VARRAY values
  FOR j in 1..v_vardetails.COUNT
   LOOP
    DBMS_OUTPUT.PUT_LINE(v_vardetails(j));
   END LOOP;
EXCEPTION
WHEN OTHERS THEN
RAISE;
END proc_arraytest;
EXEC proc_arraytest;
Varray with record type:-
CREATE OR REPLACE PROCEDURE proc_arrayrectest
AS
----- Record Definition
TYPE rec_details IS RECORD (empno emp.empno%TYPE,
                             ename emp.ename%TYPE,
                             deptno emp.deptno%TYPE,
                             dname  dept.dname%TYPE
----- Varray Definition
TYPE var_details IS VARRAY(20) OF rec_details;
----- Varray Declaration
v_vardetails var_details := var_details();
v_position NUMBER := 0;
BEGIN
FOR i IN (SELECT empno,ename,e.deptno deptno,dname FROM emp e,dept d WHERE e.deptno = d.deptno)
  LOOP
   v_position := v_position+1;
   v_vardetails.EXTEND;
   ----- Manipulating into VARRAY
   v_vardetails(v_position).empno := i.empno;
   v_vardetails(v_position).ename := i.ename;
   v_vardetails(v_position).deptno := i.deptno;
   v_vardetails(v_position).dname := i.dname;
   END LOOP;
  ---- Printing VARRAY values
  FOR j in 1..v_vardetails.COUNT
   LOOP
    DBMS_OUTPUT.PUT_LINE(v_vardetails(j).empno||','||
                         v_vardetails(j).ename||','||
                         v_vardetails(j).deptno||','||
                         v_vardetails(j).dname);
   END LOOP;
EXCEPTION
WHEN OTHERS THEN
RAISE;
END proc_arrayrectest;
EXEC proc_arrayrectest;
Simple Varray type With Bulk collect:-
CREATE OR REPLACE PROCEDURE proc_arraybulktest
AS
----- Varray Definition
TYPE var_details IS VARRAY(14) OF emp.ename%TYPE;
----- Varray Declaration
v_vardetails var_details;
v_position NUMBER := 0;
BEGIN
---- Manipulating into Varray using bulk collect
SELECT ename BULK COLLECT INTO v_vardetails FROM emp;
  ---- Printing VARRAY values
  FOR j in 1..v_vardetails.COUNT
   LOOP
    DBMS_OUTPUT.PUT_LINE(v_vardetails(j));
   END LOOP;
EXCEPTION
WHEN OTHERS THEN
RAISE;
END proc_arraybulktest;
EXEC proc_arraybulktest;
Varray with record type(Bulk Collect):-
CREATE OR REPLACE PROCEDURE proc_arrayrecbulktest
AS
----- Record Definition
TYPE rec_details IS RECORD (empno emp.empno%TYPE,
                             ename emp.ename%TYPE,
                             deptno emp.deptno%TYPE,
                             dname  dept.dname%TYPE
----- Varray Definition(You need to mention the size of varray.. Here is 20)
TYPE var_details IS VARRAY(20) OF rec_details;
----- Varray Declaration
v_vardetails var_details := var_details();
v_position NUMBER := 0;
BEGIN
---- Manipulating into Varray using bulk collect
SELECT empno,
        ename,
        e.deptno deptno,
        dname BULK COLLECT INTO v_vardetails
FROM emp e,
     dept d
WHERE e.deptno = d.deptno;
  ---- Printing VARRAY values
  FOR j in 1..v_vardetails.COUNT
   LOOP
    DBMS_OUTPUT.PUT_LINE(v_vardetails(j).empno||','||
                         v_vardetails(j).ename||','||
                         v_vardetails(j).deptno||','||
                         v_vardetails(j).dname);
   END LOOP;
EXCEPTION
WHEN OTHERS THEN
RAISE;
END proc_arrayrecbulktest;
EXEC proc_arrayrecbulktest;
------ We have forall for bulk insert.
Varray with FORALL:-
CREATE OR REPLACE PROCEDURE proc_arrayrecbulkforalltest
AS
----- Record Definition
TYPE rec_details IS RECORD (empno emp.empno%TYPE,
                             ename emp.ename%TYPE,
                             deptno emp.deptno%TYPE,
                             dname  dept.dname%TYPE
----- Varray Definition(You need to mention the size of varray.. Here is 20)
TYPE var_details IS VARRAY(20) OF rec_details;
----- Varray Declaration
v_vardetails var_details := var_details();
v_position NUMBER := 0;
BEGIN
---- Manipulating into Varray using bulk collect
SELECT empno,
        ename,
        e.deptno deptno,
        dname BULK COLLECT INTO v_vardetails
FROM emp e,
     dept d
WHERE e.deptno = d.deptno;
  ----Bulk insert
  FORALL i in 1..v_vardetails.COUNT
   INSERT INTO test_empdet(empno,
                           ename,
                           deptno,
                           dname
                 VALUES (v_vardetails(i).empno,
                         v_vardetails(i).ename,
                         v_vardetails(i).deptno,
                         v_vardetails(i).dname
COMMIT;
EXCEPTION
WHEN OTHERS THEN
RAISE;
END proc_arrayrecbulkforalltest;
EXEC proc_arrayrecbulkforalltest;