ORACLE 패키지의 이해

  [ 패키지 ]

  : 연관성이 있는 함수나 프로시저를 그룹으로 모아놓은 개념.

  

  [ 패키지 구성 ]

  : 선언부 + 몸체부

  

  **참고로 패키지 선언부에 선언되지 않아도 패키지 몸체부에서

    사용할 수 있다... BUT 권장사항이 아니다.

    

  [ 구문 형식 ]

  - 선언부 형식

  create (or replace) package 패키지명

  IS

    패키지 내 전역 변수 선언;

    procedure 프로시저1(매개변수1,...);

    procedure 프로시저2(매개변수1,...);

    function 함수1(매개변수1,..2)return 타입;

    ...

  end;

  - 몸체부 형식

  create (or replace) package body 패키지명

  IS

  procedure 프로시저 이름

  subprogram bodis : 실제 작동하게될 서브프로그램(프로시저, 함수)

  end;

  

  *패키지 실행 : 패키지는 여러 환경에서 호출되어 실행가능하다.

              패키지에 대한 실행권한을 가진 사용자만 실행시킬 수 있다.

exec 패키지명.프로시저or함수명;

select 패키지명.함수명(매개변수) from ~~

  *패키지 삭제 : 선언부와 몸체부를 모두 삭제할 수 있다. 또는 몸체만 삭제할 수도 있다.

      drop package 패키지명; -- 둘 다 삭제할 경우

      drop package body 패키지명; -- 몸체만 삭제할 경우

- 패키지 내에 전역 변수를 선언하고 해당 변수를 사용할 경우 초기화 작업이 필요한 경우가 있다.

  이런 경우를 지원하기 위해 

  패키지.프로시저 or 함수를 수행할 때 마다 한번 무조건 실행하게 해 초기화 작업등을 할 수 있도록 지원하는 것이 있는데

  이를 ONE_TIME_ONLY_PACKAGE 라고 한다.

 

  방식은, 단순히 패키지 바디의 맨 아래 부분에 BEGIN을 기술하고 초기화 작업등을 해주면 된다.

set serveroutput on; -- 선언부 -- emp_sum과 emp_avg 프로시저로 구성된 패키지 create or replace package emp_proc IS entireVariable varchar2; -- 패키지 전역 변수 procedure emp_sum; procedure emp_avg; function emp_cnt(emp_id employees.employee_id%type) return number; end; / --몸체부 create or replace package body emp_proc IS -- 프로시저1(위에 선언한 emp_sum 구현부) procedure emp_sum IS cursor emp_tot_sum is select count(*), sum(nvl(salary,0)) from employees; tot_num number; tot_sum number; BEGIN open emp_tot_sum; fetch emp_tot_sum into tot_num, tot_sum; dbms_output.put_line('전체인원수 : '||tot_num||', 급여합계 : '||tot_sum); close emp_tot_sum; END emp_sum; -- 각 프로시저 끝(emp_sum프로시저의 끝 부분) -- emp_avg 프로시저 procedure emp_avg IS cursor emp_tot_avg is select count(*), avg(nvl(salary,0)) from employees; tot_num number; tot_avg number; BEGIN open emp_tot_avg; fetch emp_tot_avg into tot_num, tot_avg; dbms_output.put_line('전체인원수 : '||tot_num||', 평균급여 : '||tot_avg); close emp_tot_avg; END emp_avg; -- emp_avg 프로시저 끝 function emp_cnt(emp_id employees.employee_id%type) return number IS cnt number; BEGIN select count(*) into cnt from employees where employee_id = emp_id; return cnt; END emp_cnt; BEGIN -- one time only package entireVariable := '초기값 설정'; end; -- body의 끝 / -- 패키지 실행 방법 -- : exec 패키지명.프로시저이름 exec emp_proc.emp_avg; execute emp_proc.emp_sum; select emp_proc.emp_cnt(employee_id) from employees;