Navigates to the first navigable item in the next enterable block in the navigation sequence. By default, the next block in the navigation sequence is the block with the next higher sequence number, as defined by the order of blocks in the Object Navigator. However, the Next Navigation Block block property can be set to specify a different block as the next block for navigation purposes.
If there is no enterable block with a higher sequence, NEXT_BLOCK navigates to the enterable block with the lowest sequence number.
PROCEDURE NEXT_BLOCK;
Built-in Type restricted procedure
Enter Query Mode no
none
/*
** Built-in: NEXT_BLOCK
** Example: If the current item is the last item in the
** block, then skip to the next block instead of
** the default of going back to the first item in
** the same block
** Trigger: Key-Next-Item
*/
DECLARE
cur_itm VARCHAR2(80) := :System.Cursor_Item;
cur_blk VARCHAR2(80) := :System.Cursor_Block;
lst_itm VARCHAR2(80);
BEGIN
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;