ORACLE: SQL JA PLSQL 13 (0)

ORACLE SQL PL/SQL 13. ülesanne Ilma email'ideta tabeli loomine: CREATE TABLE yliopilased ( eesnimi VARCHAR2(50),
perenimi VARCHAR2(50), email VARCHAR2(50)
); INSERT INTO yliopilased (eesnimi, perenimi) VALUES ('Vaino', 'Erilaid'); INSERT INTO yliopilased (eesnimi, perenimi) VALUES ('Kristo', 'Harakas');
INSERT INTO yliopilased (eesnimi, perenimi) VALUES ('Priit', 'Joorits'); INSERT INTO yliopilased (eesnimi, perenimi) VALUES ('Paul', 'Joorits');
INSERT INTO yliopilased (eesnimi, perenimi) VALUES ('Kristi', 'Karusaar'); INSERT INTO yliopilased (eesnimi, perenimi) VALUES ('Kristjan', 'Laukasaar'); SELECT * FROM yliopilased; EESNIMI                                            PERENIMI                     
EMAIL                                              -------------------------------------------------- 
--------------------------------------------------  --------------------------------------------------
Vaino                                              Erilaid                       Kristo                                             Harakas                       Priit                                              Joorits                       Paul                                               Joorits                       Kristi                                             Karusaar                      Kristjan                                           Laukasaar                     6 rows selected. Programm: CREATE OR REPLACE procedure generate_email IS
    counter INTEGER;     temp_email VARCHAR2(50);
    e_email_not_unique EXCEPTION; PROCEDURE counter1
IS BEGIN
    SELECT COUNT(*)     INTO counter
    FROM yliopilased     WHERE email = temp_email || '' || '@itcollege.ee';
END counter1; BEGIN
    FOR y IN (SELECT * FROM yliopilased)      LOOP  


    temp_email := lower(substr(y.eesnimi, 1, 1)) || '' || lower(y.perenimi);         counter1;
        IF counter < 1 THEN             IF length(temp_email) < 8 THEN
                UPDATE yliopilased                 SET email = temp_email || '' || '@itcollege.ee'
                WHERE eesnimi = y.eesnimi;             ELSE
                UPDATE yliopilased                 SET email = substr(temp_email, 1, 8) || '' || '@itcollege.ee'
                WHERE eesnimi = y.eesnimi;             END IF;
        ELSE             temp_email := lower(substr(y.eesnimi, 1, 2)) || '' || 
lower(y.perenimi);             IF length(temp_email) > 8 THEN
                temp_email := substr(temp_email, 1, 8);                     counter1;
                IF counter < 1 THEN                     UPDATE yliopilased
                    SET email = temp_email || '' || '@itcollege.ee'                     WHERE eesnimi = y.eesnimi;
                ELSE                     RAISE e_email_not_unique;
                END IF;                 ELSE
                counter1;                     IF counter < 1 THEN
                        UPDATE yliopilased                         SET email = temp_email || '' || '@itcollege.ee'
                        WHERE eesnimi = y.eesnimi;                     ELSE
                        RAISE e_email_not_unique;                     END IF;
            END IF;         END IF;      
    END LOOP; EXCEPTION
    WHEN e_email_not_unique THEN     dbms_output.put_line('Program was unable to generate an unique email!');
END generate_email; TULEMUS: >>> EXECUTE generate_email; PL/SQL procedure successfully completed. >>> SELECT * FROM yliopilased; EESNIMI                                            PERENIMI                      EMAIL                                             
--------------------------------------------------  -------------------------------------------------- 
-------------------------------------------------- Vaino                                              Erilaid                      
[email protected]                              Kristo                                             Harakas                      
[email protected]                              Priit                                              Joorits                      


[email protected]                              Paul                                               Joorits                      
[email protected]                              Kristi                                             Karusaar                     
[email protected]                              Kristjan                                           Laukasaar                    
[email protected]                              6 rows selected. Lisan sarnase nime, et tuua ette erind: >>> INSERT INTO yliopilased (eesnimi, perenimi) VALUES ('Paulita', 'Joorits'); >>> EXECUTE generate_email; Program was unable to generate an unique email! PL/SQL procedure successfully completed. >>> SELECT * FROM yliopilased; EESNIMI                                            PERENIMI                      EMAIL                                             
--------------------------------------------------  -------------------------------------------------- 
-------------------------------------------------- Vaino                                              Erilaid                      
[email protected]                              Kristo                                             Harakas                      
[email protected]                              Priit                                              Joorits                      
[email protected]                              Paul                                               Joorits                      
[email protected]                              Kristi                                             Karusaar                     
[email protected]                              Kristjan                                           Laukasaar                    
[email protected]                              Paulita                                            Joorits                       7 rows selected.