create or replace procedure test_query_05 is
  l_blob BLOB;
  begin
    Plpdf.init;
	Plpdf.NewPage;
	Plpdf.SetPrintFont('Arial','',8);
    Plpdf.SetColor4Filling(200,220,255);

    query_print.query_print_05('select x.* from v$database x',8,
	                     'Porperty',25,
						 'Value',25,
						 3,5,1);

	Plpdf.SendDoc(l_blob); -- create content

	-- store
	INSERT INTO STORE_BLOB (blob_file, created_date) VALUES (l_blob, SYSDATE);
	COMMIT;

  end;
/