Oracle Forms Developer – Form Builder Reference, Volume 1

On-Fetch trigger examples
This example calls a client-side package function to retrieve the proper number of rows from a package
cursor.
DECLARE
j NUMBER := Get_Block_Property(blk_name, RECORDS_TO_FETCH);
emprow emp%ROWTYPE;
BEGIN
FOR ctr IN 1..j LOOP
/*
** Try to get the next row.
*/
EXIT WHEN NOT MyPackage.Get_Next_Row(emprow);
Create_Queried_Record;
:Emp.rowid := emprow.ROWID;
:Emp.empno := emprow.EMPNO;
:Emp.ename := emprow.ENAME;
:
:
END LOOP;
IF form_fatal OR form_failure THEN
raise form_trigger_failure;
END IF;
END;
447