procedure FileUpload (PIDM           in varchar2,
                      UserID         in varchar2,
                      SequenceNumber in varchar2,
                      FileAction     in varchar2,
                      FileMime       in varchar2 default null,
                      FileName       in varchar2 default null,
                      FileUpload     in clob     default null) is

  DataBlob     blob;

  begin
     .
     .
     .
     DataBlob := Base64ToBlob(FileUpload);

     insert into file_upload
            (file_blob)
       
            values
              (DataBlob);
     
     commit;

  end;


function Base64ToBlob (Base64Data in clob) return blob is
    
  DataAmount number := 7700;
  DataOffset number := 1;
  Temp       varchar2(32767);
  DataRaw    raw(32767);
  DataBlob   blob;
  
  
  begin
    begin
      dbms_lob.createtemporary(DataBlob, false, dbms_lob.call);
      loop
        dbms_lob.read(Base64Data, DataAmount, DataOffset, Temp);
        DataOffset := DataOffset + DataAmount;
        DataRaw := utl_encode.base64_decode(utl_raw.cast_to_raw(Temp));
        dbms_lob.append(DataBlob, to_blob(DataRaw));
      end loop;
    
    exception
      when no_data_found 
        then
          null;
    
    end;

    return DataBlob;
      
  end;