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';
来自 “ ITPUB博客 ” ，链接：https://blog.itpub.net/226700/viewspace-914315/ ，如需转载，请注明出处，否则将追究法律责任。
上一篇：
开放,忍耐
下一篇：
GET last query
请登录后发表评论
登录
全部评论
