DECLARE
pl_id paramlist;
filename varchar2(200);
BEGIN
pl_id := get_parameter_list('pl_name');
if not id_null(pl_id) then
destroy_parameter_list(pl_id);
end if;
pl_id := create_parameter_list('pl_name');
add_parameter(pl_id,'wcaller_form',text_parameter,:EMP_NO2);
add_parameter(pl_id,'paramform',text_parameter,'no');
ADD_PARAMETER(pl_id,'DESTYPE',TEXT_PARAMETER,'FILE');
ADD_PARAMETER(pl_id,'DESFORMAT',TEXT_PARAMETER,'RTF');
--ADD_PARAMETER(pl_id,'DESNAME',TEXT_PARAMETER,return_path||'\REPORT_NAME.RTF'||i.emp);
filename := return_path||'called_reprot.rep';
run_product(REPORTS,filename,SYNCHRONOUS,RUNTIME,FILESYSTEM,pl_id,NULL);
message(' emp no = '||:EMP_NO2);
--
END;
pl_id paramlist;
filename varchar2(200);
BEGIN
pl_id := get_parameter_list('pl_name');
if not id_null(pl_id) then
destroy_parameter_list(pl_id);
end if;
pl_id := create_parameter_list('pl_name');
add_parameter(pl_id,'wcaller_form',text_parameter,:EMP_NO2);
add_parameter(pl_id,'paramform',text_parameter,'no');
ADD_PARAMETER(pl_id,'DESTYPE',TEXT_PARAMETER,'FILE');
ADD_PARAMETER(pl_id,'DESFORMAT',TEXT_PARAMETER,'RTF');
--ADD_PARAMETER(pl_id,'DESNAME',TEXT_PARAMETER,return_path||'\REPORT_NAME.RTF'||i.emp);
filename := return_path||'called_reprot.rep';
run_product(REPORTS,filename,SYNCHRONOUS,RUNTIME,FILESYSTEM,pl_id,NULL);
message(' emp no = '||:EMP_NO2);
--
END;
No comments:
Post a Comment