動的SQL使用時にCOMMITすると次のフェッチでエラー

 w_SQL := 'SELECT ' || 'ROWID, ';
 w_SQL := w_SQL  || 'SHORI_MODE, SHORI_KBN FROM ' || w_TableName;
 w_SQL := w_SQL  || ' WHERE SHORI_KBN = ''' || SYRKBN_MI || '''';
 w_SQL := w_SQL  || ' FOR UPDATE';

 w_CUR_SQL := DBMS_SQL.OPEN_CURSOR;
 DBMS_SQL.PARSE(w_CUR_SQL, w_SQL, DBMS_SQL.NATIVE);

 w_REC_NUM(1)  := NULL;
 DBMS_SQL.DEFINE_COLUMN(w_CUR_SQL, 1, w_REC_NUM(1));
 w_REC_CHR(2)  := NULL;
 DBMS_SQL.DEFINE_COLUMN(w_CUR_SQL, 2, w_REC_CHR(2));

 w_SQLExec := DBMS_SQL.EXECUTE(w_CUR_SQL);

 LOOP
  w_SQLFetch := DBMS_SQL.FETCH_ROWS(w_CUR_SQL);
  EXIT WHEN w_SQLFetch < 1;

  DBMS_SQL.COLUMN_VALUE(w_CUR_SQL, 1, w_REC_NUM(1));
  DBMS_SQL.COLUMN_VALUE(w_CUR_SQL, 2, w_REC_CHR(2));

  チェック

  IF w_Error  = TRUE THEN
   w_SQL_UP := NULL;
   w_SQL_UP := w_SQL_UP || 'UPDATE ' || w_TableName;
   w_SQL_UP := w_SQL_UP || ' SET SHORI_KBN = ''' || C_KBN_ERR || '''';
   w_SQL_UP := w_SQL_UP || ' WHERE ROWID = ''' ||  w_ROWID || '''';
   w_CUR_SQL_UP := DBMS_SQL.OPEN_CURSOR;
   DBMS_SQL.PARSE(w_CUR_SQL_UP, w_SQL_UP, DBMS_SQL.NATIVE);
   w_SQLExec_UP := DBMS_SQL.EXECUTE(w_CUR_SQL_UP);
   COMMIT;
   DBMS_SQL.CLOSE_CURSOR(w_CUR_SQL_UP);
  END IF;

 END LOOP;

DECLARE

	CURSOR c1 IS SELECT col1 FROM test.test1 for update nowait ;

	TYPE COLList IS TABLE OF test.test1.col1%TYPE;

	colvals COLList ;

	row_num number := 1;

BEGIN

	OPEN c1;

	FETCH c1 BULK COLLECT INTO colvals;

	CLOSE c1 ;

	LOOP

		dbms_output.put_line(colvals(row_num)) ;

		insert into test.test values(colvals(row_num)) ;

		commit work;

		row_num := row_num + 1 ;

		exit when row_num > colvals.last;

	END LOOP ;

END;

/

TYPE COLList IS TABLE OF test.test1.col1%TYPE;

TYPE COLList IS TABLE OF VARCHAR(100);