Run Report di Oracle Form 6i

declare
v_plist_id paramlist;
pl_name varchar2(50) := 'rep_params';

begin
v_plist_id := get_parameter_list(pl_name);
check_param_list (pl_name); --Check availability of paramlist and
destroy is present

--When the parameter list already exists it needs to be distroyed first
if not id_null(v_plist_id) then
destroy_parameter_list(v_plist_id);
end if;

v_plist_id := create_parameter_list(pl_name);

add_parameter(v_plist_id, 'P_1', text_parameter, :block_name.item);
-- input parameter
add_parameter(v_plist_id, 'PARAMFORM', text_parameter, 'NO'); --
suppress the display of the Reports p-form
add_parameter(v_plist_id, 'DESTYPE', text_parameter,
:control.dest_type); -- set file destination type
add_parameter(v_plist_id, 'DESNAME', text_parameter,
:control.dest_name); -- set file destination name
add_parameter(v_plist_id, 'DESFORMAT', text_parameter,
:control.dest_format); -- set file destination format

-- call reports
run_product(reports, 'reports_file', asynchronous, runtime,
filesystem, v_plist_id, null);
end;

Posted in: