create or replace procedure MetadataFromXML_test
  is
  l_blob_10 blob;
  l_blob_xml blob;
  l_blob_109 blob;
  l_xml sys.xmltype;
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_109,TRUE);
  dbms_lob.createtemporary(l_blob_xml,TRUE);
  
  l_xml := sys.xmltype.createXML(
'<pdf-metadata>
<title>PLPDF Toolkit Metadata title</title>
<author>PLPDF Toolkit author</author>
<subject>PLPDF Toolkit subject</subject>
<creator>PLPDF Toolkit creator</creator>
<keywords>Oracle PDF kw</keywords>
<producer>PLPDF Toolkit producer</producer>
<createtime>20080903183019</createtime>
<modificationdate>20080903183019</modificationdate>
</pdf-metadata>'
    );
  
  l_blob_xml := l_xml.getBlobVal(nls_charset_id('UTF8'));
  
  l_blob_109 := plpdf_toolkit.MetadataFromXML(
    p_inputfile => l_blob_10,
    p_xmlfile => l_blob_xml
    );

  delete from store_blob_tk where id = 109;
  insert into store_blob_tk 
    (id,blob_file,filename,desctext) 
    values 
    (109,l_blob_109,'MetadataFromXML.pdf','id:10 MetadataFromXML');
  commit;  
end; 
/