CREATE DATABASE IF NOT EXISTS INSTRUCTOR;

USE Instructor;

CREATE TABLE IF NOT EXISTS Courses ( ID DECIMAL(5,2), CourseName VARCHAR(30), Section CHAR(2), PRIMARY KEY (ID, Section) );

CREATE TABLE IF NOT EXISTS Lectures ( ID SMALLINT, CourseID DECIMAL(5,2) REFERENCES Courses(ID), Title VARCHAR(30), DateHeld DATE, PRIMARY KEY (ID, CourseID) );

CREATE TABLE IF NOT EXISTS Assignments ( ID SMALLINT, CourseID DECIMAL(5,2) REFERENCES Courses(ID), Due DATE, Percentage CHAR(2), AssignmentType VARCHAR(30), PRIMARY KEY (ID, CourseID) );

CREATE TABLE IF NOT EXISTS Homework ( ID SMALLINT, CourseID DECIMAL(5,2) REFERENCES Courses(ID), HWNumber CHAR(2), Title VARCHAR(30), FromLecture DATE, PRIMARY KEY (ID, CourseID) );

CREATE TABLE IF NOT EXISTS Projects ( ID SMALLINT, CourseID DECIMAL(5,2) REFERENCES Courses(ID), Title VARCHAR(30), PRIMARY KEY (ID, CourseID) );

CREATE TABLE IF NOT EXISTS Exams ( ID SMALLINT, CourseID DECIMAL(5,2) REFERENCES Courses(ID), ExamNumber CHAR(1), PRIMARY KEY (ID, CourseID) );

CREATE TABLE IF NOT EXISTS Students ( ID SMALLINT, Name VARCHAR(50), Email VARCHAR(50), CourseID DECIMAL(5,2) REFERENCES Courses(ID), Grade CHAR(3), PRIMARY KEY (ID) );

CREATE TABLE IF NOT EXISTS Coursework ( StudentID SMALLINT REFERENCES Students(ID), CourseID DECIMAL(5,2) REFERENCES Courses(ID), AssignmentID SMALLINT REFERENCES Assignments(ID), Submitted CHAR(2), Grade CHAR(3), PRIMARY KEY (StudentID, CourseID, AssignmentID) );

Write an SQL program returning multi-row query results. For added bonus, write an SQL program using a stored procedure or function (shown in class on Apr-19-2018), an SQL cursor and loop, retrieving the multiple rows into a Perl array variable. Write an SQL program returning multi-row query results. For added bonus, write an SQL program using a stored procedure or function (shown in class on Apr-19-2018), an SQL cursor and loop, retrieving the multiple rows into a Perl array variable