Create or replace procedure VOEG_PLOEG_TOE
(p_stamnr in ploeg.stamnr%type,
p_naam in ploeg.naam%type,
p_straat in ploeg.straat%type,
p_huisnr in ploeg.huisnr%type,
p_postcode in ploeg.postcode%type,
p_gemeente in ploeg.gemeente%type,
p_telefoon in ploeg.telefoon%type,
p_afdeling in ploeg.afdeling%type) is
begin
INSERT into PLOEG (STAMNR,NAAM,STRAAT,HUISNR,POSTCODE,GEMEENTE,TELEFOON ,AFDELING,AANTAL_WEDSTRIJDEN,GEWONNEN,VERLOREN,GELIJKGESPEELD,SCORE_VOOR,SCORE_TEGEN) values (p_stamnr,p_naam,p_straat,p_huisnr,p_postcode, p_gemeente,p_telefoon,p_afdeling,0,0,0,0,0,0);
COMMIT;
end VOEG_PLOEG_TOE;
Create or replace procedure TRANSFEREER_SPELER 
(p_bondnr in speler.bondnr%type,
p_stamnr in ploeg.stamnr%type) is begin
update speler set ploeg = p_stamnr where bondnr = p_bondnr;
COMMIT;
end TRANSFEREER_SPELER ;
CREATE OR REPLACE PROCEDURE H4PROJECTOPGAVENV1 AS
type type_rec IS record (
  team varchar2(32),
  score number(10),
  resultaat number(10)
);
type type_klassement IS TABLE of type_rec
INDEX BY pls_integer;
t_klassement type_klassement;
v_index pls_integer;
BEGIN
  SELECT naam,gewonnen*3+gelijkgespeeld AS score,score_voor - score_tegen AS resultaat
  bulk collect INTO t_klassement
  FROM ploeg 
  ORDER BY  score DESC,
            resultaat DESC;
  v_index := t_klassement.first;
  while v_index IS NOT NULL
  loop
    dbms_output.put_line(t_klassement(v_index).team || ' heeft ' || t_klassement(v_index).score || ' punten en ' || t_klassement(v_index).resultaat || ' goals');
    v_index := t_klassement.next(v_index);
  end loop;
END H4PROJECTOPGAVENV1;