uPrepare memory structure
u
udeclare
u type list_aa is
table of VARCHAR2(2000)
u index by
VARCHAR2(256);
u v_list_aa list_aa;
u cursor c_emp is
u select ename,
deptno,to_char(hiredate,'q') q_nr
u from emp;
u v_key_tx
VARCHAR2(256);
ubegin
u for r_d in (select
deptno from dept order by 1) loop
u v_list_aa(r_d.deptno||'|1'):=
u 'Q1 Dept#'
||r_d.deptno||':';
u
v_list_aa(r_d.deptno||'|2'):=
u 'Q2 Dept#'
||r_d.deptno||':';
u ...
uend loop;