Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- DECLARE
- v_eno Emp.empno%TYPE;
- v_sal Emp.sal%TYPE;
- v_job Emp.job%TYPE;
- mensag Erros.mensagem_erro%TYPE;
- codigo Erros.codigo_erro%TYPE;
- BEGIN
- SELECT empno, sal, job job INTO v_eno, v_sal, v_job FROM Emp WHERE empno = &numero_empregado;
- IF v_job NOT LIKE 'Presidente' THEN
- IF v_sal < 2000 THEN
- v_sal:=v_sal*1.10;
- ELSE
- v_sal:=v_sal*1.06;
- END IF;
- UPDATE emp SET sal = v_sal WHERE empno = v_eno;
- END IF;
- EXCEPTION
- WHEN NO_DATA_FOUND THEN
- codigo:=SQLCODE;
- INSERT INTO Erros VALUES('Não existe esse emprgado',codigo,SYSDATE);
- WHEN OTHERS THEN
- mensag:=SUBSTR(SQLERRM,1,50);
- codigo:=SQLCODE;
- INSERT INTO Erros VALUES(mensag,codigo,SYSDATE);
- END;
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement