Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- 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;
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement