CREATE OR REPLACE PROCEDURE InsertBook(   //프로시저 정의. 혹은 기존의 프로시저가 있으면 삭제하고 재정의한다.
  myBookID IN NUMBER,   //프로시저 매개변수 정의. IN은 입력인자, OUT은 출력인자
  myBookName IN VARCHAR2,   //프로시저 매개변수 정의
  myPublisher IN VARCHAR2,   //프로시저 매개변수 정의
  myPrice IN NUMBER)   //프로시저 매개변수 정의
AS
BEGIN 
  INSERT INTO Book(bookid, bookname, publisher, price)
    VALUES(myBookID, myBookName, myPublisher, myPrice);
END;
/
EXEC InsertBook(13, '스포츠과학', '마당과학서적', 25000);   //정의된 InsertBook 프로시저를 EXEC 문으로 호출하여 실행하면 Book테이블에 bookid가 13인 새로운 투플 한 개가 추가된다.
SELECT * FROM book;

CREATE OR REPLACE PROCEDURE BookInsertOrUpdate(  //프로시저 이름과 매개변수 정의. IN/OUT을 생략하면 기본값은 IN으로 설정
  myBookID NUMBER,  //위와동일
  myBookName VARCHAR2,  //위와동일
  myPublisher VARCHAR2,  //위와동일
  myPrice INT)  //위와동일
AS
  mycount NUMBER;  //지역변수 mycount선언
BEGIN
  SELECT count (*) INTO mycount FROM Book  //myBookName과 같은 이름의 책이 몇권 있는지 확인하여 mycount 변수에 값 저장
    WHERE bookname LIKE mybookName;  //위와 동일
  IF mycount !=0 THEN  //if조건문으로 삽입하려는 도서이름(myBookName)과 같은 도서가 있는지 확인하여, 있으면 가격(price)만 새로운가격(myprice)로 수정하고 아니면 투플 전체를 새로 삽입한다.
    UPDATE Book SET price = myPrice  //위와동일
      WHERE bookname LIKE myBookName;  //위와동일
  ELSE  //위와동일
    INSERT INTO Book(bookid, bookname, publisher, price)  //위와동일
      VALUES(myBookID, myBookname, myPublisher, myPrice);  //위와동일
  END IF;  //위와동일
END;
/
EXEC BookInsertOrUpdate(15, '스포츠 즐거움', '마당과학서적', 25000);  //호출결과 Book테이블에 bookid가 15인 새로운 투플 한 개가 추가된다
SELECT * FROM Book;
EXEC BookInsertOrUpdate(15, '스포츠 즐거움', '마당과학서적', 20000);  //호출결과 이미 같은 책 제목이 있으므로 가격만 변경된다
SELECT * FROM Book;

CREATE OR REPLACE PROCEDURE AveragePrice(
  AverageVal OUT NUMBER)   //OUT은 출력 매개변수라는 의미이다
AS
BEGIN
  SELECT AVG(price) INTO AverageVal FROM Book WHERE price IS NOT NULL;  //책의 평균값을 계산하여 매개변수 AverageVal에 저장. INTO문은 변수에 값을 저장할 때 사용한다.
END;
/
SET SERVEROUTPUT ON;
DECLARE
  AverageVal NUMBER(6,1);  //변수 AverageVal을 정의하였고 AveragePrice를 호출하였다. 호출 후 결과는 매개변수 AverageVal에 저장된다.
BEGIN
  AveragePrice(AverageVal);
  DBMS_OUTPUT.PUT_LINE('책값 평균 :'||AverageVal);  //위 두번째에서 OUT했기때문에 출력가능. AverageVal 값을 출력하는 문장이다.
END;

CREATE OR REPLACE PROCEDURE Interest
AS
  myInterest NUMERIC;
  Price NUMERIC;
  CURSOR InterestCursor IS SELECT saleprice FROM Orders;  //InterestCursor라는 이름의 CURSOR변수를 선언했다. InterestCursor는 SELECT 문의 결과 테이블을 차례대로 가리키는 포인터로 맨 처음에는 첫 번째 투플을 가리킨다.
BEGIN
  myInterest :=0.0;
  OPEN InterestCursor;  //커서의 사용을 알리는(OPEN) 문장이다.
  LOOP  //LOOP반복분이며 EXIT WHEN문장에서 NOTFOUND조건을 만족하면 빠져나온다. 
    FETCH InterestCursor INTO Price;  //다음 투플을 가져오는 FETCH문이다.
    EXIT WHEN InterestCursor%NOTFOUND;
    IF Price >= 30000 THEN  //IF 조건에 따라 이익금을 myInterest에 저장한다.
        myInterest := myInterest + Price * 0.1;  //위와동일
    ELSE  //위와동일
        myInterest := myInterest + Price *0.05;  //위와동일
    END IF;  //위와동일
  END LOOP;
  CLOSE InterestCursor;  //커서의 사용을 끝내는 CLOSE문이다.
  DBMS_OUTPUT.PUT_LINE(' 전체 이익 금액 = '||myInterest);  //myInterest의 결과값 출력
END;
/
SET SERVEROUTPUT ON;  //정의된 프로시저 호출하며 매개변수 없이 바로 호출된다. 실행 결과는 도서의 판매 이익금이다.
EXEC Interest;  //위와동일

create table Book_log(
    bookid_l NUMBER,
    bookname_l VARCHAR2(40),
    publisher_l VARCHAR2(40),
    price_l NUMBER);

CREATE OR REPLACE TRIGGER AfterInsertBook
AFTER INSERT ON Book FOR EACH ROW  //트리거가Book테이블에 INSERT 문이 실행되면 자동으로 실행된다는 의미이다.
DECLARE
    average NUMBER;
BEGIN
    INSERT INTO Book_log  //Book에 삽입된 투플을 다시 한 번 Book_log 테이블에 저장하는 INSERT 문을 실행하라는 의미이다. 변수 앞에 :new는 새로 삽입될 투플의 값을 가리키는 지정자이다.
      VALUES(:new.bookid, :new.bookname, :new.publisher, :new.price);
    DBMS_OUTPUT.PUT_LINE('삽입 투플을 Book_log 테이블에 백업..');  //메세지를 출력하는 문장이다.
END;
/
INSERT INTO Book VALUES(14, '스포츠 과학 1', '이상미디어', 25000);  //새로운 투플을 Book_log에 삽입하는 문장이다.
select * FROM Book WHERE BOOKID='14';  //Book 테이블에 삽입된 내용을 확인한다.
SELECT * FROM Book_log WHERE BOOKID_L='14';  //Book_log 테이블에 삽입된 내용을 확인한다.

CREATE OR REPLACE FUNCTION fnc_Interest(
  Price NUMBER) RETURN INT  //매개변수
IS
  myInterest NUMBER;  //변수
BEGIN
  IF Price >= 30000 THEN myInterest := Price*0.1;
  ELSE myInterest := Price *0.05;
  END IF;
  RETURN myInterest;
END;
/
SELECT custid, orderid, saleprice, fnc_Interest(saleprice) interest
FROM Orders;