create or replace procedure MetadaToXML_test
  is
  l_blob_10 blob;
  l_blob_111 blob;
begin
  select t.blob_file
    into l_blob_10
  from store_blob_tk t
  where t.filename = 'plpdf-toolkit-install-v100.pdf';
  
  dbms_lob.createtemporary(l_blob_111,TRUE);
  
  l_blob_111 := plpdf_toolkit.MetadaToXML(
    p_inputfile => l_blob_10
    );
    
  delete from store_blob_tk where id = 111;
  insert into store_blob_tk 
    (id,blob_file,filename,desctext) 
    values 
    (111,l_blob_111,'MetadaToXML.xml','id:10 MetadaToXML');
  commit;       
end;  
/