1️⃣ PL/SQL 의 정의와 기본 함수

PL/SQL이란 ?

오라클에서 제공하는 프로그래밍 언어

프로그래밍 언어의 요소를 갖추고 데이터베이스 업무를 처리하기 위한 최적화 언어.

 

EX ) Procedural extension Language to Structured Query (PL) -> 처리언어
(Process = 처리하다)
(Procedure = 처리자)

 

SQL을 확장한 순차적인 언어 : Procudure(리턴 x), Function(리턴 o), Trigger(자동호출함수, 호출을안해도 호출되는 콜백 Call back함수)

 

📋 PL/SQL의 기본 구조

 

DECLARE(선언부) : 멤버 변수나 상수를 선언한다.

 

BEGIN ~ END(실행부) : 제어문, 반복문 등등 함수등을 기술하는 부분이다.

 

EXEPTION(예외처리) : 에러발생후 명령들을 기술하는 부분.

 

Anonymous PL/SQL Block (익명 블록) : 일회성으로 사용될 경우 많이 사용.

 

Stored PL/SQL Block (저장 블록) : 서버에 저장해 놓고 반복, 주기적으로 많이 사용.

 

/*
    PL/SQL
    Procedural extension Language to Structured Query (PL) -> 처리언어
    Process = 처리하다
    Procedure = 처리자
    SQL을 확장한 순차적인 언어 : Procudure(리턴 x), Function(리턴 o), Trigger(자동호출함수, 호출을안해도 호출되는 콜백 Call back함수)
    
*/
 
/*
    Script의 구조
    1. 선언부 : 변수, 상수, 초기화
    2. 실행부 : Query, 제어문, 실제처리
    3. 예외처리 : 각종 오류 (-생략가능-)
*/
-------------------------------------------------------------------------------
 
SET SERVEROUTPUT ON -- 콘솔에 출력되는 문장이 보이도록 함 (CONSOLE에 출력을 설정)
                    -- 한번만 실행하면 파일 안에선 다 실행함
SET SERVEROUTPUT OFF -- 출력을 끄는 함수
 
-------------------------------------------------------------------------------
BEGIN 
--실행부
    dbms_output.put_line('HEELO PL'); -- 자바의 System out println과 같음
END;
/
-------------------------------------------------------------------------------
DECLARE
    --선언부
    message VARCHAR2(10); -- 변수선언
BEGIN
    --실행부
    message := 'hello PL'; -- ':=' 대입연산자
    
    DBMS_OUTPUT.PUT_LINE('message =' || message); -- 출력
END;
/
-------------------------------------------------------------------------------
--제어문
--#1 if
DECLARE
    counter INTEGER;
BEGIN
    counter := 1;
    counter := counter + 1;
    
    IF counter IS NULL THEN 
    dbms_output.put_line('counter is null');
    ELSE 
    dbms_output.put_line('counter is not null');
    END IF;
END;
/
-------------------------------------------------------------------------------
--#2 ELSIF (=ELSE IF)
DECLARE
    counter INTEGER;
BEGIN
    counter := 1;
    counter := counter + 3;
    
    IF counter < 1 THEN 
    dbms_output.put_line('counter is null');
    ELSIF counter > 2 THEN
    dbms_output.put_line('엘스 이프 출력');
    ELSE 
    dbms_output.put_line('counter is not null');
    END IF;
END;
/
-------------------------------------------------------------------------------
-- FOR 문
DECLARE
    counter INTEGER;
    i INTEGER;--LOOP용 변수
BEGIN 
    FOR i IN 1..9 LOOP
    dbms_output.put_line('i= '||i);
    counter := i*2;
    dbms_output.put_line('counter= '|| counter);
    END LOOP;
END;
/
-------------------------------------------------------------------------------
--LOOP 문
DECLARE 
    V_count NUMBER := 0;
    V_total NUMBER := 0;
BEGIN
    LOOP
        EXIT WHEN V_count = 10;-- 이 조건일 시 루프 탈출해라
        
        V_count := V_count + 1;
        V_total := V_total + V_count;
        
        dbms_output.put_line('V_count= '|| V_count);
    END LOOP;
    
        dbms_output.put_line('V_total= '|| V_total);
END;
/
-------------------------------------------------------------------------------
-- WHILE 문
DECLARE
    v_count NUMBER := 0;
    v_total NUMBER := 0;
BEGIN
    WHILE v_count < 10
    LOOP
        v_count := v_count + 1;
        v_total := v_total + v_count;
        dbms_output.put_line('V_count= '|| V_count);
      END LOOP;
      
         dbms_output.put_line('V_total= '|| V_total);
END;
/
-------------------------------------------------------------------------------
-- GOTO 문 (~로 가라)
    --장점 : 속도가 빠르다.
DECLARE
    v_name VARCHAR2(10) := 'LEE';
    v_case NUMBER := 0;
BEGIN
    CASE WHEN MOD(v_case, 2) = 0 THEN -- 첫번째 조건 들어가는것 / MOD 나눈 나머지값
            GOTO test1;
        WHEN MOD(v_case, 2) = 1 THEN
            GOTO test2;
        ELSE 
            GOTO err; -- 숫자가 아니면 err
    END CASE;
    
<<test1>> --<<>> 부등호 친 이쪽으로 오게된다
    dbms_output.put_line(v_name || 'is woman');
    GOTO sub_end; -- 끝맺는 부분
<<test2>>
    dbms_output.put_line(v_name || 'is man');
    GOTO sub_end; -- 끝맺는 부분
<<err>> 
    dbms_output.put_line(v_name || 'error');
    GOTO sub_end; -- 끝맺는 부분
    
<<sub_end>>
    dbms_output.put_line('end');
END;
/
-------------------------------------------------------------------------------
-- 예외 처리부
DECLARE
    counter INTEGER;
BEGIN
    counter := 10;
    counter := counter / 0; -- 0으로 나눌수 없어서 예외발생
    
EXCEPTION WHEN OTHERS THEN -- 예외처리
    dbms_output.put_line('예외가 발생하였습니다');
 
END;
/
-------------------------------------------------------------------------------
-- VARRAY -> VARIABLE ARRAY(배열)
DECLARE
    TYPE varray_test IS VARRAY(3) OF INTEGER; --varray_test ->자료형
    myarr varray_test; --myarr -> 진짜변수
BEGIN
    myarr := varray_test(11,22,33);
    
    DBMS_OUTPUT.PUT_LINE('myarr(2)=' || myarr(2));
END;
/
-------------------------------------------------------------------------------