Раздел 1.2 Задача 3

Как можно улучшить каждый из следующих фрагментов кода:

a.
OPEN emp_cur;
FETCH emp_cur INTO emp_rec;
WHILE emp_cur%FOUND
LOOP
calc_totals (emp_rec.salary);
FETCH emp_cur INTO emp_rec;
EXIT WHEN emp_rec.salary > 100000;
END LOOP;
CLOSE emp_cur;
b.
FOR a_counter IN lo_val .. hi_val
LOOP
IF a_counter > lo_val * 2
THEN
hi_val := lo_val;
END IF;
END LOOP;
c.
DECLARE
CURSOR emp_cur IS SELECT salary FROM em
emp_rec emp_cur%ROWTYPE
BEGIN
OPEN emp_cur;
LOOP
FETCH emp_cur INTO emp_rec;
EXIT WHEN emp_cur%NOTFOUND;
calc_totals (emp_rec.salary);
END LOOP;
CLOSE emp_cur;
END;
d.
WHILE no_more_data
LOOP
read_next_line (text);
no_more_data := text IS NULL;
EXIT WHEN no_more_data;
END LOOP;
e.
FOR month_index IN 1 .. 12
LOOP
UPDATE monthly_sales
SET pct_of_sales = 100
WHERE company_id = 10006
f.
FOR i IN 1 .. 100
LOOP
calc_totals (i);
IF i > 75
THEN
EXIT;
END IF;
END LOOP;