CREATE OR REPLACE
PROCEDURE Tambah_Pelatihan (vnama_pelatihan pelatihan.nama_pelatihan%TYPE,vtanggal_mulai pelatihan.tanggal_Mulai%TYPE, vtanggal_selesai pelatihan.tanggal_selesai%TYPE, vkuota pelatihan.kuota%TYPE)
IS
BEGIN
     IF vnama_pelatihan IS NULL THEN
             RAISE_APPLICATION_ERROR(-20000,'Nama pelatihan tidak boleh kosong');
      END IF;
     IF vtanggal_mulai IS NULL THEN
              RAISE_APPLICATION_ERROR(-20001,'Tanggal mulai tidak boleh kosong');
      END IF;
      IF vtanggal_selesai IS NULL THEN
              RAISE_APPLICATION_ERROR(-20002,'Tanggal selesai tidak boleh kosong');
      END IF;
      IF vkuota IS NULL THEN
              RAISE_APPLICATION_ERROR(-20003,'Kuota tidak boleh kosong');
      END IF;
      IF vtanggal_selesai < vtanggal_mulai THEN
              RAISE_APPLICATION_ERROR(-20004,'Tanggal selesai tidak boleh lebih kecil dari tanggal mulai');
      END IF;
      INSERT INTO pelatihan(id_pelatihan,nama_pelatihan,tanggal_mulai,tanggal_selesai,kuota) VALUES (id_pelatihan.NEXTVAL,vnama_pelatihan,vtanggal_mulai,vtanggal_selesai,vkuota);
      COMMIT;
   END;
/