PROCEDURE rep_pass 
 IS
   repid        report_object;
   v_rep        VARCHAR2 (100);
   rep_status   VARCHAR2 (20);
BEGIN
   repid := FIND_REPORT_OBJECT ('rep_serv');
   SET_REPORT_OBJECT_PROPERTY (repid, report_desformat, 'htmlcss');
   SET_REPORT_OBJECT_PROPERTY (repid, report_server, 'repserver10g');
   v_rep := RUN_REPORT_OBJECT (repid);
   rep_status := REPORT_OBJECT_STATUS (v_rep);

   WHILE rep_status IN ('RUNNING', 'OPENING_REPORT', 'ENQUEUED')
   LOOP
      rep_status := REPORT_OBJECT_STATUS (v_rep);
   END LOOP;

   IF rep_status = 'FINISHED'
   THEN
      web.show_document (   'http://localhost:8889/reports/rwservlet/'
                         || 'getjobid'
                         || SUBSTR (v_rep, INSTR (v_rep, '_', -1) + 1)
                         || '?'
                         || 'server=repserver10g',
                         '_blank'
                        );
   ELSE
      MESSAGE ('Error when running report');
   END IF;
END;

DECLARE
	pl_id ParamList;
BEGIN
	pl_id := Create_Parameter_List('pl_id');
	Add_Parameter(pl_id, 'P_1', TEXT_PARAMETER, :BLOCK2.txt_pass);
	rep_serv;   --- call the procedure(report)
	Destroy_Parameter_List(pl_id); 
END;

and( DEPT.DEPTNO =:P_1)