oracle - LONG データ型の列挿入用の ORACLE DECLARE CURSOR

Question

データベースの値を別のデータベースに転送したい。しかし、私のソース データベースには、LONG データ型の列を持つテーブルがあります。したがって、これらの LONG 型の列に対して単に挿入コマンドを使用することはできません。

だから私はこれを読みました: http://it.toolbox.com/blogs/siebel-answers/ora00997-illegal-use-of-long-datatype-when-performing-sql-insert-intoselect-from-27132

このコードをビルドします。

  DECLARE 
CURSOR b is 
select
Column_1,
Column_2
FROM DB1.TABLE1;
rb b%ROWTYPE; 
BEGIN 
OPEN b;
LOOP  
FETCH b INTO rb; 
EXIT WHEN b%NOTFOUND; 
INSERT INTO TABLE_1
(
 Column_1,
 Column_2
  )
  VALUES
  (
  rb.Column_1,
    rb.Column_2
  );
  END LOOP;
  COMMIT;
END;

それはうまくいきますが、その後に別のブロックを追加します:

 DECLARE 
    CURSOR b is 
    select
    Column_1,
    Column_2
    FROM DB1.TABLE2;
    rb b%ROWTYPE; 
    BEGIN 
    OPEN b;
    LOOP  
    FETCH b INTO rb; 
    EXIT WHEN b%NOTFOUND; 
    INSERT INTO TABLE_2
    (
     Column_1,
     Column_2
      )
      VALUES
      (
      rb.Column_1,
      rb.Column_2
      );
      END LOOP;
      COMMIT;
    END;

 DECLARE 
    CURSOR b is 
    select
    Column_1,
    Column_2
    FROM DB1.TABLE1;
    rb b%ROWTYPE; 
    BEGIN 
    OPEN b;
    LOOP  
    FETCH b INTO rb; 
    EXIT WHEN b%NOTFOUND; 
    INSERT INTO TABLE_1
    (
     Column_1,
     Column_2
      )
      VALUES
      (
      rb.Column_1,
        rb.Column_2
      );
      END LOOP;
      COMMIT;
    END;

次のようなエラーが表示されます。

Error starting at line 1 in command:
DECLARE 
        CURSOR b is 
        select
        Column_1,
        Column_2
        FROM DB1.TABLE2;
        rb b%ROWTYPE; 
        BEGIN 
        OPEN b;
        LOOP  
        FETCH b INTO rb; 
        EXIT WHEN b%NOTFOUND; 
        INSERT INTO TABLE_2
        (
         Column_1,
         Column_2
          )
          VALUES
          (
          rb.Column_1,
          rb.Column_2
          );
          END LOOP;
          COMMIT;
        END;

     DECLARE 
        CURSOR b is 
        select
        Column_1,
        Column_2
        FROM DB1.TABLE1;
        rb b%ROWTYPE; 
        BEGIN 
        OPEN b;
        LOOP  
        FETCH b INTO rb; 
        EXIT WHEN b%NOTFOUND; 
        INSERT INTO TABLE_1
        (
         Column_1,
         Column_2
          )
          VALUES
          (
          rb.Column_1,
            rb.Column_2
          );
          END LOOP;
          COMMIT;
        END;
Error report:
ORA-06550: line 27, column 6:
PLS-00103: Encountered the symbol "DECLARE" 
ORA-06550: line 51, column 12:
PLS-00103: Encountered the symbol "end-of-file" when expecting one of the following:

   ( begin case declare end exception exit for goto if loop mod
   null pragma raise return select update while with
   <an identifier> <a double-quote
06550. 00000 -  "line %s, column %s:\n%s"
*Cause:    Usually a PL/SQL compilation error.
*Action:

このストラクテロンを次々と使用するにはどうすればよいですか?