Help required in the code

Question

CREATE OR REPLACE procedure pt_load_withouttran1(tabname in varchar2 , tabname2 in varchar2, condition in varchar2) is
--tabname varchar2(100) := 'atlanta_operator';
-- tabname2 varchar2(100) := 'pt_atlanta_operator';
sql_text varchar2(2000) := 'declare ' ||
'type rc_type is ref cursor ;' ||
     'rc rc_type;' ||
     'v_count number;' ||
     'p_sql varchar2(500);'||
     'p_sql := '''||' select * from ' || tabname ||' '|| condition || ''';' ||
     'dbms_output.put_line(p_sql);' ||
     'type temp_type is table of '|| tabname || '%rowtype index by binary_integer;' ||
     'temp_tab temp_type;' ||
          'begin ' ||
          ' select to_number(value) into v_count from t2_system_parameter where name=''batch_size'';' ||
               ' open rc for p_sql;' ||
               'loop ' ||
               ' fetch rc bulk collect into temp_tab limit v_count;' ||
               ' forall j in 1..temp_tab.count '||
               ' insert into ' || tabname2 || ' values temp_tab(j);' ||
               ' end loop;' ||
               'commit; end;' ;
begin
execute immediate sql_text;
end;
begin
pt_load_withouttran1('atlanta_operator','pt_atlanta_operator','where atlanta_operator_id is not null');
end;
I am getting a run time error in calling this procedure . Please help.

Answer 1

Hello there.
You end up with a PL/SQL block that does something like :
declare
type rc_type is ref cursor ;
rc rc_type;
v_count number;
p_sql varchar2(500);
p_sql := ' select * from ..... ';
dbms_output.put_line(p_sql);
As you can see, I think it's simply that the last 2 lines above end up in your DECLARE
section, not (as it should be) after the BEGIN.
Regards