procedure prt_specs(p_rg number, 
                    p_nb_copies number,
                    p_nm_rep  varchar2, 
                    p_nm_file varchar2,
                    p_ORIENTATION varchar2) is
  pr ParamList; 

  nm_rep  varchar2( 128 );

begin

  pr := Get_Parameter_List('spc_data'); 
  IF NOT Id_Null(pr) THEN 
    Destroy_Parameter_List( pr ); 
  END IF; 
  --
  -- Подготовка имен файлов
  --
    
  nm_file := p_nm_file;   if :prt.t_unit_prt = 'PRINTER' then
     nm_file := '';

  nm_rep := |p_nm_rep;-- задать полный путь к файлу *.rpt

  pr := Create_Parameter_List('spc_data'); 
  
  Add_Parameter(pr,'P_RG',TEXT_PARAMETER,to_char(p_rg)); ---здесь p_rg -- это поле (айтем) из формы ....точнее параметр процедуры нашей
-- а 'P_RG' - это ИМЯ ПАРАМЕТРА  что объявлен в Репорте



  Add_Parameter(pr,'DESTYPE',    TEXT_PARAMETER,:prt.t_unit_prt);   
  Add_Parameter(pr,'DESFORMAT',  TEXT_PARAMETER,:prt.t_file);  
  Add_Parameter(pr,'DESNAME',    TEXT_PARAMETER,nm_file);  
  Add_Parameter(pr,'COPIES',     TEXT_PARAMETER,to_char(p_nb_copies));  
  Add_Parameter(pr,'PARAMFORM',  TEXT_PARAMETER,'NO');  
  
  
  Add_Parameter(pr,'ORIENTATION',TEXT_PARAMETER,p_ORIENTATION);  
  --Add_Parameter(pr,'ORIENTATION',TEXT_PARAMETER,'LANDSCAPE');  
  Add_Parameter(pr,'BACKGROUND',TEXT_PARAMETER,'NO');  
--
  Run_Product(REPORTS, nm_rep, SYNCHRONOUS, RUNTIME, FILESYSTEM, pr, NULL); 
--  
  Destroy_Parameter_List( pr ); 

end;