declare
  contador numeric;
  salariox numeric;
  cursor cursor_empleado_depto
  is
  select emp.empno, emp.ename, emp.deptno, emp.job, emp.sal, dept.dname, dept.loc
  from emp, dept
  where emp.deptno=30;

  xempno numeric(4);
  xename varchar2(10);
  xdeptno number(2);
  xjob varchar2(9);
  xsal number(7);
  xdname varchar2(14);
  xloc varchar2(13);


begin
  dbms_output.put_line('=====================');
  dbms_output.put_line('leemos la tala llamada emp y dept usando join comun depto');
  dbms_output.put_line('=====================');
  contador:=0;
  salariox:=0;
  open cursor_empleado_depto;
  fetch cursor_empleado_depto into xempno, xename, xdeptno, xjob, xsal, xdname, xloc;
  while cursor_empleado_depto%found loop
    contador:=contador+1;
    salariox:=salariox+xsal;
    dbms_output.put_line(to_char(xempno)||' '||lpad(xdname,10)||lpad(xdeptno,10)||' '||lpad(xjob,10)||' salario='||lpad(to_char(xsal),10)||lpad(xdname,12));
    fetch cursor_empleado_depto into xempno, xename, xdeptno, xjob, xsal, xdname, xloc;
  end loop;
  close cursor_empleado_depto;
  dbms_output.put_line('=====================');
  dbms_output.put_line('total de empleados = '||to_char(contador));
  dbms_output.put_line('total de salarios  = '||to_char(salariox));
end;