create or replace procedure test_query_01(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_01('select * from all_users where rownum < ' || to_char(p_rownum),8,1);

	Plpdf.SendDoc(l_blob); -- create content

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

  end;
/