How to call report from Oracle form 10g?

[rahul gegane]

Hi Exprts


I have a button in form, has been created from Oracle form 10g but i don't know how to call the report has supported by Oracle 10g from that button. Please help me call a report from that button.
Thanks very much

[amitpatel66]

Check if this helps:

PROCEDURE PRINT_REP_WEB IS
	RO_Report_ID          REPORT_OBJECT;
	Str_Report_Server_Job VARCHAR2(100);
	Str_Job_ID            VARCHAR2(100);
	Str_URL               VARCHAR2(100);
	PL_ID                 PARAMLIST ;
BEGIN
	PL_ID := GET_PARAMETER_LIST('TEMPDATA');
	IF NOT ID_NULL(PL_ID) THEN
		DESTROY_PARAMETER_LIST(PL_ID);
	END IF;
 	PL_ID := CREATE_PARAMETER_LIST('TEMPDATA');
	RO_Report_ID := FIND_REPORT_OBJECT('REPORT_OBJ');
	ADD_PARAMETER(PL_ID, '<user_parameter_name>',	TEXT_PARAMETER, '<parameter_value>');
 
	SET_REPORT_OBJECT_PROPERTY(RO_Report_ID, REPORT_FILENAME, '<report_file_path>');
	SET_REPORT_OBJECT_PROPERTY(RO_Report_ID, REPORT_COMM_MODE, SYNCHRONOUS);
	SET_REPORT_OBJECT_PROPERTY(RO_Report_ID, REPORT_EXECUTION_MODE, BATCH);
	
	SET_REPORT_OBJECT_PROPERTY(RO_Report_ID, REPORT_DESTYPE, FILE);
	SET_REPORT_OBJECT_PROPERTY(RO_Report_ID, REPORT_DESFORMAT, 'PDF');
	SET_REPORT_OBJECT_PROPERTY(RO_Report_ID, REPORT_SERVER, '<report_server_name>');
	
	Str_Report_Server_Job := RUN_REPORT_OBJECT(RO_Report_ID, PL_ID);
	Str_Job_ID := SUBSTR(Str_Report_Server_Job, LENGTH('<report_server_name>') + 2, LENGTH(Str_Report_Server_Job));
	Str_URL 	 := '/reports/rwservlet/getjobid' || Str_Job_ID || '?server=<report_server_name>';
	WEB.SHOW_DOCUMENT(Str_URL, '_SELF');
	DESTROY_PARAMETER_LIST(PL_ID);
END;