PLSQL script error - 10g enterprise edition

Question

Hi,
I designed the following pl/sql program/script. It completed successfully but skips one record ( I dont know first or last ) only in the middle for loop. I did this on 10g or 11g ( dont remember exactly but one of these two ) enterprise edition. But when I tried the same code shown after this code on my personal laptop express edition, it inserted all the records correctly. Can anybody please explain the reason. There are 3 for loops one nested below another loop to load vendors, vendor sites, vendor contacts. If there were 1000 vendors, 1500 vendor sites, 900 contacts to load. The code below has loaded 1000 vendors, 1499 vendor sites ( skipped one record ) and 900 contacts.
CREATE OR REPLACE PROCEDURE APPS.p_create_vendor5 as
--Declare  
cursor main_vendors is
         select pov.vendor_id,
               pov.segment1,
               pov.vendor_name
               from                        
               po.po_vendors;
cursor  vendor_sites ( vendor_id_in number ) is
            select povs.vendor_id,
               povs.vendor_site_id,
               povs.vendor_site_code site_name
                            from
                po.po_vendor_sites_all povs
          where povs.vendor_id = vendor_id_in;
cursor vendor_contacts ( vendor_site_id_in number ) is
      select povc.vendor_contact_id,
               povc.inactive_date,
               povc.first_name,
               povc.middle_name,
               povc.last_name
        from
               po.po_vendor_contacts povc
          where povc.vendor_site_id = vendor_site_id_in;
