Advertisement
Kimossab

[ABD]Ficha 1 - Ex6

Sep 29th, 2015
160
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
PL/SQL 0.71 KB | None | 0 0
  1. DECLARE
  2.   v_eno Emp.empno%TYPE;
  3.   v_sal Emp.sal%TYPE;
  4.   v_job Emp.job%TYPE;
  5.   mensag Erros.mensagem_erro%TYPE;
  6.   codigo Erros.codigo_erro%TYPE;
  7. BEGIN
  8.   SELECT empno, sal, job job INTO v_eno, v_sal, v_job FROM Emp WHERE empno = &numero_empregado;
  9.   IF v_job NOT LIKE 'Presidente' THEN
  10.     IF v_sal < 2000 THEN
  11.       v_sal:=v_sal*1.10;
  12.     ELSE
  13.       v_sal:=v_sal*1.06;
  14.     END IF;
  15.     UPDATE emp SET sal = v_sal WHERE empno = v_eno;
  16.   END IF;
  17. EXCEPTION
  18.   WHEN NO_DATA_FOUND THEN
  19.     codigo:=SQLCODE;
  20.     INSERT INTO Erros VALUES('Não existe esse emprgado',codigo,SYSDATE);
  21.   WHEN OTHERS THEN
  22.     mensag:=SUBSTR(SQLERRM,1,50);
  23.     codigo:=SQLCODE;
  24.     INSERT INTO Erros VALUES(mensag,codigo,SYSDATE);
  25. END;
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement