Press "Enter" to skip to content

How to Loop Through Records in Oracle Forms?

If you are working in Oracle Forms having tabular data block or creating a new tabular data block, then you might require to loop through the records due to many reasons. Maybe you need to write a text file by looping through all records, or you need to perform some validations. Below I am giving an example of a loop through records in Oracle Forms, you can use it for different purposes.

Loop Through Records in Oracle Form’s Tabular Data Block

In the following example, it will execute the query in the EMP block and will loop through all the records, to calculate the total salary.

DECLARE
   l_sal   NUMBER;
BEGIN
   GO_BLOCK ('emp');
   EXECUTE_QUERY;
   -- move pointer to first record
   FIRST_RECORD;
   l_sal := 0;

   LOOP
      l_sal := l_sal + :emp.sal;

      IF :SYSTEM.LAST_RECORD = 'TRUE'
      THEN
         EXIT;
      END IF;

      NEXT_RECORD;
   END LOOP;

   MESSAGE ('Total Salary: ' || l_sal);
   FIRST_RECORD;
-- move pointer to first record
END;

See also: