×Ô¼ºÐ´µÄoracle dbms_sql º¯Êý°üÀý×Ó

create or replace procedure pro_insert_dbms
is
cid number;
cid_DDL number;
selectsql varchar2(1000);
ddlsql    varchar2(1000);
row_count number;
nofrows   integer;
lrowid                           rowid;
ddlrows   integer;
errpsn                           integer;
sqlfcd                           integer;
errc                             integer;
errm                             varchar2(2000);
request_id varchar2(100);
deal_name varchar2(100);
member_name varchar2(100);
/*(¶þ)Ò»°ã¹ý³Ì
¶ÔÓÚÒ»°ãµÄselect²Ù×÷,Èç¹ûʹÓö¯Ì¬µÄsqlÓï¾äÔòÐèÒª½øÐÐÒÔϼ¸¸ö²½Öè:
open cursor--->parse--->define column--->excute--->fetch rows--->close cursor;
¶ø¶ÔÓÚdml²Ù×÷(insert,update)ÔòÐèÒª½øÐÐÒÔϼ¸¸ö²½Öè:
open cursor--->parse--->bind variable--->execute--->close cursor;
¶ÔÓÚdelete²Ù×÷Ö»ÐèÒª½øÐÐÒÔϼ¸¸ö²½Öè:
open cursor--->parse--->execute--->close cursor;
*/
begin
 dbms_output.put_line('²âÊÔdbms_sql°ü.....');
 delete_commit('delete from test_insert i where i.inner_id=2');
 selectsql:='select i.request_id,i.deal_name,i.member_name  from test_insert i';
         begin
         cid:=dbms_sql.open_cursor;