Скачать: CL | DM;

Константы и прагмы   Найти похожие ветки 

← →
DPashin   (2002-07-01 09:32) [0]

в Oracle 8 в пакете описываю константу:
MyConst CONSTANT integer := 0;
Когда я пытаюсь эту константу использовать в функции, на которую навешана
pragma restrict_references(MyFunc,wnps,wnds);
получаю ошибку "Процедура нарушает установленную прагму".

Как мне от этого избавиться?

---

← →
-   (2002-07-02 09:34) [1]

up

---

← →
MishGan   (2002-07-02 11:47) [2]

Можно код пакета в студию. У меня вот так работает:

CREATE OR REPLACE PACKAGE "DBO".LDP_P2 AS
TempVar INTEGER;
CONSTANT integer := 0;
FUNCTION GetTempVar RETURN INTEGER;
PRAGMA RESTRICT_REFERENCES (GetTempVar, WNDS, WNPS);
END LDP_P2;
/

CREATE OR REPLACE PACKAGE BODY "DBO".LDP_P2 AS
FUNCTION getTempVar RETURN INTEGER IS
BEGIN
RETURN CONSTANT;
END getTempVar;
END LDP_P2;
/

GRANT EXECUTE ON "DBO".LDP_P2 TO LDUSER;
GRANT EXECUTE ON "DBO".LDP_P2 TO LDADMIN;

select "DBO".LDP_P2.getTempVar from dual;

(Oracle 8.0.5.1 for Linux)

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.007 c