25 lines
1.1 KiB
SQL
25 lines
1.1 KiB
SQL
create or replace procedure UDO_P_EQUIPDSCMFL_CREATE
|
||
/* Тестовая процедура формирования данных выборки */
|
||
(
|
||
NEQUIPDSCM in number, -- Рег. номер класса оборудования выборки данных
|
||
NCNT in number -- Количество формируемых файлов
|
||
)
|
||
is
|
||
NTMP PKG_STD.TREF; -- Рег. номер добавленного файла данных
|
||
begin
|
||
/* Зачистим старые файлы */
|
||
for C in (select T.RN from UDO_T_EQUIPDSCMFL T where T.PRN = NEQUIPDSCM)
|
||
loop
|
||
UDO_PKG_EQUIPDS_BASE.CMFL_DEL(NRN => C.RN);
|
||
end loop;
|
||
/* Добавим новые файлы */
|
||
for I in 1 .. NCNT
|
||
loop
|
||
UDO_PKG_EQUIPDS_BASE.CMFL_INS(NPRN => NEQUIPDSCM,
|
||
SFILE_NAME => 'data_' || NEQUIPDSCM || '_' || I || '.xml',
|
||
SDESCR => 'Описание для файла №' || I,
|
||
NRN => NTMP);
|
||
end loop;
|
||
end;
|
||
/
|