ORA-01422 when I load blob file

Question

Hi,
I've this table TAB_BLOB;
IMMOBILE..................FILE_NAME................FILE_FISICO
001236....................my_file.xls.......................(HugeBlob)
127890....................my_file2.xls.......................(HugeBlob)
127890....................my_file3.xls.......................(HugeBlob)
127222....................my_file4.xls.......................(HugeBlob)
127222....................my_file5.xls.......................(HugeBlob)
127222....................my_file6.xls.......................(HugeBlob)
555590....................my_file7.xls.......................(HugeBlob)
555590....................my_file8.xls.......................(HugeBlob)
1777890....................my_file9.xls.......................(HugeBlob)
2222222....................my_file11.xls.......................(HugeBlob)
2222222....................my_file13.xls.......................(HugeBlob)
2222222....................my_file14.xls.......................(HugeBlob)
2222222....................my_file15.xls.......................(HugeBlob)
I created this stored procedure to load blob file:
CREATE OR REPLACE PROCEDURE LOAD_FILE_BLOB
IS
SRC_FILE BFILE;
DST_FILE BLOB;
LGH_FILE BINARY_INTEGER;
FILE_NAME VARCHAR2(30);
ERR_NUM NUMBER;
ERR_MSG VARCHAR2(300);
CURSOR MY_CUR IS
SELECT IMMOBILE, FILE_NAME
FROM TAB_BLOB;
BEGIN
FOR REC_CUR IN MY_CUR LOOP
SRC_FILE := BFILENAME('DIR_NAME', REC_CUR.FILE_NAME);
IF DBMS_LOB.FILEEXISTS(SRC_FILE) = 1 THEN
UPDATE TAB_BLOB
SET FILE_FISICO = EMPTY_BLOB()
WHERE IMMOBILE = REC_CUR.IMMOBILE;
SELECT FILE_FISICO
INTO DST_FILE
FROM TAB_BLOB
WHERE IMMOBILE = REC_CUR.IMMOBILE
FOR UPDATE;
DBMS_LOB.FILEOPEN(SRC_FILE);
LGH_FILE := DBMS_LOB.GETLENGTH(SRC_FILE);
DBMS_LOB.LOADFROMFILE(DST_FILE, SRC_FILE, LGH_FILE);
UPDATE TAB_BLOB
SET FILE_FISICO = DST_FILE
WHERE IMMOBILE = REC_CUR.IMMOBILE;
DBMS_LOB.FILECLOSE(SRC_FILE);
COMMIT;
ELSE
DBMS_OUTPUT.PUT_LINE('File not present on folder');
COMMIT;
END IF;
END LOOP;
EXCEPTION
WHEN OTHERS THEN
ERR_MSG := SUBSTR(SQLERRM, 1,300);
ERR_NUM := SQLCODE;
INSERT INTO CIET_ERRORS (PROC_NAME, ERR_CODE, ERR_MSG)
VALUES('carica_file_blob', ERR_NUM, ERR_MSG);
COMMIT;
END LOAD_FILE_BLOB;
but when I run:
execute LOAD_FILE_BLOB;
I get this error:
ORA-01422: exact fetch returns more than requested number of rows
I think that the error is on:
UPDATE TAB_BLOB
SET FILE_FISICO = DST_FILE
WHERE IMMOBILE = REC_CUR.IMMOBILE;
How can I change my stored procedure to load files blob?
Thanks in advance!

Answer 1

I changed so:
CREATE OR REPLACE PROCEDURE LOAD_FILE_BLOB
IS
SRC_FILE BFILE;
DST_FILE BLOB;
LGH_FILE BINARY_INTEGER;
FILE_NAME VARCHAR2(30);
ERR_NUM NUMBER;
ERR_MSG VARCHAR2(300);
CURSOR MY_CUR IS
SELECT IMMOBILE, FILE_NAME
FROM TAB_BLOB;
BEGIN
FOR REC_CUR IN MY_CUR LOOP
SRC_FILE := BFILENAME('DIR_NAME', REC_CUR.FILE_NAME);
IF DBMS_LOB.FILEEXISTS(SRC_FILE) = 1 THEN
UPDATE TAB_BLOB
SET FILE_FISICO = EMPTY_BLOB()
WHERE IMMOBILE = REC_CUR.IMMOBILE;
SELECT FILE_FISICO
INTO DST_FILE
FROM TAB_BLOB
WHERE IMMOBILE = REC_CUR.IMMOBILE
and FILE_NAME = REC_CUR.FILE_NAME;
FOR UPDATE;
DBMS_LOB.FILEOPEN(SRC_FILE);
LGH_FILE := DBMS_LOB.GETLENGTH(SRC_FILE);
DBMS_LOB.LOADFROMFILE(DST_FILE, SRC_FILE, LGH_FILE);
UPDATE TAB_BLOB
SET FILE_FISICO = DST_FILE
WHERE IMMOBILE = REC_CUR.IMMOBILE
and FILE_NAME = REC_CUR.FILE_NAME;;
DBMS_LOB.FILECLOSE(SRC_FILE);
COMMIT;
ELSE
DBMS_OUTPUT.PUT_LINE('File not present on folder');
COMMIT;
END IF;
END LOOP;
EXCEPTION
WHEN OTHERS THEN
ERR_MSG := SUBSTR(SQLERRM, 1,300);
ERR_NUM := SQLCODE;
INSERT INTO CIET_ERRORS (PROC_NAME, ERR_CODE, ERR_MSG)
VALUES('carica_file_blob', ERR_NUM, ERR_MSG);
COMMIT;
END LOAD_FILE_BLOB;
but in table TAB_BLOB I have this situation:
IMMOBILE..................FILE_NAME................FILE_FISICO
001236....................my_file.xls.......................(HugeBlob) --load correctly
127890....................my_file2.xls.......................(HugeBlob)-- not loaded
127890....................my_file3.xls.......................(HugeBlob) --load correctly
127222....................my_file4.xls.......................(HugeBlob)-- not loaded
127222....................my_file5.xls.......................(HugeBlob)-- not loaded
127222....................my_file6.xls.......................(HugeBlob) --load correctly
555590....................my_file7.xls.......................(HugeBlob)-- not loaded
555590....................my_file8.xls.......................(HugeBlob) --load correctly
1777890....................my_file9.xls.......................(HugeBlob) --load correctly
2222222....................my_file11.xls.......................(HugeBlob)-- not loaded
2222222....................my_file13.xls.......................(HugeBlob)-- not loaded
2222222....................my_file14.xls.......................(HugeBlob)-- not loaded
2222222....................my_file15.xls.......................(HugeBlob) --load correctly
Why I load just one file by IMMOBILE?