43 of 62
Associative Arrays - Example 1
declare
type dept_rty is record
(deptNo number,
extra_tx VARCHAR2(2000));
type dept_aa is
table of dept_rty
index by
binary_integer;
v_dept_aa dept_aa;
begin
u for r_d in (select
deptno from dept) loop
v_dept_aa(r_d.deptno).deptNo:=r_d.deptno;
u end loop;
for r_emp in (select
ename, deptno from emp) loop
v_dept_aa(r_emp.deptNo).extra_tx:=
v_dept_aa(r_emp.deptNo).extra_tx||
u '
'||r_emp.eName;
u end loop;
uend;