ORA-01006 in execute immediate

Question

Hi Everyone!
Please help!
What's wrong with this code?
create or replace procedure rgo_test_forall
as
  v_actie                        varchar2( 200 ) := 'BEGIN';
  cursor c_sjv
  is
    select   1 netb_totaal
           , 'prf' profiel
           , 'naam' netbeheerder
        from dual;
  type tt_sjv is table of c_sjv%rowtype
    index by binary_integer;
  t_sjv_netb                         tt_sjv;
  l_idx_netb                     pls_integer;
  cursor c_sjv_ean(
    b_profiel                   in       varchar2
  , b_netbeheerder              in       varchar2
  , b_netb_totaal               in       number )
  is
    select 1  ean_totaal
         , 1 / b_netb_totaal fractie
         , 'loc' locatie
         , 'prf' profiel
         , 'ptf' portfolio
         , b_netbeheerder netbeheerder
    from   dual;
  type tt_sjv_ean is table of c_sjv_ean%rowtype
    index by binary_integer;
  t_sjv_ean                         tt_sjv_ean;
  l_idx_ean                     pls_integer;
  type tt_fractie is table of number
         index by binary_integer;
  type tt_netbeheerder is table of varchar2( 400 )
         index by binary_integer;
  type tt_profiel is table of varchar2( 400 )
         index by binary_integer;
  t_fractie                        tt_fractie;
  t_netbeheerder                   tt_netbeheerder;
  t_profiel                        tt_profiel;
  v_maand                       date := to_date( '200711', 'yyyymm' );
  v_aantal_toegevoegd           pls_integer := 0;
  v_fractie                     number;
  procedure splits_tabel(
               origtable_in     in     tt_sjv_ean
             , fractie_tab_out     out tt_fractie
             , netb_tab_out        out tt_netbeheerder
             , profiel_tab_out     out tt_profiel )
   is
     l_idx    pls_integer := origtable_in.first;
   begin
     while l_idx is not null
     loop
        fractie_tab_out( l_idx ) := origtable_in( l_idx ).fractie;
        netb_tab_out( l_idx ) := origtable_in( l_idx ).netbeheerder;
        profiel_tab_out( l_idx ) := origtable_in( l_idx ).profiel;
        l_idx := origtable_in.next( l_idx );
     end loop;
   end splits_tabel;
begin
  open c_sjv;
  loop
    v_actie := 'bulk collect';
    fetch c_sjv
    bulk collect into t_sjv_netb limit 1000;
                           -- only 200 rows are expected
    exit when t_sjv_netb.count = 0;
    l_idx_netb := t_sjv_netb.first;
    while l_idx_netb is not null
    loop
      open c_sjv_ean(
              t_sjv_netb( l_idx_netb ).profiel
            , t_sjv_netb( l_idx_netb ).netbeheerder
            , t_sjv_netb( l_idx_netb ).netb_totaal );
      loop
        v_actie := 'bulk collect EAN';
        fetch c_sjv_ean
        bulk collect into t_sjv_ean limit 10000;
        exit when t_sjv_ean.count = 0;
        v_actie := 'splits tabel';
          splits_tabel(
               origtable_in     => t_sjv_ean
             , fractie_tab_out  => t_fractie
             , netb_tab_out     => t_netbeheerder
             , profiel_tab_out  => t_profiel );
        v_actie := 'forall insert';
        forall i in t_sjv_ean.first .. t_sjv_ean.last
          execute immediate
          'insert into rgot( ptf, volume_plat ) values( ' ||
          '                  substr( '':netbeheerder'' || '' '' || '':profiel'', 1, 30 ) ' ||
          '                , '':fractie'' )'
           using t_netbeheerder( i ), t_profiel( i ), t_fractie( i );
      end loop;
      l_idx_netb := t_sjv_netb.next( l_idx_netb );
    end loop;
  end loop;
exception
when others
then
   dbms_output.put_line( 'OTHERS: ' || sqlcode || ': ' || substr( sqlerrm, 1, 100 ) );
end rgo_test_forall;
sho errI get ORA-01006 when I run it. I have tried replacing the execute immediate statement with the code below, but that way I cannot compile the code.
        forall i in t_sjv_ean.first .. t_sjv_ean.last
          execute immediate
          'insert into rgot( ptf, volume_plat ) values( ' ||
          '                  substr( '''||:netbeheerder||''' || '' '' || '''||:profiel||''', 1, 30 ) ' ||
          '                , '''||:fractie||''' )'
           using t_netbeheerder( i ), t_profiel( i ), t_fractie( i );Next, I tried with the code below, but then no row was inserted.
        forall i in t_sjv_ean.first .. t_sjv_ean.last
          execute immediate
          'insert into rgot( ptf, volume_plat ) values( ' ||
          '                  substr( ''''||:netbeheerder||'''' || '' '' || ''''||:profiel||'''', 1, 30 ) ' ||
          '                , ''''||:fractie||'''' )'
           using t_netbeheerder( i ), t_profiel( i ), t_fractie( i );Any ideas?
By the way: the cursor definitions have been simplified for readability, of course.
Message was edited by:
RemcoGoris

Answer 1

I am sorry, I am but a simple silly little developer who doesn't have good ideas.
Since you are someone who has good ideas, I would consider myself a very very happy man if you were to tell me what the result of the 'debugging' should be.
This?
INSERT INTO rgot(
       ptf
     , volume_plat )
VALUES(
      substr( :netbeheerder || ' ' || :profiel, 1, 30 )
    , :fractie );Humble thanks!