Navigates to the first enabled and navigable item in the record with the next lower sequence number than the current record.
PROCEDURE PREVIOUS_RECORD;
Built-in Type restricted procedure
Enter Query Mode no
none
/*
** Built-in: PREVIOUS_RECORD
** Example: If the current item is the first item in the
** block, then skip back to the previous record
** instead of the default of going to the last
** item in the same block
** Trigger: Key-Previous-Item
*/
DECLARE
cur_itm VARCHAR2(80) := :System.Cursor_Item;
cur_blk VARCHAR2(80) := :System.Cursor_Block;
frs_itm VARCHAR2(80);
BEGIN
frs_itm := cur_blk||'.'||Get_Block_Property(cur_blk,FIRST_ITEM);
IF cur_itm = frs_itm THEN
Previous_Record;
ELSE
Previous_Item;
END IF;
END;