PROCEDURE invoice IS
repid REPORT_OBJECT;
v_rep varchar2(1000);
rep_status varchar2(20);
PL_ID PARAMLIST;
pr_nm varchar2(20):=' PNM';
v_rptserver varchar2(10):=' oliur';----1
--rwserver server=oliur EXECUTE IT ON RUN
v_host varchar2(20):=' localhost';---2
BEGIN
PL_ID:=GET_PARA METER_LIST(pr_n m);
IF ID_NULL(PL_ID)= FALSE THEN
DESTROY_PARAMET ER_LIST(PL_ID);
PL_ID:=CREATE_P ARAMETER_LIST(p r_nm);
IF ID_NULL(PL_ID) THEN
MESSAGE('ERROR CREATING PARAMETER LIST '||pr_nm);
RAISE FORM_TRIGGER_FA ILURE;
END IF;
ELSE
PL_ID:=CREATE_P ARAMETER_LIST(p r_nm);
end if;
--add parameter with separate statement for each parameter
--ADD_PARAMETER(P L_ID, 'P_BDT',TEXT_PA RAMETER,:BAZARE XP.BAZARDT); ----3
-- ADD_PARAMETER(P L_ID, 'PSAL',TEXT_PAR AMETER,:SALARY) ;
repid := find_report_obj ect('REPORT77') ;---4
SET_REPORT_OBJE CT_PROPERTY(rep id,REPORT_EXECU TION_MODE,BATCH );
SET_REPORT_OBJE CT_PROPERTY(rep id,REPORT_COMM_ MODE,SYNCHRONOU S);
SET_REPORT_OBJE CT_PROPERTY(rep id,REPORT_DESTY PE,CACHE);
SET_REPORT_OBJE CT_PROPERTY(rep id,REPORT_DESFO RMAT,'PDF'); --pdf/html
SET_REPORT_OBJE CT_PROPERTY(rep id,REPORT_SERVE R,v_rptserver);
v_rep := RUN_REPORT_OBJE CT(repid,PL_ID) ;
rep_status := REPORT_OBJECT_S TATUS(v_rep);
IF rep_status = 'FINISHED' THEN
/*Display report in the browser */
WEB.SHOW_DOCUME NT('http://'||v_host||':88 89/reports/rwservlet/getjobid' ||
substr(v_rep,in str(v_rep,'_',-1)+1)||'?'||'se rver='||v_rptse rver,'_blank');
ELSE
MESSAGE('ERROR WHEN RUNNING REPORT');
END IF;
END;
I am submitted this code but reports not run.ORACLE 10g
repid REPORT_OBJECT;
v_rep varchar2(1000);
rep_status varchar2(20);
PL_ID PARAMLIST;
pr_nm varchar2(20):=' PNM';
v_rptserver varchar2(10):=' oliur';----1
--rwserver server=oliur EXECUTE IT ON RUN
v_host varchar2(20):=' localhost';---2
BEGIN
PL_ID:=GET_PARA METER_LIST(pr_n m);
IF ID_NULL(PL_ID)= FALSE THEN
DESTROY_PARAMET ER_LIST(PL_ID);
PL_ID:=CREATE_P ARAMETER_LIST(p r_nm);
IF ID_NULL(PL_ID) THEN
MESSAGE('ERROR CREATING PARAMETER LIST '||pr_nm);
RAISE FORM_TRIGGER_FA ILURE;
END IF;
ELSE
PL_ID:=CREATE_P ARAMETER_LIST(p r_nm);
end if;
--add parameter with separate statement for each parameter
--ADD_PARAMETER(P L_ID, 'P_BDT',TEXT_PA RAMETER,:BAZARE XP.BAZARDT); ----3
-- ADD_PARAMETER(P L_ID, 'PSAL',TEXT_PAR AMETER,:SALARY) ;
repid := find_report_obj ect('REPORT77') ;---4
SET_REPORT_OBJE CT_PROPERTY(rep id,REPORT_EXECU TION_MODE,BATCH );
SET_REPORT_OBJE CT_PROPERTY(rep id,REPORT_COMM_ MODE,SYNCHRONOU S);
SET_REPORT_OBJE CT_PROPERTY(rep id,REPORT_DESTY PE,CACHE);
SET_REPORT_OBJE CT_PROPERTY(rep id,REPORT_DESFO RMAT,'PDF'); --pdf/html
SET_REPORT_OBJE CT_PROPERTY(rep id,REPORT_SERVE R,v_rptserver);
v_rep := RUN_REPORT_OBJE CT(repid,PL_ID) ;
rep_status := REPORT_OBJECT_S TATUS(v_rep);
IF rep_status = 'FINISHED' THEN
/*Display report in the browser */
WEB.SHOW_DOCUME NT('http://'||v_host||':88 89/reports/rwservlet/getjobid' ||
substr(v_rep,in str(v_rep,'_',-1)+1)||'?'||'se rver='||v_rptse rver,'_blank');
ELSE
MESSAGE('ERROR WHEN RUNNING REPORT');
END IF;
END;
I am submitted this code but reports not run.ORACLE 10g