CREATE OR REPLACE TRIGGER B_IU_CURR_EXCHANGE BEFORE INSERT OR UPDATE ON QUESTIONNAIRE REFERENCING NEW AS new FOR EACH ROW 
DECLARE 
  vRUB VARCHAR2(20);
  vUSD VARCHAR2(20);
  vEUR VARCHAR2(20);
  iBEL NUMBER;
  iCUR_RUB NUMBER;
  iCUR_USD NUMBER;
  iCUR_EUR NUMBER;
BEGIN
  SELECT val INTO vUSD FROM KURS WHERE id = 1;
  SELECT val INTO vEUR FROM KURS WHERE ID = 2;
  SELECT VAL INTO vRUB FROM kurs WHERE id = 3;
  SELECT znach INTO iCUR_USD FROM KURS WHERE ID =1;
  SELECT znach INTO iCUR_EUR FROM KURS WHERE ID =2;
  SELECT znach INTO iCUR_RUB FROM KURS WHERE ID =3;
  BEGIN 
    IF :new.O01V = vRUB THEN
      iBEL := :new.O01S*iCUR_RUB;
    INSERT INTO QUESTIONNAIRE(O01BEL)
    VALUES iBEL;
    end IF;
    IF :new.O01V = vUSD THEN 
      iBEL := :new.O01S*iCUR_USD;
    INSERT INTO QUESTIONNAIRE(O01BEL)
    VALUES iBEL;
    END IF;
    IF :new.O01V = vEUR THEN
      iBEL := :new.O01S*iCUR_EUR;
    INSERT INTO QUESTIONNAIRE(O01BEL)
    VALUES iBEL;
    END IF;
    EXCEPTION WHEN OTHERS THEN 
     INSERT INTO QUESTIONNAIRE(O01BEL)
    VALUES :new.O01S;
  END;
END;
    
              

SQL11 PL/SQL: ORA-03001: unimplemented feature SQL1.sql 20 31