oracle example

CREATE OR REPLACE FUNCTION add_csaladtag(p_azon NUMBER, p_nev VARCHAR2) RETURN csaladtagok%ROWTYPE IS
  return_row csaladtagok%ROWTYPE;
  ugyfel_keresztnev OE.CUSTOMERS.CUST_FIRST_NAME%TYPE;
  ugyfel_vezeteknev OE.CUSTOMERS.CUST_LAST_NAME%TYPE;
  BEGIN
    INSERT INTO CSALADTAGOK (AZON, NEV)
      VALUES (p_azon, p_nev)
      RETURNING AZON, NEV INTO return_row;

    RETURN return_row;

    EXCEPTION
    WHEN DUP_VAL_ON_INDEX THEN
    BEGIN
      SELECT CUST_FIRST_NAME, CUST_LAST_NAME
      INTO ugyfel_keresztnev, ugyfel_vezeteknev
      FROM OE.CUSTOMERS
      WHERE CUSTOMER_ID = p_azon;
      DBMS_OUTPUT.PUT_LINE(ugyfel_keresztnev || ' ' || ugyfel_vezeteknev || '-hez mar tartozik ' || p_nev || ' nevu csaladtag');
      RETURN NULL;
    END;
  END;

//

CREATE OR REPLACE PROCEDURE beszur(ugyfel_nev VARCHAR2, cstag_nev VARCHAR2) IS
  sor csaladtagok%ROWTYPE;
  ugyfel_id NUMBER(6, 0);
  BEGIN
    SELECT CUSTOMER_ID
    INTO ugyfel_id
    FROM CUSTOMERS
    WHERE (CUST_FIRST_NAME || ' ' || CUST_LAST_NAME) = ugyfel_nev;

    sor := csaladtag_insert(ugyfel_id, cs_nev);
    DBMS_OUTPUT.PUT_LINE(sor.azon || ' ' || sor.nev);

    EXCEPTION
    WHEN TOO_MANY_ROWS THEN
      RAISE TOO_MANY_ROWS;
  END;