Scribd
Upload
7 views

Lab Cycle 4

DBMS pratice

Uploaded by

sontinenianuradha
Copyright
© © All Rights Reserved
Available Formats
Download as DOCX, PDF, TXT or read online on Scribd
7 views

Lab Cycle 4

DBMS pratice

Uploaded by

sontinenianuradha
Copyright
© © All Rights Reserved
Available Formats
Download as DOCX, PDF, TXT or read online on Scribd
You are on page 1/ 5

CS 262 – DBMS Lab (A.Y.

2022 – 2023)
Lab Cycle – 4
3. Write a PL/SQL block that computes increment of an employee
in employee table by using incr function which takes employee
number as argument, calculates increment and returns the
same based on the following criteria:
If salary <= 3000 then increment = 30% of salary
If salary > 3000 and <= 6000 then increment = 20% of salary
Else increment = 10% of salary.

PROGRAM 3:

FUNCTION FOR CALCULATING INCREMENT

create or replace function incr(n number) return number as


s number;
begin
selectsal into s from emp2 where empno=n;
if s <= 3000 then s:=0.3*s;
elsif s>3000 and s<=6000 then
s:=0.2*s;
else s:=0.1*s;
end if;
return s;
end;
MAIN PROGRAM

declare
n number:=&no;
s number;
begin
s:=incr(n);
dbms_output.put_line('incr salary'||s);
update emp2 set sal=sal+s where empno=n;
end;

1. Write a stored procedure, raise_salary which accepts an


employee number, increment and modifies salary of that
employee in employee table.

Modified salary = salary increase amount+ current salary. If


employee number is not found or if the current salary is null, it
should raise an exception. Otherwise, updates the salary.

PROCEDURE FOR UPDATING SALARY

create or replace procedure raisesal(n number) as


s number;
a number;
exc exception;
begin
s:=incr(n);
select sal into a from emp2 where empno=n;
if a is null then raise exc;
else update emp2 set sal=sal+s where empno=n;
end if;
exception
when no_data_found then
dbms_output.put_line('this employee is not exists');
when exc then
dbms_output.put_line('salary is null');
end;
MAIN PROGRAM

declare
n number:=&no;
r emp2%rowtype;
begin
raisesal(n);
select * into r from emp2 where empno = n;
dbms_output.put_line(r.empno||’ ‘||r.sal);

end;

2. Write a PL/SQL function that accepts the department


number and returns the total salary of the department.

3. Write a stored procedure that displays the employee


names and their total earnings from the Emp Table.
Hint: Total earning of an employee =
12*(gross_salary+commission)

4. Create a database trigger that checks whether the new


salary of employee is less than existing salary. If so, raise
an appropriate exception and avoid that updation.

5.

6.
7.
8. Consider the following tables

PERSINFO
EMPNO NAME AGE
AUDITPERSINFO
AG
EMPNO NAME OPERATION ODATE
E

PERSINFO is the table for which the auditing must be performed


and AUDITPERSINFO is the table which keeps track of the
records deleted or modified. Create a database trigger audit_trial.
This trigger is forced when an UPDATE or a DELETE is
performed on the table PERSINFO. It first checks for the operation
being performed on the table. Then depending on the operation, a
variable (that corresponds to operation) is assigned the value
‘UPDATE’ or ‘DELETE’ and then inserts the updated/deleted
record into AUDITPERSINFO.

PROGRAM 6:

create or replace trigger audit_trial


after update or delete on persinfo for each row
declare
eno number;
ename varchar2(12);
eage number;
op varchar2(12);
begin
if updating then op:='update';
elsif deleting then op:='delete';
end if;
eno := :old.empno;
ename := :old.name;
eage := :old.age;
insert into auditpersinfo values(eno,ename,eage,op,sysdate);
end;

You might also like