Unnamed PL/SQL code block: Use of Control structure and Exception handling is mandatory. Write a PL/SQL block of code for the following requirements
- 1. Practical No: 5 Problem Statement: Unnamed PL/SQL code block: Use of Control structure and Exception handling is mandatory. Write a PL/SQL block of code for the following requirements:- Schema: 1. Borrower(Rollin, Name, DateofIssue, NameofBook, Status) 2. Fine(Roll_no,Date,Amt) - Accept roll_no & name of book from user. - Check the number of days (from date of issue), if days are between 15 to 30 then fine amount will be Rs 5per day. - If no. of days>30, per day fine will be Rs 50 per day & for days less than 30, Rs. 5 per day. - After submitting the book, status will change from I to R. - If condition of fine is true, then details will be stored into fine table. Frame the problem statement for writing PL/SQL block inline with above statement. Database changed mysql> show tables; +-----------------+ | Tables_in_prac5 | +-----------------+ | Borrower | | Fine | +-----------------+ 2 rows in set (0.00 sec) mysql> desc Borrower; +--------------+-------------+------+-----+---------+-------+ | Field | Type | Null | Key | Default | Extra | +--------------+-------------+------+-----+---------+-------+ | Rollin | int(12) | NO | PRI | NULL | | | Name | varchar(25) | YES | | NULL | | | DateOfIsssue | date | YES | | NULL | | | Nameofbook | varchar(25) | YES | | NULL | | | Status | varchar(3) | YES | | NULL | | +--------------+-------------+------+-----+---------+-------+ 5 rows in set (0.00 sec) mysql> desc Fine; +--------+---------+------+-----+---------+-------+ | Field | Type | Null | Key | Default | Extra | +--------+---------+------+-----+---------+-------+ | Rollno | int(12) | NO | PRI | NULL | | | Date | date | YES | | NULL | | | Amt | int(12) | YES | | NULL | | +--------+---------+------+-----+---------+-------+ 3 rows in set (0.00 sec) mysql> select * From Borrower; +--------+--------+--------------+------------+--------+ | Rollin | Name | DateOfIsssue | Nameofbook | Status | +--------+--------+--------------+------------+--------+ | 1 | Rahul | 2019-07-13 | dbms | I | | 2 | Rakesh | 2019-07-28 | sql | I | | 33 | Aadil | 2019-05-13 | toc | I | | 85 | Akbar | 2019-06-20 | java | I | +--------+--------+--------------+------------+--------+ 4 rows in set (0.00 sec) mysql> select * From Fine; Empty set (0.00 sec)
- 2. dilimiter $ mysql> create procedure calfine(Rollno int(20),name varchar(50)) begin declare ldate date; declare fine int(20); declare day int(20); select DateOfIsssue into ldate from Borrower where Rollin=Rollno and Nameofbook=name; set day = DATEDIFF(CURDATE(),ldate); IF(day>=15 and day<=30) then set fine=day*5; ELSEIF(day>30) then set fine=day*50; end IF; update Borrower set Status='R' where Rollin=Rollno and Nameofbook=name; IF(fine is not null) then insert into Fine values(Rollno,CURDATE(),fine); end IF; end $ mysql> call calfine(33,'toc')$ Query OK, 1 row affected (0.03 sec) mysql> select * from Fine$ +--------+------------+------+ | Rollno | Date | Amt | +--------+------------+------+ | 33 | 2019-08-07 | 4300 | +--------+------------+------+ 1 row in set (0.00 sec) mysql> call calfine(2,'sql')$ Query OK, 1 row affected (0.36 sec) mysql> call calfine(1,'dbms')$ Query OK, 1 row affected (0.34 sec) mysql> select * from Borrower$ +--------+--------+--------------+------------+--------+ | Rollin | Name | DateOfIsssue | Nameofbook | Status | +--------+--------+--------------+------------+--------+ | 1 | Rahul | 2019-07-13 | dbms | R | | 2 | Rakesh | 2019-07-28 | sql | R | | 33 | Aadil | 2019-05-13 | toc | R | | 85 | Akbar | 2019-06-20 | java | I | +--------+--------+--------------+------------+--------+ 4 rows in set (0.00 sec) mysql> select * from Fine$ +--------+------------+------+ | Rollno | Date | Amt | +--------+------------+------+ | 1 | 2019-08-07 | 125 | | 33 | 2019-08-07 | 4300 | +--------+------------+------+ 2 rows in set (0.00 sec)