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

    query_print.query_print_07(
	     'select * from all_users where rownum < ' || to_char(p_rownum),8,
		 3,5,10,
		 50,
		 1);

	Plpdf.SendDoc(l_blob); -- create content

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

  end;
/