LOB 처리 - DB CAFE

clob type 은 4G 까지 가능한 data형이고, 9i 부터 지원한다.

CREATE OR REPLACE PROCEDURE SP_CLOB_TEST (

v_MSG_ID   IN VARCHAR2,
v_XML_DATA   IN CLOB

) /*

처리내용 : CLOB 을 활용한 데이터 입력을 위한 procedure
처리내용 : BPCIM에서 입력된 XML 데이터를 TB_BPCIM_IF 테이블에 insert
   CLOB 컬럼에 데이터를 넣기 위해서는
   1. EMPTY_CLOB을 활용하여 insert
   2. FOR UPDATE 로 해당 컬럼을 lock
   3. DBMS_LOB.WRITE / DBMS_LOB.WRITEAPPEND 활용하여 update 처리.
made by joajoa. 2012.10.31

v_clob_selected CLOB;
v_write_amt     NUMBER;
v_write_offset  INTEGER := 1;
v_buf           LONG;
-- CLOB 컬럼에 한번에 입력시킬 크기(오라클 Buffer 설정과 연관된 것 같음. Buffer 사이즈에 따라 크기 조정)
v_buf_value     INTEGER := 1000;
v_clob_length   NUMBER;
loop_index      INTEGER;

BEGIN /* CREATE TABLE TB_CLOB_TEST (

MSG_ID VARCHAR2(10),
XML_DATA CLOB

);

DBMS_OUTPUT.ENABLE ( 1000000);
DBMS_OUTPUT.PUT_LINE( '***** [ SP_CLOB_TEST Procedure START ' || TO_CHAR(SYSDATE,'YYYY/MM/DD HH24:MI:SS') || ' ] *****');
-- 새로운 ROW일 경우 offset 초기화
v_write_offset := 1;
-- CLOB 제외한 값 insert
INSERT INTO TB_CLOB_TEST
 ( MSG_ID, XML_DATA
 )
 VALUES
 ( v_MSG_ID,
  EMPTY_CLOB()
 );
-- CLOB 초기화
SELECT XML_DATA INTO v_clob_selected FROM TB_CLOB_TEST
WHERE MSG_ID = v_MSG_ID
FOR UPDATE;
-- 컬럼 DATA가 존재할 경우만
IF v_XML_DATA is not null THEN
 v_clob_length := DBMS_LOB.GETLENGTH (v_XML_DATA);
 -- CLOB 컬럼에 한번에 입력시킬 수 있는 크기보다 큰 경우 LOOP로 처리
 IF v_clob_length > v_buf_value THEN
  -- DATA 전체 크기를 v_buf_value 크기로 나눈 값만큼 LOOP
  FOR loop_index IN 1 .. TRUNC(v_clob_length / v_buf_value)
  LOOP
   DBMS_OUTPUT.PUT_LINE( cast(loop_index as varchar2) || '. loop_index --------' || cast((v_buf_value * (loop_index - 1)) + 1 as varchar2));
   v_buf := DBMS_LOB.SUBSTR(v_XML_DATA, v_buf_value, (v_buf_value * (loop_index - 1) ) + 1);
   v_write_amt := DBMS_LOB.GETLENGTH (v_buf);
   DBMS_LOB.WRITEAPPEND(v_clob_selected, v_write_amt, v_buf);
  END LOOP;
  -- 나머지 DATA 입력
  IF MOD(v_clob_length, v_buf_value) <> 0 THEN
   v_buf := DBMS_LOB.SUBSTR(v_XML_DATA, MOD(v_clob_length, v_buf_value), (v_clob_length - MOD(v_clob_length, v_buf_value)) + 1);
   v_write_amt := DBMS_LOB.GETLENGTH (v_buf);
   DBMS_LOB.WRITEAPPEND(v_clob_selected, v_write_amt, v_buf);
  END IF;
 -- CLOB 컬럼에 한번에 입력시킬 수 있는 크기보다 작은 경우의 처리
 ELSE
  v_buf := v_XML_DATA;
  v_write_amt := DBMS_LOB.GETLENGTH (v_buf);
  DBMS_LOB.WRITE(v_clob_selected, v_write_amt, v_write_offset, v_buf);
 END IF;
END IF;
   
COMMIT;

EXCEPTION

WHEN OTHERS THEN
 DBMS_OUTPUT.PUT_LINE('***** [ SP_CLOB_TEST Procedure ERROR ' || TO_CHAR(SYSDATE,'YYYY/MM/DD HH24:MI:SS') || ' ] *****');
 DBMS_OUTPUT.PUT_LINE(SQLCODE || SQLERRM) ;
 ROLLBACK;

END;