Unable to upload a .dat file from pl/sql

Question

Hi,
I have written a stub in plsql to upload a data file. the DB version which I am using is 11g ( 11.1.0.7). The data file consists of 94000 rows.
Sys is able to upload only 8000 rows at a time. I tried to upload it from the DB server by Setting serverout param to off. I generated a log file for this and I get " -ORA-06502: PL/SQL: numeric or value error: character string buffer too small " error. Kindly help on this issue.Are there any param's in the DB which will restrict the data upload into table based on rows/blocks at a time ?
My code is as follows :
DECLARE
     f           UTL_FILE.file_type;
     l           VARCHAR2(30000);
     l_rec          tmp_bic%ROWTYPE;
     split          DBMS_SQL.number_table;
     val          VARCHAR2(4500);
     s          NUMBER;
     e          NUMBER;
BEGIN
     -- Pls look at some sample lines in the file (FI.Dat)
     -- The following lines are to split the line to fields. If the position is changing,
     -- you may need to change the below accordingly.
     split( split.COUNT + 1 ) := 4;
     split( split.COUNT + 1 ) := 15;
     split( split.COUNT + 1 ) := 120;
     split( split.COUNT + 1 ) := 190;
     split( split.COUNT + 1 ) := 225;
     split( split.COUNT + 1 ) := 289;
     split( split.COUNT + 1 ) := 324;
     split( split.COUNT + 1 ) := 359;
     split( split.COUNT + 1 ) := 394;
     split( split.COUNT + 1 ) := 464;
     split( split.COUNT + 1 ) := 569;
     split( split.COUNT + 1 ) := 639;
     split( split.COUNT + 1 ) := 674;
     split( split.COUNT + 1 ) := 779;
     delete tmp_bic;
     commit;
     -- If the file name or Path are different, the following line needs to be edited accordingly
     f := utl_file.fopen('/tmp','FI.dat','r',32767);
     BEGIN
          LOOP
               utl_file.get_line(f,l);
               l_rec := NULL;               
               FOR i IN split.FIRST .. split.LAST
               LOOP
                    IF i = split.FIRST
                    THEN
                         s := 1;
                    ELSE
                         s := split(i-1);
                    END IF;
                    IF i = split.LAST
                    THEN
                         e := 500;
                    ELSE
                         e := split(i)-1;
                    END IF;
                    val := SUBSTR(l,s,(e-s+1));
                    val := LTRIM(RTRIM(val));
                    --dbms_output.put_line(i||' - '||s||' - '||e);                    
                    IF i = 1     THEN     l_rec.col1 := val;                    
                    ELSIF i=2     THEN     l_rec.col2 := val;
                    ELSIF i=3     THEN     l_rec.col3 := val;
                    ELSIF i=4     THEN     l_rec.col4 := val;
                    ELSIF i=5     THEN     l_rec.col5 := val;
                    ELSIF i=6     THEN     l_rec.col6 := val;
                    ELSIF i=7     THEN     l_rec.col7 := val;
                    ELSIF i=8     THEN     l_rec.col8 := val;
                    ELSIF i=9     THEN     l_rec.col9 := val;
                    ELSIF i=10     THEN     l_rec.col10 := val;
                    ELSIF i=11     THEN     l_rec.col11 := val;
                    ELSIF i=12     THEN     l_rec.col12 := val;
                    ELSIF i=13     THEN     l_rec.col13 := val;
                    ELSIF i=14     THEN     l_rec.col14 := val;
                    ELSIF i=15     THEN     l_rec.col15 := val;
                    END IF;
               END LOOP;
               INSERT INTO tmp_bic VALUES l_rec;
               commit;
               --exit;
          END LOOP;
     EXCEPTION
          WHEN NO_DATA_FOUND
          THEN
               NULL;
     END;
     utl_file.fclose(f);
EXCEPTION
     WHEN OTHERS
     THEN
          DBMS_OUTPUT.put_line('Error '||SQLERRM);          
          IF utl_file.is_open(f)
          THEN
               utl_file.fclose(f);
          END IF;
END;
insert into glo_bic_bkp select a.*,sysdate from glo_bic a;
commit;
BEGIN
     for i IN (
          SELECT     rowid rid,
               bic_code
          FROM      glo_bic          
     loop
          for j IN
               select substr(col3,1,35) name,
               substr(col4,1,35) addr1,
               substr(col5,1,35) addr2,
               substr(col8||' '||col9,1,35) addr3
               from tmp_bic
               where col2 = i.bic_code
          loop
               update     glo_bic
               set     name = j.name,
                    address1 = j.addr1,
                    address2 = j.addr2,
                    address3 = j.addr3,
                    mod_no = mod_no+1,                    
               WHERE     rowid = i.rid;
               commit;
          end loop;
     end loop;
END;
insert into glo_bic
     BIC_CODE,
NAME,
     CUSTOMER_NO,
     SK_ARRANGEMENT,     
     ADDRESS1,
     ADDRESS2,
     ADDRESS3,
     UPLOAD_FLAG,
     UPLOAD_UPDATE     
select     col2,
     substr(col3,1,35),
     null,
     'N',
     1,          
     substr(col4,1,35),
     substr(col5,1,35),substr(col8||' '||col9,1,35),
     'N',
     null     
from     tmp_bic
where      not exists (select 1 from glo_bic where bic_code = col2)
commit;
Edited by: tyro_vins on Sep 24, 2009 10:34 PM

Answer 1

The error sounds like one of the fields to too big for the column. Maybe you can look at the data in a text editor.