테스트를 위한 샘플 트리거,샘플 패키지 만드는 소스

제가 테스트를 위해 사용했던 샘플 트리거와 샘플 패키지만드는 쿼리입니다.

 

트리거

원본테이블입니다.

Sql>create table tts_1 as

select l.*, o.*

from

(select dbms_random.string('l',10) as name from dual) o,

(select level as lvl

from dual connect by level <= 1000000) l ;

 

트리거가 걸렸을때 값이 자동으로 들어가는 테이블입니다.

sql> create table tts_3

 2  as select * from tts_1 where 1=2;

 

Table created.

 

트리거 생성

create or replace trigger trg_tts_1
after
insert on tts_1
for each row
declare
begin
insert into tts_3
values (:new.lvl,:new.name);
end;
/

 

원본 테이블에 값이 입력되면 그 값이 그대로 다른 테이블에 입력되는 트리거입니다.

 

패키지 생성

create or replace package test_pkg
is
procedure sp_test_01 ;
procedure sp_test_02 ;
end ;
/

create or replace package body test_pkg
is
procedure sp_test_01
is
begin
   dbms_output.put_line('test ....01') ;
end sp_test_01 ;

procedure sp_test_02
is
   j number := 0 ;
begin
   for i in 1 .. 10 loop
      j := j + 1 ;
      dbms_output.put_line(i || '  ---> ' || i) ;
   end loop ;
end sp_test_02 ;

end test_pkg ;
/

 

패키지 실행방법입니다.

exec test_pkg.sp_test_01 ;

exec test_pkg.sp_test_02 ;