declare
v_rep varchar2(1000):='a';
v_rep_status varchar2(1000):='a';
v_url varchar2(1000):='';
rep_status VARCHAR2(100);
repid REPORT_OBJECT;

thelist paramlist;

begin

thelist := get_parameter_list('rep_paramlist');
if not id_null(thelist) then
destroy_parameter_list(thelist);
end if;



thelist := CREATE_PARAMETER_LIST('rep_paramlist');

ADD_PARAMETER(thelist, 'PARAMFORM',TEXT_PARAMETER,'NO'); ADD_PARAMETER(thelist, 'P_BASE',TEXT_PARAMETER,'390898');
ADD_PARAMETER(thelist, 'P_BRANCH',text_parameter,'4010');
ADD_PARAMETER(thelist,
'P_from_dt',TEXT_PARAMETER,TO_CHAR(sysdate,'dd-mon-yyyy'));
ADD_PARAMETER(thelist, 'P_SUFFIX',text_parameter,'001'); ADD_PARAMETER(thelist, 'P_to_dt',TEXT_PARAMETER,TO_CHAR(sysdate,'dd-mon-yyyy'));
ADD_PARAMETER(thelist, 'P_USERID',TEXT_PARAMETER,'XDK');




repid := find_report_object('KAP_STMT');


SET_REPORT_OBJECT_PROPERTY(repid,REPORT_DESTYPE,FILE);
SET_REPORT_OBJECT_PROPERTY(repid,REPORT_DESNAME,'/orainst/orahome2/midtier/tools/web/test_area/dinesh8.PDF');
SET_REPORT_OBJECT_PROPERTY(repid,REPORT_DESFORMAT,'PDF');
SET_REPORT_OBJECT_PROPERTY(repid,REPORT_SERVER,'rep_orapp-uat_ASR2midtier');

v_rep:=run_report_object(repid,thelist);

   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
    	null;

      show_message('Report Executed successfully');
    ELSE
      show_message('Error while running report');
    END IF;

end;