Procedure running in XE not in version 10.1.0.2.0

Question

create or replace PROCEDURE load_file1 ( p_id number, p_photo_name in varchar2)
IS
src_file BFILE;
dst_file BLOB;
lgh_file BINARY_INTEGER;
BEGIN
src_file := bfilename('PHOTO_DIR', p_photo_name);
INSERT INTO temp_photo (id, photo_name, photo)
VALUES (p_id , p_photo_name ,EMPTY_BLOB()) RETURNING photo INTO dst_file;
SELECT photo INTO dst_file FROM temp_photo WHERE id = p_id AND photo_name = p_photo_name FOR UPDATE;
dbms_lob.fileopen(src_file, dbms_lob.file_readonly);
lgh_file := dbms_lob.getlength(src_file);
dbms_lob.loadfromfile(dst_file, src_file, lgh_file);
UPDATE temp_photo SET photo = dst_file WHERE id = p_id AND photo_name = p_photo_name;
dbms_lob.fileclose(src_file);
END load_file;
this is the procedure i used to insert into database..the error it shows it "procedure created with compilation errors"..my version is 10.1.0.2.0...pls help me retrive tis prob..(it worked out in express edition not in tis version)and kindly tel me how to execute tis procedure also..

Answer 1

Hi,
look this,
PROCEDURE load_file1
   and
END load_file;try this code,
CREATE OR REPLACE PROCEDURE load_file1(p_id         number,
                                       p_photo_name in varchar2) IS
  src_file BFILE;
  dst_file BLOB;
  lgh_file BINARY_INTEGER;
BEGIN
  src_file := bfilename('PHOTO_DIR', p_photo_name);
  INSERT INTO temp_photo
    (id, photo_name, photo)
  VALUES
    (p_id, p_photo_name, EMPTY_BLOB())
  RETURNING photo;
  SELECT photo
    INTO dst_file
    FROM temp_photo
   WHERE id = p_id
     AND photo_name = p_photo_name
     FOR UPDATE;
  dbms_lob.fileopen(src_file, dbms_lob.file_readonly);
  lgh_file := dbms_lob.getlength(src_file);
  dbms_lob.loadfromfile(dst_file, src_file, lgh_file);
  UPDATE temp_photo
     SET photo = dst_file
   WHERE id = p_id
     AND photo_name = p_photo_name;
  dbms_lob.fileclose(src_file);
END load_file1;regards,
Christian Balz