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