27 lines
1.4 KiB
SQL
27 lines
1.4 KiB
SQL
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;
|
||
/
|