30 lines
1.6 KiB
SQL
30 lines
1.6 KiB
SQL
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 UDO_P_EQUIPDSCMFL_CREATE;
|
||
/
|