CITKParus/P8-ExchangeService
7
0
Fork 1
Code Issues Pull Requests Projects Releases Wiki Activity

Контроль наличия записи при считывании курсора по RN

Browse Source
This commit is contained in:
Mikhail Chechnev 2018-12-03 02:00:48 +03:00
parent e33e0ae2dc
commit f683f44bca
1 changed files with 44 additions and 21 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

41
db/PKG_EXS.pck
View File

@ -238,6 +238,7 @@ create or replace package PKG_EXS as
/* Получение сервиса */ /* Получение сервиса */
procedure SERVICE_GET procedure SERVICE_GET
( (
NFLAG_SMART in number, -- Ïðèçíàê âûäà÷è ñîîáùåíèÿ îá îøèáêå
NEXSSERVICE in number, -- Рег. номер записи сервиса NEXSSERVICE in number, -- Рег. номер записи сервиса
RCSERVICE out sys_refcursor -- Курсор со списком сервисов RCSERVICE out sys_refcursor -- Курсор со списком сервисов
); );
@ -258,6 +259,7 @@ create or replace package PKG_EXS as
/* Получение функции сервиса */ /* Получение функции сервиса */
procedure SERVICEFN_GET procedure SERVICEFN_GET
( (
NFLAG_SMART in number, -- Ïðèçíàê âûäà÷è ñîîáùåíèÿ îá îøèáêå
NEXSSERVICEFN in number, -- Рег. номер функции сервиса NEXSSERVICEFN in number, -- Рег. номер функции сервиса
RCSERVICEFN out sys_refcursor -- Курсор со списком функций сервиса RCSERVICEFN out sys_refcursor -- Курсор со списком функций сервиса
); );
@ -288,6 +290,7 @@ create or replace package PKG_EXS as
/* Считывание записи журнала работы */ /* Считывание записи журнала работы */
procedure LOG_GET procedure LOG_GET
( (
NFLAG_SMART in number, -- Ïðèçíàê âûäà÷è ñîîáùåíèÿ îá îøèáêå
NEXSLOG in number, -- Рег. номер записи журнала NEXSLOG in number, -- Рег. номер записи журнала
RCLOG out sys_refcursor -- Курсор со списком записей журнала работы RCLOG out sys_refcursor -- Курсор со списком записей журнала работы
); );
@ -313,6 +316,7 @@ create or replace package PKG_EXS as
/* Считывание сообщения из очереди */ /* Считывание сообщения из очереди */
procedure QUEUE_GET procedure QUEUE_GET
( (
NFLAG_SMART in number, -- Ïðèçíàê âûäà÷è ñîîáùåíèÿ îá îøèáêå
NEXSQUEUE in number, -- Рег. номер записи очереди NEXSQUEUE in number, -- Рег. номер записи очереди
RCQUEUE out sys_refcursor -- Курсор с позицией очереди RCQUEUE out sys_refcursor -- Курсор с позицией очереди
); );
@ -973,17 +977,21 @@ create or replace package body PKG_EXS as
/* Получение сервиса */ /* Получение сервиса */
procedure SERVICE_GET procedure SERVICE_GET
( (
NFLAG_SMART in number, -- Ïðèçíàê âûäà÷è ñîîáùåíèÿ îá îøèáêå
NEXSSERVICE in number, -- Рег. номер записи сервиса NEXSSERVICE in number, -- Рег. номер записи сервиса
RCSERVICE out sys_refcursor -- Курсор со списком сервисов RCSERVICE out sys_refcursor -- Курсор со списком сервисов
) )
is is
REXSSERVICE EXSSERVICE%rowtype; -- Çàïèñü ñåðâèñà
NIDENT PKG_STD.TREF; -- Идентификатор буфера NIDENT PKG_STD.TREF; -- Идентификатор буфера
NTMP PKG_STD.TREF; -- Рег. номер очередной записи буфера NTMP PKG_STD.TREF; -- Рег. номер очередной записи буфера
begin begin
/* Ñ÷èòàåì çàïèñü ñåðâèñà */
REXSSERVICE := GET_EXSSERVICE_ID(NFLAG_SMART => NFLAG_SMART, NRN => NEXSSERVICE);
/* Сформируем идентификатор буфера */ /* Сформируем идентификатор буфера */
NIDENT := GEN_IDENT(); NIDENT := GEN_IDENT();
/* Положим рег. номер сервиса в буфер */ /* Положим рег. номер сервиса в буфер */
RNLIST_BASE_INSERT(NIDENT => NIDENT, NDOCUMENT => NEXSSERVICE, NRN => NTMP); RNLIST_BASE_INSERT(NIDENT => NIDENT, NDOCUMENT => NVL(REXSSERVICE.RN, NEXSSERVICE), NRN => NTMP);
/* Забираем сервис в виде курсора */ /* Забираем сервис в виде курсора */
SERVICE_GET(NIDENT => NIDENT, RCSERVICE => RCSERVICE); SERVICE_GET(NIDENT => NIDENT, RCSERVICE => RCSERVICE);
/* Чистим буфер */ /* Чистим буфер */
@ -1066,17 +1074,21 @@ create or replace package body PKG_EXS as
/* Получение функции сервиса */ /* Получение функции сервиса */
procedure SERVICEFN_GET procedure SERVICEFN_GET
( (
NFLAG_SMART in number, -- Ïðèçíàê âûäà÷è ñîîáùåíèÿ îá îøèáêå
NEXSSERVICEFN in number, -- Рег. номер функции сервиса NEXSSERVICEFN in number, -- Рег. номер функции сервиса
RCSERVICEFN out sys_refcursor -- Курсор со списком функций сервиса RCSERVICEFN out sys_refcursor -- Курсор со списком функций сервиса
) )
is is
REXSSERVICEFN EXSSERVICEFN%rowtype; -- Çàïèñü ôóíêöèè ñåðâèñà
NIDENT PKG_STD.TREF; -- Идентификатор буфера NIDENT PKG_STD.TREF; -- Идентификатор буфера
NTMP PKG_STD.TREF; -- Рег. номер очередной записи буфера NTMP PKG_STD.TREF; -- Рег. номер очередной записи буфера
begin begin
/* Ñ÷èòàåì çàïèñü ôóíêöèè ñåðâèñà */
REXSSERVICEFN := GET_EXSSERVICEFN_ID(NFLAG_SMART => NFLAG_SMART, NRN => NEXSSERVICEFN);
/* Сформируем идентификатор буфера */ /* Сформируем идентификатор буфера */
NIDENT := GEN_IDENT(); NIDENT := GEN_IDENT();
/* Положим рег. номер функции сервиса в буфер */ /* Положим рег. номер функции сервиса в буфер */
RNLIST_BASE_INSERT(NIDENT => NIDENT, NDOCUMENT => NEXSSERVICEFN, NRN => NTMP); RNLIST_BASE_INSERT(NIDENT => NIDENT, NDOCUMENT => NVL(REXSSERVICEFN.RN, NEXSSERVICEFN), NRN => NTMP);
/* Забираем сервис в виде курсора */ /* Забираем сервис в виде курсора */
SERVICEFN_GET(NIDENT => NIDENT, RCSERVICEFN => RCSERVICEFN); SERVICEFN_GET(NIDENT => NIDENT, RCSERVICEFN => RCSERVICEFN);
/* Чистим буфер */ /* Чистим буфер */
@ -1176,17 +1188,21 @@ create or replace package body PKG_EXS as
/* Считывание записи журнала работы */ /* Считывание записи журнала работы */
procedure LOG_GET procedure LOG_GET
( (
NFLAG_SMART in number, -- Ïðèçíàê âûäà÷è ñîîáùåíèÿ îá îøèáêå
NEXSLOG in number, -- Рег. номер записи журнала NEXSLOG in number, -- Рег. номер записи журнала
RCLOG out sys_refcursor -- Курсор со списком записей журнала работы RCLOG out sys_refcursor -- Курсор со списком записей журнала работы
) )
is is
REXSLOG EXSLOG%rowtype; -- Çàïèñü æóðíàëà ðàáîòû
NIDENT PKG_STD.TREF; -- Идентификатор буфера NIDENT PKG_STD.TREF; -- Идентификатор буфера
NTMP PKG_STD.TREF; -- Рег. номер очередной записи буфера NTMP PKG_STD.TREF; -- Рег. номер очередной записи буфера
begin begin
/* Ñ÷èòàåì çàïèñü æóðíàëà ðàáîòû */
REXSLOG := GET_EXSLOG_ID(NFLAG_SMART => NFLAG_SMART, NRN => NEXSLOG);
/* Сформируем идентификатор буфера */ /* Сформируем идентификатор буфера */
NIDENT := GEN_IDENT(); NIDENT := GEN_IDENT();
/* Положим рег. номер записи журнала работы в буфер */ /* Положим рег. номер записи журнала работы в буфер */
RNLIST_BASE_INSERT(NIDENT => NIDENT, NDOCUMENT => NEXSLOG, NRN => NTMP); RNLIST_BASE_INSERT(NIDENT => NIDENT, NDOCUMENT => NVL(REXSLOG.RN, NEXSLOG), NRN => NTMP);
/* Забираем позицию очереди в виде курсора */ /* Забираем позицию очереди в виде курсора */
LOG_GET(NIDENT => NIDENT, RCLOG => RCLOG); LOG_GET(NIDENT => NIDENT, RCLOG => RCLOG);
/* Чистим буфер */ /* Чистим буфер */
@ -1245,7 +1261,7 @@ create or replace package body PKG_EXS as
NEXSQUEUE => NEXSQUEUE, NEXSQUEUE => NEXSQUEUE,
NRN => NEXSLOG); NRN => NEXSLOG);
/* Вернем добавленную запись */ /* Вернем добавленную запись */
LOG_GET(NEXSLOG => NEXSLOG, RCLOG => RCLOG); LOG_GET(NFLAG_SMART => 0, NEXSLOG => NEXSLOG, RCLOG => RCLOG);
end LOG_PUT; end LOG_PUT;
/* Считывание сообщения из очереди */ /* Считывание сообщения из очереди */
@ -1303,17 +1319,21 @@ create or replace package body PKG_EXS as
/* Считывание сообщения из очереди */ /* Считывание сообщения из очереди */
procedure QUEUE_GET procedure QUEUE_GET
( (
NFLAG_SMART in number, -- Ïðèçíàê âûäà÷è ñîîáùåíèÿ îá îøèáêå
NEXSQUEUE in number, -- Рег. номер записи очереди NEXSQUEUE in number, -- Рег. номер записи очереди
RCQUEUE out sys_refcursor -- Курсор с позицией очереди RCQUEUE out sys_refcursor -- Курсор с позицией очереди
) )
is is
REXSQUEUE EXSQUEUE%rowtype; -- Çàïèñü ïîçèöèè î÷åðåäè
NIDENT PKG_STD.TREF; -- Идентификатор буфера NIDENT PKG_STD.TREF; -- Идентификатор буфера
NTMP PKG_STD.TREF; -- Рег. номер очередной записи буфера NTMP PKG_STD.TREF; -- Рег. номер очередной записи буфера
begin begin
/* Ñ÷èòàåì çàïèñü ïîçèöèè î÷åðåäè */
REXSQUEUE := GET_EXSQUEUE_ID(NFLAG_SMART => NFLAG_SMART, NRN => NEXSQUEUE);
/* Сформируем идентификатор буфера */ /* Сформируем идентификатор буфера */
NIDENT := GEN_IDENT(); NIDENT := GEN_IDENT();
/* Положим рег. номер записи очереди в буфер */ /* Положим рег. номер записи очереди в буфер */
RNLIST_BASE_INSERT(NIDENT => NIDENT, NDOCUMENT => NEXSQUEUE, NRN => NTMP); RNLIST_BASE_INSERT(NIDENT => NIDENT, NDOCUMENT => NVL(REXSQUEUE.RN, NEXSQUEUE), NRN => NTMP);
/* Забираем позицию очереди в виде курсора */ /* Забираем позицию очереди в виде курсора */
QUEUE_GET(NIDENT => NIDENT, RCQUEUE => RCQUEUE); QUEUE_GET(NIDENT => NIDENT, RCQUEUE => RCQUEUE);
/* Чистим буфер */ /* Чистим буфер */
@ -1443,7 +1463,7 @@ create or replace package body PKG_EXS as
PKG_MSG.RECORD_NOT_FOUND(NFLAG_SMART => 0, NDOCUMENT => NEXSQUEUE, SUNIT_TABLE => 'EXSQUEUE'); PKG_MSG.RECORD_NOT_FOUND(NFLAG_SMART => 0, NDOCUMENT => NEXSQUEUE, SUNIT_TABLE => 'EXSQUEUE');
end if; end if;
/* Вернем измененную позицию очереди */ /* Вернем измененную позицию очереди */
QUEUE_GET(NEXSQUEUE => NEXSQUEUE, RCQUEUE => RCQUEUE); QUEUE_GET(NFLAG_SMART => 0, NEXSQUEUE => NEXSQUEUE, RCQUEUE => RCQUEUE);
end QUEUE_EXEC_STATE_SET; end QUEUE_EXEC_STATE_SET;
/* Установка результата обработки записи очереди */ /* Установка результата обработки записи очереди */
@ -1457,8 +1477,11 @@ create or replace package body PKG_EXS as
begin begin
/* Выставим результат */ /* Выставим результат */
update EXSQUEUE T set T.RESP = BRESP where T.RN = NEXSQUEUE; update EXSQUEUE T set T.RESP = BRESP where T.RN = NEXSQUEUE;
if (sql%rowcount = 0) then
PKG_MSG.RECORD_NOT_FOUND(NFLAG_SMART => 0, NDOCUMENT => NEXSQUEUE, SUNIT_TABLE => 'EXSQUEUE');
end if;
/* Вернем измененную позицию очереди */ /* Вернем измененную позицию очереди */
QUEUE_GET(NEXSQUEUE => NEXSQUEUE, RCQUEUE => RCQUEUE); QUEUE_GET(NFLAG_SMART => 0, NEXSQUEUE => NEXSQUEUE, RCQUEUE => RCQUEUE);
end QUEUE_RESP_SET; end QUEUE_RESP_SET;
/* Помещение сообщения обмена в очередь */ /* Помещение сообщения обмена в очередь */
@ -1489,7 +1512,7 @@ create or replace package body PKG_EXS as
NEXSQUEUE => NEXSQUEUE, NEXSQUEUE => NEXSQUEUE,
NRN => NRN); NRN => NRN);
/* Возвращаем добавленную позицию очереди */ /* Возвращаем добавленную позицию очереди */
QUEUE_GET(NEXSQUEUE => NRN, RCQUEUE => RCQUEUE); QUEUE_GET(NFLAG_SMART => 0, NEXSQUEUE => NRN, RCQUEUE => RCQUEUE);
end QUEUE_PUT; end QUEUE_PUT;
/* Помещение сообщения обмена в очередь (по коду сервиса и функции обрабоки) */ /* Помещение сообщения обмена в очередь (по коду сервиса и функции обрабоки) */
@ -1590,7 +1613,7 @@ create or replace package body PKG_EXS as
PKG_CONTPRMLOC.PURGE(RCONTAINER => PRMS); PKG_CONTPRMLOC.PURGE(RCONTAINER => PRMS);
end if; end if;
/* Возвращаем обработанную позицию очереди */ /* Возвращаем обработанную позицию очереди */
QUEUE_GET(NEXSQUEUE => REXSQUEUE.RN, RCQUEUE => RCQUEUE); QUEUE_GET(NFLAG_SMART => 0, NEXSQUEUE => REXSQUEUE.RN, RCQUEUE => RCQUEUE);
end QUEUE_PRC; end QUEUE_PRC;
end; end;