create or replace procedure UDO_P_EQCONFIG_DATASET_MAKE
/* Формирование сведений о наработках единицы оборудования для прогноза */
(
  NEQCONFIG                 in number,  -- Рег. номер единицы оборудования
  DBEG                      in date,    -- Дата "С"
  DEND                      in date,    -- Дата "По"
  NDATASET_IDENT            out number, -- Идентификатор буфера данных
  NDATASET_CONFIG_IDENT     out number  -- Идентификатор буфера описания данных
)
is
begin
  for C in (select T.COMPANY,
                   T.RN
              from EQCONFIG T
             where T.RN = NEQCONFIG)
  loop
    UDO_PKG_EQUIPDS_DATAPROCESS.DATASET_CONF_SET(NCOMPANY              => C.COMPANY,
                                                 NEQCONFIG             => C.RN,
                                                 DBEG                  => DBEG,
                                                 DEND                  => DEND,
                                                 NLENGTH_GB            => 1,
                                                 NDATASET_IDENT        => NDATASET_IDENT,
                                                 NDATASET_CONFIG_IDENT => NDATASET_CONFIG_IDENT);
  end loop;
end UDO_P_EQCONFIG_DATASET_MAKE;
/