l_input_vendor_seq          number; 
l_input_site_seq             number;
l_input_site_contact_seq     number;
l_site_name                 VARCHAR2(115);
begin
for rec in main_vendors loop
     Begin
      select AP_SUPPLIERS_INT_S.NEXTVAL
       into l_input_vendor_seq
       from DUAL;
     insert into ap_suppliers_int
               (vendor_interface_id,
                vendor_name,
                created_by,
                creation_date,
                status )
          VALUES
          (l_input_vendor_seq,  ----------AP_SUPPLIERS_INT_S.NEXTVAL,
           rec.vendor_name,
           -1,
           trunc(sysdate),
           'NEW');
       dbms_output.put_line('Inserted AP_SUPPLIERS_INT record for vendor (' || rec.vendor_name || '), id=' || to_char(l_input_vendor_seq) || ') ');
     exception   --- error logging for the Vendor Record
            when others then
                dbms_output.put_line('ERROR Inserting AP_SUPPLIERS_INT             record for vendor (' ||
                 rec.vendor_name || '), id=' || to_char                    (l_input_vendor_seq) || ') || ');
                dbms_output.put_line(nvl(fnd_message.get, SQLERRM));
                dbms_output.new_line;
            --  rollback;
        END;   --- Vendor Record
         Begin
             For site in vendor_sites (rec.vendor_id )  loop
                   insert into ap_supplier_sites_int
          (vendor_interface_id,
           vendor_id,
           vendor_site_code,
          VALUES
          (l_input_vendor_seq,
           site.vendor_id,
           site.site_name  
      dbms_output.put_line('Inserted AP_SUPPLIER_SITES_INT record         for vendor (' ||
                rec.vendor_name || '), id=' ||  to_char(l_input_vendor_seq)         || '), )');
           Begin
              For contact in vendor_contacts (site.vendor_site_id ) loop
            insert into ap_sup_site_contact_int
          (      vendor_site_id,
                --vendor_site_code,
                 inactive_date,
                 first_name,
                 middle_name,
                 last_name
             VALUES
              site.vendor_site_id ,
              --Contact.vendor_site_code,
              Contact.inactive_date,
              Contact.first_name,
              Contact.middle_name,
              Contact.last_name
      dbms_output.put_line('Inserted AP_SUP_SITE_CONTACT_INT record         for vendor (' ||
                rec.vendor_name || '), id=' ||  to_char(l_input_vendor_seq)         || '), )');
            end loop;
     exception   --- for the vendor site contact record
            when others then
                dbms_output.put_line('ERROR inserting                 AP_SUP_SITE_CONTACT_INT record for vendor (' ||
                rec.vendor_name || '), Site=' ||  to_char('')         || ') )');
                dbms_output.put_line(nvl(fnd_message.get, SQLERRM));
                dbms_output.new_line;
                rollback;
         end;
        end loop;
exception   --- for the Vendor Site Record
            when others then
                dbms_output.put_line('ERROR inserting                     AP_SUPPLIER_SITES_INT record for vendor (' ||
                rec.vendor_name || '), id=' ||  to_char(l_input_vendor_seq)             || ')');
                dbms_output.put_line(nvl(fnd_message.get, SQLERRM));
                dbms_output.new_line;
                rollback;
end;
end loop;
   commit;
   exception
    when others then
        dbms_output.put_line('Fatal Error!');
        dbms_output.put_line(nvl(fnd_message.get, SQLERRM));
        dbms_output.put_line(dbms_utility.format_error_backtrace);
       Rollback;
end;
/---The code that worked correctly on my personal laptop with express edition. This was not created as a procedure like above because there is no procedural option installed/enabled on my laptop. To override that error I ran it as pl/sql script. But in above case even running it as a script like below skipped on record. I mean if there were 1000 vendors, 1500 vendor sites, 900 contacts. The code below loaded everything correctly but the code above loaded 1000 vendors correctly but it only loaded 1499 vendor sites ( skipped one site ) and loaded 900 contacts correctly.
declare 
cursor main_vendors is
         select *
         from                        
               po_headers_all;
cursor  vendor_sites ( hdr_id number ) is
            select *
          from
               po_lines_all b
          where b.po_header_id = hdr_id;
cursor vendor_contacts (lin_id number) is
            select * from po_line_locations_all where po_line_id = lin_id;
l_input_vendor_seq          number; 
l_input_site_seq             number;
l_input_site_contact_seq     number;
l_site_name                 VARCHAR2(115);
--payment_term_v              ap.AP_TERMS_TL.name%type;
--payment_term_id_v           ap.AP_TERMS_TL.term_id%type;
begin
for rec in main_vendors loop
     Begin
      select AP_SUPPLIERS_INT_S.NEXTVAL
       into l_input_vendor_seq
       from DUAL;
          insert into po_headers_all_int
               ( po_header_id,
                 segment1,
                 po_type_lookup_code,
                 vendor_name,
                 attribute1,
                 po_date,
                 po_description,
                 attribute2
               VALUES
               (l_input_vendor_seq,  ----------AP_SUPPLIERS_INT_S.NEXTVAL,
                --rec.po_header_id,
                rec.segment1,
                rec.po_type_lookup_code,
                rec.vendor_name,
                rec.attribute1,
                rec.po_date,
                rec.po_description,
                rec.attribute2
       dbms_output.put_line('Inserted AP_SUPPLIERS_INT record for         vendor (' || rec.vendor_name || '), id=' || to_char            (l_input_vendor_seq) || ') ');
     exception   --- error logging for the Vendor Record
            when others then
                dbms_output.put_line('ERROR Inserting AP_SUPPLIERS_INT             record for vendor (' ||
                 rec.vendor_name || '), id=' || to_char                    (l_input_vendor_seq) || ') || ');
                --dbms_output.put_line(nvl(fnd_message.get, SQLERRM));
                dbms_output.new_line;
            --  rollback;
        END;   --- Vendor Record
         Begin
             For site in vendor_sites (rec.po_header_id )  loop
               insert into po_lines_all_int
                   (po_header_id,
                    po_line_id,
                    quantity,
                    unit_price,
                    line_num,
                    line_description,
                    --creation_date,
                    created_by
                   VALUES
                   (l_input_vendor_seq,
                    --rec.po_header_id,
                    site.po_line_id,
                    site.quantity,
                    site.unit_price,
                    site.line_num,
                    site.line_description,
                    --'09-AUG-2010',
                    1
      dbms_output.put_line('Inserted AP_SUPPLIER_SITES_INT record         for vendor (' ||
                site.line_num || '), id=' ||  to_char(l_input_vendor_seq)         || '), )');
            Begin
             For contact in vendor_contacts (site.po_line_id )  loop
               insert into po_line_locations_all_int ( po_header_id, po_line_id, line_location_id, shipment_num, description, quantity )
                  values (l_input_vendor_seq, site.po_line_id, contact.line_location_id, contact.shipment_num, contact.description, contact.quantity );
             end loop; 
             end;
        end loop;
exception   --- for the Vendor Site Record
            when others then
                dbms_output.put_line('ERROR inserting                     AP_SUPPLIER_SITES_INT record for vendor (' ||
                rec.vendor_name || '), id=' ||  to_char(l_input_vendor_seq)             || ')');
                --dbms_output.put_line(nvl(fnd_message.get, SQLERRM));
                dbms_output.new_line;
                rollback;
end;
end loop;
   commit;
   exception
    when others then
        dbms_output.put_line('Fatal Error!');
       -- dbms_output.put_line(nvl(fnd_message.get, SQLERRM));
        dbms_output.put_line(dbms_utility.format_error_backtrace);
       Rollback;
end;Edited by: user13301132 on 24-Aug-2010 11:21 AM
Edited by: user13301132 on 24-Aug-2010 12:05 PM
Edited by: user13301132 on 24-Aug-2010 12:07 PM
Edited by: user13301132 on 25-Aug-2010 9:53 AM

Answer 1

I know this doesn't answer your question directly, but is there any reason why you have gone with loop processing like this instead of far more efficient and easier to maintain INSERT ... INTO ... SELECT ... FROM blocks?
There's no reason for example that
             For site in vendor_sites (rec.vendor_id )  loop
                   insert into ap_supplier_sites_int
          (vendor_interface_id,
           vendor_id,
           vendor_site_code,
          VALUES
          (l_input_vendor_seq,
           site.vendor_id,
           site.site_name  
           );(which has a bug in it by the way - you have an extraneous comma).
cannot be
insert into ap_supplier_sites_int (vendor_interface_id,
                                             vendor_id,
                                             vendor_site_code)
            select input_vendor_seq.nextval,
                     povs.vendor_id,
                    povs.vendor_site_code site_name
                            from
                po.po_vendor_sites_all povs
          where povs.vendor_id = vendor_id_in;also I just noticed you may want to look at your cursor declarations:
                po.po_vendor_sites_all povs;
          where povs.vendor_id = vendor_id_in;looks like you've been messing around with it trying to get it to work, but have forgotton to remove a semi-colon.