CREATE OR REPLACE
  PROCEDURE Tambah_Peserta (vnik peserta.nik%TYPE, vnama_peserta peserta.nama_peserta%TYPE,vemail peserta.email%TYPE, vtelepon peserta.telepon%TYPE, valamat peserta.alamat%TYPE)
  IS
     nik_count NUMBER;
  BEGIN
  IF vnama_peserta IS NULL THEN
           RAISE_APPLICATION_ERROR(-20000,'Nama peserta tidak boleh kosong');
   END IF;
   IF vnik IS NULL THEN
           RAISE_APPLICATION_ERROR(-20001,'Nik tidak boleh kosong');
   END IF;
   IF vemail IS NULL THEN
           RAISE_APPLICATION_ERROR(-20002,'Email tidak boleh kosong');
   END IF;
   IF vtelepon IS NULL THEN
          RAISE_APPLICATION_ERROR(-20003,'Telepon tidak boleh kosong');
   END IF;
   IF valamat IS NULL THEN
           RAISE_APPLICATION_ERROR(-20004,'Alamat tidak boleh kosong');
   END IF;
   SELECT COUNT(*) INTO nik_count FROM peserta WHERE nik = vnik;
   IF nik_count > 0 THEN
           RAISE_APPLICATION_ERROR(-20005,'NIK sudah dipakai');
   END IF;
   INSERT INTO peserta(id_peserta,nik,nama_peserta,email,telepon,alamat) VALUES (id_peserta.NEXTVAL,vnik,vnama_peserta,vemail,vtelepon,valamat);
   COMMIT;
  END;
 /