2009年3月26日 星期四

PL/SQL - use collection

declare
TYPE ExceptionRec IS RECORD
(je_header_id gl_je_lines.je_header_id%type,
je_line_num gl_je_lines.je_line_num%type);
TYPE ExceptionTable IS TABLE OF ExceptionRec
INDEX BY BINARY_INTEGER;
exception_rec ExceptionRec;
exception_tab ExceptionTable;
begin
for rec in (select je_header_id, je_line_num from gl_je_lines
where je_header_id = 62777)
loop
exception_rec.je_header_id := rec.je_header_id;
exception_rec.je_line_num := rec.je_line_num;
exception_tab(exception_tab.count+1) := exception_rec;
end loop;
dbms_output.put_line(exception_tab.count);
for i in 1..exception_tab.count loop
DBMS_OUTPUT.PUT_LINE(exception_tab(i).je_header_id || ',' || exception_tab(i).je_line_num);
end loop;
end;

0 意見: