103 lines
3.4 KiB
Markdown
103 lines
3.4 KiB
Markdown
# P2 - Unamed PL-SQL
|
|
|
|
**Problem Statement:**
|
|
Write an Unnamed PL/SQL of code for the following requirements: -
|
|
Schema:
|
|
Borrower (Rollin, Name, DateofIssue, NameofBook, Status)
|
|
Fine (Roll_no,Date,Amt)
|
|
Accept roll_no & name of book from user.
|
|
Check the number of days (from date of issue).
|
|
1. If days are between 15 to 30 then fine amounts will be Rs 5 per
|
|
day.
|
|
2. If no. of days>30, per day fine will be Rs 50 per day & for days
|
|
less than 30, Rs. 5 per day.
|
|
3. After submitting the book, status will change from I to R.
|
|
4. If condition of fine is true, then details will be stored into
|
|
fine table.
|
|
|
|
---
|
|
|
|
## Creating tables
|
|
```plsql
|
|
CREATE TABLE Borrower (
|
|
rollin NUMBER,
|
|
Name VARCHAR2(255),
|
|
DateofIssue DATE,
|
|
NameofBook VARCHAR2(255),
|
|
Status VARCHAR2(255),
|
|
PRIMARY KEY (rollin)
|
|
);
|
|
|
|
CREATE TABLE Fine (
|
|
Roll_no NUMBER,
|
|
DateofReturn DATE,
|
|
Amt NUMBER,
|
|
FOREIGN KEY (Roll_no) REFERENCES Borrower (rollin)
|
|
);
|
|
|
|
```
|
|
|
|
> [!WARNING]
|
|
> Notice inconsistent naming for columns? We're just doing it by the books. Blame the one who made these [problem statements](https://git.kska.io/sppu-te-comp-content/DatabaseManagementSystems/src/branch/main/Practical/Practical%20Exam/DBMSL%20-%20Problem%20Statements%20for%20Practical%20Exam%20%28November%202024%29.pdf).
|
|
|
|
## Inserting data
|
|
```plsql
|
|
INSERT INTO Borrower VALUES (1, 'Kalas', TO_DATE('2024-10-19', 'YYYY-MM-DD'), 'DBMS', 'I');
|
|
INSERT INTO Borrower VALUES (2, 'Himanshu', TO_DATE('2024-11-01', 'YYYY-MM-DD'), 'IOT', 'I');
|
|
INSERT INTO Borrower VALUES (3, 'Mepa', TO_DATE('2024-10-29', 'YYYY-MM-DD'), 'TOC', 'I');
|
|
INSERT INTO Borrower VALUES (4, 'Jambo', TO_DATE('2024-10-20', 'YYYY-MM-DD'), 'CNS', 'I');
|
|
|
|
```
|
|
|
|
## Procedure
|
|
```plsql
|
|
DECLARE
|
|
p_roll NUMBER;
|
|
p_book VARCHAR2(255);
|
|
p_issueDate DATE;
|
|
totalDays INT;
|
|
fineAmt INT;
|
|
nodata EXCEPTION;
|
|
BEGIN
|
|
DBMS_OUTPUT.PUT_LINE('Enter roll number: ');
|
|
p_roll := &p_roll; -- specify value directly for Live SQL. Eg.: p_roll := 1;
|
|
DBMS_OUTPUT.PUT_LINE('Enter book name: ');
|
|
p_book := '&p_book'; -- specify value directly for Live SQL. Eg.: p_roll := 'DBMS';
|
|
|
|
IF (p_roll <= 0) THEN
|
|
RAISE nodata;
|
|
END IF;
|
|
|
|
SELECT DateofIssue INTO p_issueDate FROM Borrower WHERE rollin = p_roll AND NameofBook = p_book;
|
|
SELECT TRUNC(SYSDATE) - p_issueDate INTO totalDays FROM dual;
|
|
|
|
IF (totalDays > 30) THEN
|
|
fineAmt := (15 * 5) + ((totalDays - 15) * 50); -- Rs 5 for first 15 days, Rs 50 for remaining
|
|
DBMS_OUTPUT.PUT_LINE('Roll no. ' || p_roll || ' has been fined Rs. ' || fineAmt);
|
|
INSERT INTO Fine VALUES (p_roll, SYSDATE, fineAmt);
|
|
UPDATE Borrower SET Status = 'R' WHERE Rollin = p_roll AND NameofBook = p_book;
|
|
ELSIF (totalDays BETWEEN 15 AND 30) THEN
|
|
fineAmt := totalDays * 5;
|
|
DBMS_OUTPUT.PUT_LINE('Roll no. '|| p_roll || ' has been fined Rs. ' || fineAmt);
|
|
INSERT INTO Fine VALUES (p_roll, SYSDATE, fineAmt);
|
|
UPDATE Borrower SET Status = 'R' WHERE Rollin = p_roll AND NameofBook = p_book;
|
|
ELSE
|
|
fineAmt := 0;
|
|
DBMS_OUTPUT.PUT_LINE('No fine for roll no. '|| p_roll);
|
|
INSERT INTO Fine VALUES (p_roll, SYSDATE, fineAmt);
|
|
UPDATE Borrower SET Status = 'R' WHERE Rollin = p_roll AND NameofBook = p_book;
|
|
END IF;
|
|
EXCEPTION
|
|
WHEN nodata THEN
|
|
DBMS_OUTPUT.PUT_LINE('Please enter a valid roll number.');
|
|
WHEN NO_DATA_FOUND THEN
|
|
DBMS_OUTPUT.PUT_LINE('Something went wrong. Please check input data.');
|
|
WHEN OTHERS THEN
|
|
DBMS_OUTPUT.PUT_LINE('Error occured. Error: ' || SQLERRM);
|
|
END;
|
|
/
|
|
|
|
```
|
|
|
|
---
|