CREATE OR REPLACE PROCEDURE OEFENING2P53 AS
TYPE type_rec_uitvoeringen IS RECORD(cursus uitvoeringen.cursus%TYPE,begindatum uitvoeringen.begindatum%TYPE);
TYPE type_tab_uitvoeringen IS TABLE OF type_rec_uitvoeringen;
TYPE type_tab_cursus IS TABLE OF uitvoeringen.cursus%TYPE INDEX BY PLS_INTEGER;
TYPE type_tab_begindatum IS TABLE OF uitvoeringen.begindatum%TYPE INDEX BY PLS_INTEGER;
t_cursus type_tab_cursus;
t_begindatum type_tab_begindatum;
t_uitvoeringen type_tab_uitvoeringen;
BEGIN
  SELECT DISTINCT u.cursus, u.begindatum
  BULK COLLECT INTO t_uitvoeringen
  FROM  uitvoeringen u, inschrijvingen i
  WHERE u.cursus = i.cursus AND u.begindatum = i.begindatum
  GROUP BY u.cursus, u.begindatum
  HAVING COUNT(*) > 3;

  FOR i IN 1..t_uitvoeringen.COUNT LOOP
    t_cursus(i) := t_uitvoeringen(i).cursus;
    t_begindatum(i) := t_uitvoeringen(i).begindatum;
  END LOOP;

  FORALL i IN 1..t_uitvoeringen.COUNT
    UPDATE uitvoeringen
    SET locatie = 'ANTWERPEN'
    WHERE cursus = t_cursus(i)
    AND begindatum = t_begindatum(i);
    COMMIT;
END OEFENING2P53;