SQL> select sum(length(ename)) s_l,sum(sal) s_s,max(hiredate)-min(hiredate) d_d from emp;

       S_L        S_S        D_D
---------- ---------- ----------
        70      29025        756

SQL> declare
  2   cursor l_cur is
  3          select ename, sal, hiredate from emp;
  4   type l_cur_tab is table of l_cur%rowtype index by pls_integer;
  5   l_emp l_cur_tab;
  6   v_sum_length number;
  7   v_sum_numb   number;
  8   v_dif_dat    number;
  9  procedure counter_test (p_var1       in  l_cur_tab
 10                         ,p_sum_length out number
 11                         ,p_sum_numb   out number
 12                         ,p_dif_dat    out number) is
 13   d1 date;
 14   d2 date;
 15  begin
 16   p_sum_length:=0;
 17   p_sum_numb:=0;
 18   d1:=p_var1(p_var1.FIRST).hiredate;
 19   d2:=p_var1(p_var1.FIRST).hiredate;
 20   for j in p_var1.FIRST..p_var1.LAST loop
 21     p_sum_length:=p_sum_length+nvl(length(p_var1(j).ename),0);
 22     p_sum_numb  :=p_sum_numb+nvl(p_var1(j).sal,0);
 23     if d1>p_var1(j).hiredate then d1:=p_var1(j).hiredate; end if;
 24     if d2<p_var1(j).hiredate then d2:=p_var1(j).hiredate; end if; --выяснить что делать с null
 25   end loop;
 26   p_dif_dat:=d2-d1;
 27  end;
 28  begin
 29   open l_cur;
 30   fetch l_cur bulk collect into l_emp;
 31   close l_cur;
 32   counter_test (l_emp, v_sum_length, v_sum_numb, v_dif_dat);
 33   dbms_output.put_line('сумма всех длин varchar '||v_sum_length);
 34   dbms_output.put_line('сумму всех значений number '||v_sum_numb);
 35   dbms_output.put_line('разница в днях между max и min '||v_dif_dat);
 36  end;
 37  /
сумма всех длин varchar 70
сумму всех значений number 29025
разница в днях между max и min 756

PL/SQL procedure successfully completed.

SQL>