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

	l_colsize(1) := 50;
	l_colsize(2) := 20;
	l_colsize(3) := 30;

    query_print.query_print_02('select * from all_users where rownum < ' || to_char(p_rownum),8,l_colsize,1);

	Plpdf.SendDoc(l_blob); -- create content

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

  end;
/