Dynamic action - execute pl/sql code

Question

Hi All and thanks fro any assistance.
I am trying to Execute the following pl/sql Code in a dynamic action however get the following error - AJAX call returned server error ORA-01403: no data found for Execute PL/SQL code.
I have all page items iin the page items to submit section.
declare
  l_file_comments  IMM_DOCUMENTS.FILE_COMMENTS%type;
  l_file           IMM_DOCUMENTS.FILE_BLOB%type;
  l_filename       IMM_DOCUMENTS.FILENAME%type;
  l_mimetype       IMM_DOCUMENTS.FILE_MIMETYPE%type;
  l_charset        IMM_DOCUMENTS.FILE_CHARSET%type;
begin
    select f.blob_content,
           f.filename,
           f.mime_type,
           nvl(f.file_charset, f.dad_charset)
      into l_file,
           l_filename,
           l_mimetype,
           l_charset
      from wwv_flow_files f
     where f.name = :P80_FILE;
  if l_file is not null then
    insert into IMM_DOCUMENTS
      sub_id,
      document_type_id,
      filename,
      file_blob,
      file_comments,
      file_mimetype,
      file_charset
    values
      :P80_SUB_ID,
      :P80_DOCUMENT_TYPE_ID,
      l_filename,
      l_file,
      :P80_FILE_DESCRIPTION,
      l_mimetype,
      l_charset
    delete from wwv_flow_files where name = :P80_FILE;
  end if;
end;

Answer 1

Hi Marie,
as Matthew says, the only part of the code that could result in that error is the select into statement. This is because, in pl/sql, a select into statement is expected to return one row only. If it returns no rows it raises a no data found exception and if it returns more than one row it raises a too many rows error.
If it is acceptable that this query may return no rows, then you have to handle this situation. The two methods that you can use would be firstly to use a named cursor and fetch a row from this, if there is no data then it does not raise an exception. The other method would be to put in an exception handler around the select statement.
EG - prefered, mainly because I think it is better to code in a way that minimises exception handling.
declare
   l_file_comments  IMM_DOCUMENTS.FILE_COMMENTS%type;
   l_file           IMM_DOCUMENTS.FILE_BLOB%type;
   l_filename       IMM_DOCUMENTS.FILENAME%type;
   l_mimetype       IMM_DOCUMENTS.FILE_MIMETYPE%type;
   l_charset        IMM_DOCUMENTS.FILE_CHARSET%type;
   CURSOR file_cur IS
     select f.blob_content,
            f.filename,
            f.mime_type,
            nvl(f.file_charset, f.dad_charset)
       from wwv_flow_files f
      where f.name = :P80_FILE;
begin
   OPEN file_cur;
   FETCH file_cur INTO
            l_file,
            l_filename,
            l_mimetype,
            l_charset;
   CLOSE file_cur;
   if l_file is not null then
     insert into IMM_DOCUMENTS
       sub_id,
       document_type_id,
       filename,
       file_blob,
       file_comments,
       file_mimetype,
       file_charset
     values
       :P80_SUB_ID,
       :P80_DOCUMENT_TYPE_ID,
       l_filename,
       l_file,
       :P80_FILE_DESCRIPTION,
       l_mimetype,
       l_charset
     delete from wwv_flow_files where name = :P80_FILE;
   end if;
end;
OR
declare
  l_file_comments  IMM_DOCUMENTS.FILE_COMMENTS%type;
  l_file           IMM_DOCUMENTS.FILE_BLOB%type;
  l_filename       IMM_DOCUMENTS.FILENAME%type;
  l_mimetype       IMM_DOCUMENTS.FILE_MIMETYPE%type;
  l_charset        IMM_DOCUMENTS.FILE_CHARSET%type;
begin
  BEGIN
    select f.blob_content,
           f.filename,
           f.mime_type,
           nvl(f.file_charset, f.dad_charset)
      into l_file,
           l_filename,
           l_mimetype,
           l_charset
      from wwv_flow_files f
     where f.name = :P80_FILE;
  EXCEPTION
    WHEN no_data_found THEN
      NULL;
  END;
  if l_file is not null then
    insert into IMM_DOCUMENTS
      sub_id,
      document_type_id,
      filename,
      file_blob,
      file_comments,
      file_mimetype,
      file_charset
    values
      :P80_SUB_ID,
      :P80_DOCUMENT_TYPE_ID,
      l_filename,
      l_file,
      :P80_FILE_DESCRIPTION,
      l_mimetype,
      l_charset
    delete from wwv_flow_files where name = :P80_FILE;
  end if;
end;Note : code is untested.
Regards
Andre