zerfz

CREATE OR REPLACE
PROCEDURE P4_VOEG_KLANT_TOE(
  p_id      IN S_CUSTOMER.ID%TYPE,
  p_name    IN S_CUSTOMER.NAME%TYPE,
  p_phone   IN S_CUSTOMER.PHONE%TYPE,
  p_address IN S_CUSTOMER.ADDRESS%TYPE,
  p_city    IN S_CUSTOMER.CITY%TYPE,
  p_state   IN S_CUSTOMER.STATE%TYPE,
  p_country IN S_CUSTOMER.COUNTRY%TYPE,
  p_zipcode IN S_CUSTOMER.ZIP_CODE%TYPE
)
AS
  e_char_to_number EXCEPTION;
  PRAGMA EXCEPTION_init(e_char_to_number, -6502);
  e_not_null EXCEPTION;
  PRAGMA EXCEPTION_init(e_not_null, -1400);
BEGIN
  INSERT INTO S_CUSTOMER(ID, NAME, PHONE, address, city, state, country,ZIP_CODE)
  VALUES (p_id,p_name,P_PHONE,P_ADDRESS,P_CITY,P_STATE,P_COUNTRY,P_ZIPCODE);
  COMMIT;
EXCEPTION
  WHEN E_CHAR_TO_NUMBER THEN
    DBMS_OUTPUT.PUT_LINE ('Klant ID moet een getal zijn!');
  WHEN DUP_VAL_ON_INDEX THEN 
    DBMS_OUTPUT.PUT_LINE ('Er bestaat al een klatn met dit ID');
  WHEN E_NOT_NULL THEN 
    DBMS_OUTPUT.PUT_LINE ('Er zijn geen null waardes toegelaten');
  WHEN OTHERS THEN
    raise_application_error( -20000, 'Onbekende fout opgetreden');
 
END P4_VOEG_KLANT_TOE;