create or replace procedure UDO_P_EQUIPDSCMFL_CREATE
/* Тестовая процедура формирования данных выборки */
(
  NEQUIPDSCM                in number,    -- Рег. номер класса оборудования выборки данных
  NCNT                      in number,    -- Количество формируемых файлов
  NDATASET_IDENT            out number,   -- Идентификатор буфера данных
  NDATASET_CONFIG_IDENT     out number    -- Идентификатор буфера описания данных
)
is
begin
  /* Сформируем идентификаторы */
  NDATASET_IDENT        := GEN_IDENT();
  NDATASET_CONFIG_IDENT := GEN_IDENT();
  /* Добавим новые файлы данных */
  for I in 1 .. NCNT
  loop
    P_FILE_BUFFER_INSERT(NIDENT    => NDATASET_IDENT,
                         CFILENAME => 'data_' || NEQUIPDSCM || '_' || I || '_' || TO_CHAR(sysdate, 'yyyymmddhh24miss') ||
                                      '.xml',
                         CDATA     => 'Описание для файла №' || I,
                         BLOBDATA  => CLOB2BLOB(LCDATA => 'Содержимое для файла №' || I));
  end loop;
  /* Добавим описание файлов данных */
  P_FILE_BUFFER_INSERT(NIDENT    => NDATASET_CONFIG_IDENT,
                       CFILENAME => null,
                       CDATA     => 'Описание структуры выборки',
                       BLOBDATA  => null);
end;
/
