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;
/