1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27
|
DECLARE
cur_itm VARCHAR2(80) := :System.Cursor_Item;
cur_blk VARCHAR2(80) := :System.Cursor_Block;
lst_itm VARCHAR2(80);
first_itm VARCHAR2(80);
orig_itm VARCHAR2(80);
test varchar2(80);
wrapped BOOLEAN := FALSE;
found BOOLEAN := FALSE;
begin
cur_blk := :System.Cursor_Block;
first_itm := Get_Block_Property(cur_blk,FIRST_ITEM);
orig_itm := :System.Cursor_Item;
cur_itm := cur_blk||'.'||NVL(Get_Item_Property(orig_itm,NEXTITEM),first_itm);
WHILE (orig_itm <> cur_itm) LOOP
cur_itm := cur_blk||'.'||NVL(Get_Item_Property(cur_itm,NEXTITEM),first_itm);
message('SYSTEM.cur_itm');pause;
--message(test);pause;
END LOOP;
-- lst_itm := cur_blk||'.'||Get_Block_Property(cur_blk,LAST_ITEM);
-- IF cur_itm = lst_itm
-- THEN Next_Block;
-- ELSE Next_Item;
-- END IF;
end; |