농부지기

1. 트랜잭션을 별도로 동작하기 위해

2. 에러에 대한 내용을 로깅하기 위해서 트랜잭션과는 별도로 동작하는 트랜잭션을 만들어
   에러내용을 저장한다.

1. A와 B 펑션이 있을 경우
   FUNCTION_A(
      begin
            B();
      end;
   )

   FUNCTION_B(
     as PRAGMA AUTONOMOUS_TRANSACTION
      begin
            ...
             commit;
      end;
   )

   rollback;

   : 이때 A function에서 수행한 transaction은 Rollback되지만
          B function에서 수행한 transaction은 Commit 된다.

Oracle Function에서 대부분 한개의 값을 반환하는 경우가 대부분이다. 

하지만 한 개의 값을 반환할 경우 제약을 받는 경우가 종종 생긴다.(사실 처음이다.) 

우선 Table 단위나 Row_Type단위로 값을 리턴 할 경우  

그에 맞는 임시 Table (TYPE)을 만들어 주어야 한다.

1. Oracle Type만들기
 create or replace TYPE SLP AS OBJECT (
        CD VARCHAR2(100),
        CD_NM VARCHAR2(200)
 );

그런 다음 사용을 하려는 객체를 선언해주어야 한다.

2. 임시 TABLE(TYPE) 객체 만들기

create or replace TYPE SAMPLE_TABLE AS TABLE OF SLP;

이제 사용할 Function을 만들면 끝이다.

3. Functoin만들기

create or replace FUNCTION F_GET_SAMPLE_NAME(
      COMPANY_CD IN VARCHAR2
) RETURN SAMPLE_TABLE pipelined IS
        aaa SLP := SLP(NULL, NULL);  -- 초기화(SAMPLE 구조체를 aaa로 선언)
 BEGIN
      FOR bbb IN (SELECT CD, CD_NM
                    FROM XFRMD2C
                  ) LOOP
          aaa.cd          := bbb.cd;
          aaa.cd_nm    := bbb.cd_nm;
          PIPE ROW(aaa);  -- 검색값을 저장
      END LOOP;
      RETURN;
   EXCEPTION WHEN NO_DATA_FOUND THEN
       BEGIN
           aaa:= SLP('', '');
           pipe row(aaa);
       END;
       RETURN;
  END
;

1. Function의 기본은 값 하나만 넘기자만

   PIPE를 이용하면 Table단위나 Row_Type단위로 값을 리턴할 수 있다.  

2. PipeLined 라고 불리는 이유는 데이터를 찾는 즉시 바로 바로 전송해주기 때문이다.  

-- Package 헤더 생성

CREATE OR REPLACE PACKAGE myDemoPack
       IS

       -- 레코드 타입
       TYPE myObjectFormat IS RECORD
        ( A INT,
          B DATE,
          C VARCHAR2(25)
        );

       -- 테이블 타입
       TYPE myTableType IS TABLE OF myObjectFormat;   

       FUNCTION prodFunc RETURN myTableType PIPELINED;  --pipelined선언

END myDemoPack;

-- Package 바디 생성

CREATE OR REPLACE PACKAGE BODY myDemoPack AS
       FUNCTION prodFunc RETURN myTableType PIPELINED IS

       CURSOR sel_cur IS
          SELECT ROWNUM, SYSDATE+ROWNUM, 'Row=' || ROWNUM
            FROM DUAL
           CONNECT BY LEVEL <= 5;

       BEGIN
           FOR myObjectFormat IN sel_cur
              LOOP
                  PIPE ROW (myObjectFormat); --바로바로 리턴
              END LOOP;

              RETURN;   --이때 RETURN는 사실 의미 없음
           END;
        END;

2. 패지지 생성
   -- 패지키 헤더 생성

   CREATE OR REPLACE PACKAGE myDemoPack
       IS

       -- 레코드 타입
       TYPE myObjectFormat IS RECORD
        ( A INT,
          B DATE,
          C VARCHAR2(25)
        );
 
       -- 테이블 타입
       TYPE myTableType IS TABLE OF myObjectFormat;

       FUNCTION prodFunc RETURN myTableType PIPELINED;  --pipelined선언

    END myDemoPack;


   --패키지 바디 생성
   CREATE OR REPLACE PACKAGE BODY myDemoPack AS
       FUNCTION prodFunc RETURN myTableType PIPELINED IS
       BEGIN
           FOR i  IN  1 .. 5   
              LOOP
                  PIPE ROW (myObjectFormat(i, SYSDATE+I, 'Row' || i)); --바로바로 리턴
              END LOOP;
              
              RETURN;   --이때 RETURN는 사실 의미 없음
           END;
        END; 

1. Function의 기본은 값 하나만 넘기자만

   PIPE를 이용하면 Table단위나 Row_Type단위로 값을 리턴할 수 있다.  

2. PipeLined 라고 불리는 이유는 데이터를 찾는 즉시 바로 바로 전송해주기 때문이다.  

1. Object Type을 생성한다.

   -- 레코드 타입
   CREATE OR REPLACE TYPE myObjectFormat
       AS OBJECT
    ( A INT,
      B DATE,
      C VARCHAR2(25)
    );
 
   -- 테이블 타입
   CREATE OR REPLACE TYPE myTableType
       AS TABLE OF myObjectFormat

2. 패지지 생성
   -- 패지키 헤더 생성

   CREATE OR REPLACE PACKAGE myDemoPack
       AS
          FUNCTION prodFunc RETURN myTableType PIPELINED;  --pipelined선언
   END;

   --패키지 바디 생성
   CREATE OR REPLACE PACKAGE BODY myDemoPack AS
       FUNCTION prodFunc RETURN myTableType PIPELINED IS
       BEGIN
           FOR i  IN  1 .. 5   
              LOOP
                  PIPE ROW (myObjectFormat(i, SYSDATE+I, 'Row' || i)); --바로바로 리턴
              END LOOP;
              
              RETURN;   --이때 RETURN는 사실 의미 없음
           END;
        END;