View difference between Paste ID: G3FKtiXx and ypW8dG5c

---Построчная выдача отчета в файл
+/*Вторая версия, использует множественную обработку.*/
 create or replace
-procedure report_sal_adjustment4 is
+procedure report_sal_adjustment4_bulk is
   f utl_file.file_type;
   cursor c_template is
-  f := utl_file.fopen ('REPORT_DIR', 'report.dat', 'W') ;
+    select e.empno, e.hiredate, e.sal, dept.dname,
-  for i in (
+    case when sal > avg_sal then 'Y'
-   select e.empno, e.hiredate, e.sal, dept.dname,
+    else 'N'
-   case when sal > avg_sal then 'Y' else 'N'
+    end status
-   end status
+
     select empno, hiredate, sal, deptno,
-   select empno, hiredate, sal, deptno,
+      avg(sal) over (partition by deptno) as avg_sal,
-          avg(sal) over ( partition by deptno ) as avg_sal,
+      min(sal) over (partition by deptno) as min_sal
-          min(sal) over ( partition by deptno ) as min_sal
+    from emp) e, dept
-   from emp ) e, dept
+
   and abs(e.sal - e.avg_sal)/e.avg_sal > 0.10;
-    and abs(e.sal - e.avg_sal)/e.avg_sal > 0.10 )
+/*Вот определение нового типа — набора (или массива) строк, каждая из которых будет содержать поля, соответствующие предыдущему определению курсора.*/
-loop
+
-  utl_file.put_line(f, i.empnol || i.hiredate || i.sal || i.dname || i.status);
+type resultset is table of c_template%rowtype;
   r resultset;
-  utl_file.fclose(f);
+
   f := utl_file.fopen('REPORT_DIR', 'report.dat', 'W') ;
   open c_template;
 
 /*Тут проявляется различие в обработке. Вместо обработки строк по одной в цикле мы можем выбрать все строки в результирующем множестве R*/
 
 fetch c_template bulk collect into r;
 close c_template;
 
 /*Теперь, когда переменная R содержит все результирующее множество, мы проходим в цикле по этому набору в памяти, а не обращаемся постоянно к базе данных для получения новых строк из курсора.*/
 
 for i in 1..r.count loop
   utl_file.put_line(f,r(i).empnol || r(i).hiredatel || r(i).sal || r(i).dnamel || r(i).status);
 end loop;
 utl_file.fclose(f);
 end;