· 9 years ago · Oct 18, 2016, 05:22 PM
1CREATE OR REPLACE PROCEDURE atualizaEmail
2IS
3 CURSOR C1 IS SELECT nome, email FROM Aluno
4 FOR UPDATE OF email;
5BEGIN
6 FOR C_ALUNO IN C1 LOOP
7 UPDATE Aluno
8 SET email = REGEXP_SUBSTR(C_ALUNO.nome, '[^ ]+') || '@gmail.com' WHERE CURRENT OF C1;
9 END LOOP;
10 COMMIT;
11END;