eee

CREATE OR REPLACE PROCEDURE P2_3_TOPMEDEWERKERS 
(
  P_AANTAL IN NUMBER  
) AS 
 
  TYPE TYPE_COLL_SALARY
  IS TABLE OF S_EMP.SALARY%TYPE
  INDEX BY PLS_INTEGER;
  t_saleries TYPE_COLL_SALARY;
 
  TYPE TYPE_COLL_EMPIDS
  IS TABLE OF S_EMP.ID%TYPE
  INDEX BY PLS_INTEGER;
  t_empids TYPE_COLL_EMPIDS;
 
BEGIN
  SELECT DISTINCT SALARY
  BULK COLLECT INTO t_saleries
  FROM S_EMP
  ORDER BY SALARY DESC;
 
  DBMS_OUTPUT.PUT_LINE ('Emp ID' || CHR(9)|| 'Salary');
  DBMS_OUTPUT.PUT_LINE ('---------' || CHR(9)|| '---------');
 
  FOR I IN 1..P_AANTAL LOOP
    SELECT ID
    BULK COLLECT INTO T_EMPIDS
    FROM S_EMP
    WHERE SALARY = T_SALERIES(I);
 
    FOR J IN 1..T_EMPIDS.COUNT() LOOP
      DBMS_OUTPUT.PUT_LINE(T_EMPIDS(J) || CHR(9) ||T_SALERIES(I));
    END LOOP;
  END LOOP;
END P2_3_TOPMEDEWERKERS;