Resolution d'1 exercice pl/sql

create table messages(results number(2));

declare
  i number(2);
begin
  for i in 1..10 loop
    if i not in (6,8) then
      insert into messages values (i);
    end if;
  end loop;

  commit;
end;
/

select * from messages;

set serveroutput on              -- enable dbms_output

define n=5

declare
  cursor csr_top_emp is
    select ename, sal from emp order by sal desc;

  type top_type is varray(&n) of csr_top_emp%ROWTYPE;
  top_tab         top_type;
  top_idx         pls_integer;
  idx             pls_integer;
  prev_sal        emp.sal%TYPE := -1;
  exists_same_sal boolean := FALSE;

  ex_n_to_low        exception;
   
begin
   top_idx := 0;

   if &n <= 0 then
      raise ex_n_to_low;
   end if;
   
   -- Parcours des employés par salaire décroissant
   for csr_rec in csr loop
      top_idx := top_idx + 1;

      -- Détection salaires identiques
      if csr_rec.sal = prev_sal then
         exists_same_sal := TRUE;
      end if;
      prev_sal := csr_rec.sal;

      -- collecte des top n
      if top_idx <= &n then
         top_tab(top_idx) := csr_rec;
      end if;

   end loop;

   -- Affichage de la table des n top salaires
   DBMS_OUTPUT.put_line(rpad('Employé', 30)||' '||lpad('Salaire', 12));
   DBMS_OUTPUT.put_line(rpad(null, 30, '-')||' '||lpad(null, 12, '-'));
   for idx in 1 .. top_idx loop
      DBMS_OUTPUT.put_line(rpad(top_tab.ename, 30)||' '||lpad(top_tab.sal, 12));
   end loop;      

   -- Affichage Warning si nombre demandé trop grand
   if top_idx <= &n then
         DBMS_OUTPUT.put_line('WARNING: Le nombre d''employés est inférieur au nombre demandé');
   end if;

   -- Affichage Warning si existe salaires identiques
   if exists_same_sal = TRUE then
         DBMS_OUTPUT.put_line('WARNING: Des employés ont un salaire identique');
   end if;

exception
   when ex_n_to_low then
         DBMS_OUTPUT.put_line('ERROR: Le nombre d''employés demandé ne peut être négatif');
end;
/

CREATE OR REPLACE PROCEDURE Top_Employe(n IN NUMBER)
IS
nb_emp NUMBER;
CURSOR c_tab_temp
IS
  SELECT ENAME, SAL
  FROM tab_temp;
BEGIN
	 IF n < 0 THEN
	 	DBMS_OUTPUT.put_line('Le nombre d''employé ne peut pas être négatif');
		return;
	 END IF;
	 
	 SELECT count(ENAME) INTO nb_emp FROM EMP;
	 
	 IF nb_emp < n THEN
	 	DBMS_OUTPUT.put_line('Le nombre d''employé dans la table est inférieur à ce que vous demandez');
		return;
	 END IF;
	 
	 INSERT INTO tab_temp 
	 SELECT ENAME, SAL
	 FROM EMP
	 WHERE ROWNUM < n;
	 
	 COMMIT;
	 
	 --Vérification des salaires identiques
	 --Affichage des données contenues dans le curseur
END;
/