DATA: BEGIN OF ITAB OCCURS 10,
COL1 TYPE C,
COL2 TYPE I,
END OF ITAB.
DO 3 TIMES.
APPEND INITIAL LINE TO ITAB.
ITAB-COL1 = SY-INDEX. ITAB-COL2 = SY-INDEX ** 2.
APPEND ITAB.
ENDDO.
LOOP AT ITAB.
WRITE: / ITAB-COL1, ITAB-COL2.
ENDLOOP.
可以不可以请哪位高手解释一下这个程序,还有
LOOP AT ITAB.
WRITE: / ITAB-COL1, ITAB-COL2.
ENDLOOP.
这个语句的具体用法
给你介绍一个for loop
declare
cursor c is
select 'a' c_dump
from dual
union
select 'b'
from dual;
begin
for i in c loop
dbms_output.put_line(i.c_dump);
end loop;
end;
原帖由 ganghz 于 2008-8-22 21:20 发表
给你介绍一个for loop
declare
cursor c is
select 'a' c_dump
from dual
union
select 'b'
from dual;
begin
for i in c loop
dbms_output.put_line(i.c_dump);
end loop;
end;