FUNCTION vergebe_plaetze(
      p_vernr Veranstaltung.VerNr%TYPE)
    RETURN INTEGER
  AS
type t_belegung is table of BELEGUNG%rowtype;
v_belegung t_belegung;
v_anzahlvergeben number(2);

  BEGIN
    IF(isRealCourse(p_vernr)= 0)THEN
      raise_application_error(-20001,'ein Nutzer, ein Medium oder Standort existiert nicht');
    END IF;


  SELECT * BULK COLLECT INTO  v_belegung
  FROM Belegung
  WHERE vernr = p_vernr AND STATUS = 'AN';

  for v_i in 1 .. v_belegung.count
  LOOP

  P_VERGEBERANG(p_vernr, v_belegung(v_i).matrnr );
  dbms_output.put_line(v_belegung(v_i).matrnr);

  END LOOP;

  for v_i in 1 .. v_belegung.count
  LOOP
  v_anzahlvergeben := v_anzahlvergeben+1;
  P_ZULASSEN(p_vernr, v_belegung(v_i).matrnr, v_anzahlvergeben);
  dbms_output.put_line(v_anzahlvergeben);

  END LOOP;

  RETURN 9;
  END vergebe_plaetze;
END belegung_service;