forked from CITKParus/P8-ExchangeService
Контроль наличия записи при считывании курсора по 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,22 +977,26 @@ create or replace package body PKG_EXS as
|
||||
/* Ïîëó÷åíèå ñåðâèñà */
|
||||
procedure SERVICE_GET
|
||||
(
|
||||
NEXSSERVICE in number, -- Ðåã. íîìåð çàïèñè ñåðâèñà
|
||||
RCSERVICE out sys_refcursor -- Êóðñîð ñî ñïèñêîì ñåðâèñîâ
|
||||
NFLAG_SMART in number, -- Ïðèçíàê âûäà÷è ñîîáùåíèÿ îá îøèáêå
|
||||
NEXSSERVICE in number, -- Ðåã. íîìåð çàïèñè ñåðâèñà
|
||||
RCSERVICE out sys_refcursor -- Êóðñîð ñî ñïèñêîì ñåðâèñîâ
|
||||
)
|
||||
is
|
||||
NIDENT PKG_STD.TREF; -- Èäåíòèôèêàòîð áóôåðà
|
||||
NTMP PKG_STD.TREF; -- Ðåã. íîìåð î÷åðåäíîé çàïèñè áóôåðà
|
||||
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);
|
||||
/* ×èñòèì áóôåð */
|
||||
RNLIST_BASE_CLEAR(NIDENT => NIDENT);
|
||||
end SERVICE_GET;
|
||||
end SERVICE_GET;
|
||||
|
||||
/* Ïîëó÷åíèå ñïèñêà ñåðâèñîâ */
|
||||
procedure SERVICES_GET
|
||||
@ -1063,25 +1071,29 @@ create or replace package body PKG_EXS as
|
||||
and T.EXSMSGTYPE = M.RN;
|
||||
end SERVICEFN_GET;
|
||||
|
||||
/* Ïîëó÷åíèå ôóíêöèè ñåðâèñà */
|
||||
/* Ïîëó÷åíèå ôóíêöèè ñåðâèñà */
|
||||
procedure SERVICEFN_GET
|
||||
(
|
||||
NEXSSERVICEFN in number, -- Ðåã. íîìåð ôóíêöèè ñåðâèñà
|
||||
RCSERVICEFN out sys_refcursor -- Êóðñîð ñî ñïèñêîì ôóíêöèé ñåðâèñà
|
||||
NFLAG_SMART in number, -- Ïðèçíàê âûäà÷è ñîîáùåíèÿ îá îøèáêå
|
||||
NEXSSERVICEFN in number, -- Ðåã. íîìåð ôóíêöèè ñåðâèñà
|
||||
RCSERVICEFN out sys_refcursor -- Êóðñîð ñî ñïèñêîì ôóíêöèé ñåðâèñà
|
||||
)
|
||||
is
|
||||
NIDENT PKG_STD.TREF; -- Èäåíòèôèêàòîð áóôåðà
|
||||
NTMP PKG_STD.TREF; -- Ðåã. íîìåð î÷åðåäíîé çàïèñè áóôåðà
|
||||
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);
|
||||
/* ×èñòèì áóôåð */
|
||||
RNLIST_BASE_CLEAR(NIDENT => NIDENT);
|
||||
end SERVICEFN_GET;
|
||||
end SERVICEFN_GET;
|
||||
|
||||
/* Ïîëó÷åíèå ñïèñêà ôóíêöèé ñåðâèñà */
|
||||
procedure SERVICEFNS_GET
|
||||
@ -1176,22 +1188,26 @@ 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);
|
||||
/* ×èñòèì áóôåð */
|
||||
RNLIST_BASE_CLEAR(NIDENT => NIDENT);
|
||||
end LOG_GET;
|
||||
end LOG_GET;
|
||||
|
||||
/* Äîáàâëåíèå çàïèñè â æóðíàë ðàáîòû */
|
||||
procedure LOG_PUT
|
||||
@ -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