Контроль наличия записи при считывании курсора по RN
This commit is contained in:
Mikhail Chechnev
parent
e33e0ae2dc
commit
f683f44bca
@ -238,6 +238,7 @@ create or replace package PKG_EXS as
|
||||
/* Получение сервиса */
|
||||
procedure SERVICE_GET
|
||||
(
|
||||
NFLAG_SMART in number, -- Ïðèçíàê âûäà÷è ñîîáùåíèÿ îá îøèáêå
|
||||
NEXSSERVICE in number, -- Рег. номер записи сервиса
|
||||
RCSERVICE out sys_refcursor -- Курсор со списком сервисов
|
||||
);
|
||||
@ -258,6 +259,7 @@ create or replace package PKG_EXS as
|
||||
/* Получение функции сервиса */
|
||||
procedure SERVICEFN_GET
|
||||
(
|
||||
NFLAG_SMART in number, -- Ïðèçíàê âûäà÷è ñîîáùåíèÿ îá îøèáêå
|
||||
NEXSSERVICEFN in number, -- Рег. номер функции сервиса
|
||||
RCSERVICEFN out sys_refcursor -- Курсор со списком функций сервиса
|
||||
);
|
||||
@ -288,6 +290,7 @@ create or replace package PKG_EXS as
|
||||
/* Считывание записи журнала работы */
|
||||
procedure LOG_GET
|
||||
(
|
||||
NFLAG_SMART in number, -- Ïðèçíàê âûäà÷è ñîîáùåíèÿ îá îøèáêå
|
||||
NEXSLOG in number, -- Рег. номер записи журнала
|
||||
RCLOG out sys_refcursor -- Курсор со списком записей журнала работы
|
||||
);
|
||||
@ -313,6 +316,7 @@ create or replace package PKG_EXS as
|
||||
/* Считывание сообщения из очереди */
|
||||
procedure QUEUE_GET
|
||||
(
|
||||
NFLAG_SMART in number, -- Ïðèçíàê âûäà÷è ñîîáùåíèÿ îá îøèáêå
|
||||
NEXSQUEUE in number, -- Рег. номер записи очереди
|
||||
RCQUEUE out sys_refcursor -- Курсор с позицией очереди
|
||||
);
|
||||
@ -973,17 +977,21 @@ create or replace package body PKG_EXS as
|
||||
/* Получение сервиса */
|
||||
procedure SERVICE_GET
|
||||
(
|
||||
NFLAG_SMART in number, -- Ïðèçíàê âûäà÷è ñîîáùåíèÿ îá îøèáêå
|
||||
NEXSSERVICE in number, -- Рег. номер записи сервиса
|
||||
RCSERVICE out sys_refcursor -- Курсор со списком сервисов
|
||||
)
|
||||
is
|
||||
REXSSERVICE EXSSERVICE%rowtype; -- Çàïèñü ñåðâèñà
|
||||
NIDENT PKG_STD.TREF; -- Идентификатор буфера
|
||||
NTMP PKG_STD.TREF; -- Рег. номер очередной записи буфера
|
||||
begin
|
||||
/* Ñ÷èòàåì çàïèñü ñåðâèñà */
|
||||
REXSSERVICE := GET_EXSSERVICE_ID(NFLAG_SMART => NFLAG_SMART, NRN => NEXSSERVICE);
|
||||
/* Сформируем идентификатор буфера */
|
||||
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);
|
||||
/* Чистим буфер */
|
||||
@ -1066,17 +1074,21 @@ create or replace package body PKG_EXS as
|
||||
/* Получение функции сервиса */
|
||||
procedure SERVICEFN_GET
|
||||
(
|
||||
NFLAG_SMART in number, -- Ïðèçíàê âûäà÷è ñîîáùåíèÿ îá îøèáêå
|
||||
NEXSSERVICEFN in number, -- Рег. номер функции сервиса
|
||||
RCSERVICEFN out sys_refcursor -- Курсор со списком функций сервиса
|
||||
)
|
||||
is
|
||||
REXSSERVICEFN EXSSERVICEFN%rowtype; -- Çàïèñü ôóíêöèè ñåðâèñà
|
||||
NIDENT PKG_STD.TREF; -- Идентификатор буфера
|
||||
NTMP PKG_STD.TREF; -- Рег. номер очередной записи буфера
|
||||
begin
|
||||
/* Ñ÷èòàåì çàïèñü ôóíêöèè ñåðâèñà */
|
||||
REXSSERVICEFN := GET_EXSSERVICEFN_ID(NFLAG_SMART => NFLAG_SMART, NRN => NEXSSERVICEFN);
|
||||
/* Сформируем идентификатор буфера */
|
||||
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);
|
||||
/* Чистим буфер */
|
||||
@ -1176,17 +1188,21 @@ create or replace package body PKG_EXS as
|
||||
/* Считывание записи журнала работы */
|
||||
procedure LOG_GET
|
||||
(
|
||||
NFLAG_SMART in number, -- Ïðèçíàê âûäà÷è ñîîáùåíèÿ îá îøèáêå
|
||||
NEXSLOG in number, -- Рег. номер записи журнала
|
||||
RCLOG out sys_refcursor -- Курсор со списком записей журнала работы
|
||||
)
|
||||
is
|
||||
REXSLOG EXSLOG%rowtype; -- Çàïèñü æóðíàëà ðàáîòû
|
||||
NIDENT PKG_STD.TREF; -- Идентификатор буфера
|
||||
NTMP PKG_STD.TREF; -- Рег. номер очередной записи буфера
|
||||
begin
|
||||
/* Ñ÷èòàåì çàïèñü æóðíàëà ðàáîòû */
|
||||
REXSLOG := GET_EXSLOG_ID(NFLAG_SMART => NFLAG_SMART, NRN => NEXSLOG);
|
||||
/* Сформируем идентификатор буфера */
|
||||
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);
|
||||
/* Чистим буфер */
|
||||
@ -1245,7 +1261,7 @@ create or replace package body PKG_EXS as
|
||||
NEXSQUEUE => NEXSQUEUE,
|
||||
NRN => NEXSLOG);
|
||||
/* Вернем добавленную запись */
|
||||
LOG_GET(NEXSLOG => NEXSLOG, RCLOG => RCLOG);
|
||||
LOG_GET(NFLAG_SMART => 0, NEXSLOG => NEXSLOG, RCLOG => RCLOG);
|
||||
end LOG_PUT;
|
||||
|
||||
/* Считывание сообщения из очереди */
|
||||
@ -1303,17 +1319,21 @@ create or replace package body PKG_EXS as
|
||||
/* Считывание сообщения из очереди */
|
||||
procedure QUEUE_GET
|
||||
(
|
||||
NFLAG_SMART in number, -- Ïðèçíàê âûäà÷è ñîîáùåíèÿ îá îøèáêå
|
||||
NEXSQUEUE in number, -- Рег. номер записи очереди
|
||||
RCQUEUE out sys_refcursor -- Курсор с позицией очереди
|
||||
)
|
||||
is
|
||||
REXSQUEUE EXSQUEUE%rowtype; -- Çàïèñü ïîçèöèè î÷åðåäè
|
||||
NIDENT PKG_STD.TREF; -- Идентификатор буфера
|
||||
NTMP PKG_STD.TREF; -- Рег. номер очередной записи буфера
|
||||
begin
|
||||
/* Ñ÷èòàåì çàïèñü ïîçèöèè î÷åðåäè */
|
||||
REXSQUEUE := GET_EXSQUEUE_ID(NFLAG_SMART => NFLAG_SMART, NRN => NEXSQUEUE);
|
||||
/* Сформируем идентификатор буфера */
|
||||
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);
|
||||
/* Чистим буфер */
|
||||
@ -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');
|
||||
end if;
|
||||
/* Вернем измененную позицию очереди */
|
||||
QUEUE_GET(NEXSQUEUE => NEXSQUEUE, RCQUEUE => RCQUEUE);
|
||||
QUEUE_GET(NFLAG_SMART => 0, NEXSQUEUE => NEXSQUEUE, RCQUEUE => RCQUEUE);
|
||||
end QUEUE_EXEC_STATE_SET;
|
||||
|
||||
/* Установка результата обработки записи очереди */
|
||||
@ -1457,8 +1477,11 @@ create or replace package body PKG_EXS as
|
||||
begin
|
||||
/* Выставим результат */
|
||||
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;
|
||||
|
||||
/* Помещение сообщения обмена в очередь */
|
||||
@ -1489,7 +1512,7 @@ create or replace package body PKG_EXS as
|
||||
NEXSQUEUE => NEXSQUEUE,
|
||||
NRN => NRN);
|
||||
/* Возвращаем добавленную позицию очереди */
|
||||
QUEUE_GET(NEXSQUEUE => NRN, RCQUEUE => RCQUEUE);
|
||||
QUEUE_GET(NFLAG_SMART => 0, NEXSQUEUE => NRN, RCQUEUE => RCQUEUE);
|
||||
end QUEUE_PUT;
|
||||
|
||||
/* Помещение сообщения обмена в очередь (по коду сервиса и функции обрабоки) */
|
||||
@ -1590,7 +1613,7 @@ create or replace package body PKG_EXS as
|
||||
PKG_CONTPRMLOC.PURGE(RCONTAINER => PRMS);
|
||||
end if;
|
||||
/* Возвращаем обработанную позицию очереди */
|
||||
QUEUE_GET(NEXSQUEUE => REXSQUEUE.RN, RCQUEUE => RCQUEUE);
|
||||
QUEUE_GET(NFLAG_SMART => 0, NEXSQUEUE => REXSQUEUE.RN, RCQUEUE => RCQUEUE);
|
||||
end QUEUE_PRC;
|
||||
|
||||
end;
|
||||
|
||||
Loading…
x
Reference in New Issue
Block a user