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;