create or replace procedure MetadataFromPars_test
  is
  l_blob_10 blob;
  l_blob_110 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_110,TRUE);
  
  l_blob_110 := plpdf_toolkit.MetadataFromPars(
    p_inputfile => l_blob_10,
    p_title => 'PLPDF Toolkit Metadata title par',
    p_author => 'PLPDF Toolkit author par',
    p_subject => 'PLPDF Toolkit subject par',
    p_creator => 'PLPDF Toolkit creator par',
    p_keywords => 'Oracle PDF kw par',
    p_producer => 'PLPDF Toolkit producer par',
    p_createtime => to_date('20080101','YYYYMMDD'),
    p_modificationdate => sysdate
    );

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