[/SRC]
declare
	pl_id      ParamList;
	pl_name    varchar2(255) := :reports.report; 
	repid      report_object;
	vRepFolder varchar2(2000);
begin
	if substr(vRepFolder,length(vRepFolder)-1,1) = '\' then
    pl_name := vRepFolder || pl_name;	
	else	
    pl_name := vRepFolder || '\' || pl_name;
	end if;
	pl_name := pl_name || '.rdf';
  pl_id := Get_Parameter_List('list_data');
  IF NOT Id_Null(pl_id) THEN
    Destroy_Parameter_List( pl_id );
  END IF;
  pl_id := Create_Parameter_List('list_data');	
  if :reports.report = 'oper_cnt' then
    ADD_PARAMETER(pl_id,'REGION', text_parameter,:GLOBAL.OSK_USER_REG);
  end if;  
  Run_Product(REPORTS,pl_name,SYNCHRONOUS,RUNTIME,FILESYSTEM,pl_id,NULL); 
end;
[SRC PLSQL]

[/SRC]
declare
	vPl            ParamList;
	vRepName       varchar2(255) := :reports.report; 
	vRepFolder     varchar2(2000);
	vUserName      varchar2(200);
	vUserPassword  varchar2(200);
        vConnectString varchar2(200);
        vCommand       varchar2(2000);	
begin
	
	if substr(vRepFolder,length(vRepFolder)-1,1) = '\' then
    vRepName := vRepFolder || vRepName;	
	else	
    vRepName := vRepFolder || '\' || vRepName;
	end if;
	vRepName := vRepName || '.rdf';
	
  vUserName      := lower(Get_Application_Property(USERNAME)); 
  vUserPassword  := lower(Get_Application_Property(PASSWORD)); 
  vConnectString := lower(Get_Application_Property(CONNECT_STRING));
  
  if :reports.report = 'oper_cnt' then
    vCommand       := 'rwrun60 report="' || vRepName || 
                      '" userid=' || vUserName || '/'   || vUserPassword || '@' || vConnectString ||
                      ' DESTYPE=SCREEN oper_cnt=' || :GLOBAL.OSK_USER_REG;   
  else               
    vCommand       := 'rwrun60 report="' || vRepName || 
                      '" userid=' || vUserName || '/'   || vUserPassword || '@' || vConnectString ||
                      ' DESTYPE=SCREEN';   
  end if;
  

  Host(vCommand);                 

end;
[SRC PLSQL]