如何遍历一个BLOCK

最新推荐文章于 2016-01-25 00:52:00 发布

meteorlWJ

最新推荐文章于 2016-01-25 00:52:00 发布

阅读量738

点赞数

本文链接：https://blog.csdn.net/meteorlWJ/article/details/4170446

版权

LOOP

--do something...

IF :SYSTEM.LAST_RECORD = 'TRUE'
THEN
EXIT;
END IF;

NEXT_RECORD;
-- v_i := v_i + 1;
END LOOP;

--example :

go_block('detail');
FIRST_RECORD;

LOOP
if :cancel_flag = 'Y' then

UPDATE xxcompany_oe_goods_label_all
SET cancel_flag = 'Y',
cancel_time = NVL (:header.cancel_time, SYSDATE)
WHERE gl_id= :gl_id;
end if;

COMMIT;

IF :SYSTEM.LAST_RECORD = 'TRUE'
THEN
EXIT;
END IF;

NEXT_RECORD;
-- v_i := v_i + 1;
END LOOP;

:parameter.p_query := 'y';
EXECUTE_QUERY;
:parameter.p_query := 'n';

本文转自：http://moonsoft.itpub.net/post/15182/286721